| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 524 人关注过本帖
标题:[求助]关于发短信的代码
只看楼主 加入收藏
重在参与
Rank: 1
等 级:新手上路
帖 子:177
专家分:0
注 册:2006-5-16
收藏
 问题点数:0 回复次数:1 
[求助]关于发短信的代码

这是一段ASP代码,我是学ASP。NET的,谢谢,非常着急。
<%
strUser="liufeng" '此处设置您的帐户
strPwd="111111" '此处设置您的帐户密码
strMobile="138********" '此处设置接收短信息的手机号码
strContent="你好,你的短信已经发送"

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function


set http = Server.CreateObject("Microsoft.XMLHTTP")
Http.Open "GET", "http://www.faxing8.net/sendsms.asp?User="&strUser&"&Pass="&strPwd&"&Mobile="&strMobile&"&Text="&strContent&"",false
Http.Send
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
%>
<%=getHTTPPage%>

搜索更多相关主题的帖子: 短信 代码 
2007-07-25 13:33
重在参与
Rank: 1
等 级:新手上路
帖 子:177
专家分:0
注 册:2006-5-16
收藏
得分:0 
请帮我加上注释,我看不懂,万分感谢

如果一个人不知道他要驶向哪个码头,那么任何风都不会是顺风。
2007-07-25 13:34
快速回复:[求助]关于发短信的代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017595 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved