使用ASP发送飞信的免费短信

要实现在asp网站上发送飞信，要求是中国移动的手机用户，并且开通移动飞信功能。

使用以下asp代码，修改参数为你的手机号及飞信密码，就可以实现在网站发免费短信功能。

fsend.asp文件源代码如下：

<%
    Dim fno,fp,tofno,rurl
    fno="138xxxxxxxx"    '手机号
    fp="xxxxxxxx"       '飞信密码
    tofno="137xxxxxxxx" '发送目标手机号(要求是自己的号码或飞信好友)
    rurl=""              '提交后转移到的目标地址(留空将不转移)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>请留下你的联系信息</title>
</head>

<body style="font-size: 10pt; font-family: 宋体">
<%if (Request("msg")="") then%>
   <form method="POST" action="fsend.asp">
   <br>请留下你的联系信息<br>
   <hr>
   联系信息:<br><textarea rows="5" name="msg" cols="27"></textarea><br>
   <p><input type="submit" value="提交" name="B1"></p>
   </form>
<%
else
    Dim returnString
    Dim msg
    msg=Request("msg")
    returnString=sendf(fno,fp,tofno,msg)
    if rurl="" then
       Response.Write returnString&"<br><a href='fsend.asp'>返回</a>"
    else
       Response.Redirect rurl
    end if
end if
%>
</body>
</html>

<%
function sendf(fno,fp,tofno,msg)
    '函数参数说明:fno=登录手机号,fp=登录密码,tofno=目标手机号,msg=要发送的信息
    Dim returnString
    Dim SoapRequest
    Dim SoapURL
    SoapURL = "http://io2.139icq.com:88/send.aspx?fno="&fno&"&fp="&fp&"&tofno="&tofno&"&msg="&msg
    Set SoapRequest = Server.CreateObject("MSXML2.XMLHTTP")
    SoapRequest.Open "GET",SoapURL,False
    SoapRequest.Send
    returnString=bytes2bstr(SoapRequest.responsebody)
    sendf=returnString
end function
function bytes2bstr(vin)
    strreturn = ""
    for i = 1 to lenb(vin)
        thischarcode = ascb(midb(vin,i,1))
        if thischarcode < &h80 then
            strreturn = strreturn & chr(thischarcode)
        else
            nextcharcode = ascb(midb(vin,i+1,1))
            strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
            i = i + 1
        end if
    next
    bytes2bstr = strreturn
end function
%>

使用ASP发送飞信的免费短信相关推荐

java调用飞信接口免费短信发送到对方手机
原文:java调用飞信接口免费短信发送到对方手机源代码下载地址:http://www.zuidaima.com/share/1550463460084736.htm 飞信发送信息限(移动用户) 1. ...
发送飞信免费短信API
通过分析网页版飞信(地址:https://webim.feixin.10086.cn/),封装成自己的通用API,通过该API可以给自己和飞信好友的手机发送免费短信. 这是官网登录界面截图: 我们可以 ...
php提交飞信,php发送飞信消息
实例结构: 1. demo.php // 获取天气数据 $w = json_decode( file_get_contents('http://www.weather.com.cn/data/city ...
用ASP发送信使服务
用ASP发送信使服务来源:Fashionme.net 作者: 加入时间:2004-02-18 14:27:07 <% dim wsh set wsh = ...
飞信java接口_java调用飞信接口免费短信发送到对方手机
飞信发送信息限(移动用户) 1.用飞信加为好友才可以跟对方发飞信(达到此条件发飞信不收取费用) 2.FetionConfig配置文件里的 WeekendGreetings=是发送另一个配置文件名如 ...
asp发送html邮件,用HTML格式发送邮件_邮件相关_ASP教程
用HTML格式发送邮件_邮件相关_ASP教程用HTML格式发送邮件_邮件相关_ASP教程日期:2009-06-07 浏览次数:20491 次你可以通过SMTP服务或者MS Exchange发送H ...
asp发送微信公众号客服消息源码
asp写的,微信公众号发送客服消息源码,支持文字发送,图文发送,带链接的文字发送等,比模板消息更灵活,适合很多应用场景,费话不说,上源码: <% Call Wx.C_A("wx_tok ...
nagios不能发送飞信报警一例
作者:田逸(sery@163.com) 虽然一直不喜欢移动,但受人之托,勉为其难帮他调试了一下.过程很简单,但其中的技巧却值得拿出来分享,于是就有了这个文章. 问题描述: (1)以web方式查看nag ...
asp提交数据500服务器错误信息,windows2003运行ASP发送HTTP 500 - 内部服务器错误怎么处理啊?...
先启动MSDTC服务,什么是MSDTC服务?显示名称:Distributed Transaction Coordinator:描述:协调跨多个数据库.消息队列.文件系统等资源管理器的事务.如果停止此服 ...

使用ASP发送飞信的免费短信

使用ASP发送飞信的免费短信相关推荐

最新文章

热门文章