asp 短信接口

好久不用asp写程序了，但今天遇到一个项目，需要用到asp，因为以前写的程序就是asp写的,现在需要增加一些功能，为了更好的兼容和整合，我们还得用asp写，其中有一项就是给领导发短信开会的短信通知功能,我给它们推荐还是用56短信网的,因为在以前的团购项目和会员手机注册验证，一直过它们的，速度和稳定性确实挺好的，，而且价格也相对实惠,在这里我也给大家推荐一下,但好久不写asp程序了,写了半天，我是按照以前.net的思路写的，但老是有乱码,后边，没有办法，问了一下它们技术，它们技术给我发了一段代码，后来，一用，果然挺不错的，解决了乱码的问题，可能是很长时间不用asp了吧，有些东东已经忘记了，现在问题已经解决了，我把代码贴出来，供大家参考一下，基本上可以解决asp 调用短信接口一般的乱码的问题，当然具体的，还要看短信的编码，虽然代码简单，但有些方面，还是可以参考一下的.

 sms.asp

 

<%

Function getHTTPPage(url)
 Dim Http
    Set Http = Server.CreateObject("MSXML2.XMLHTTP")
        Http.Open "GET", url, False
        Http.send()
        If Http.readystate <> 4 Then
            Exit Function
        End If
        getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")
    Set Http = Nothing
    If Err.Number <> 0 Then Err.Clear
End Function

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

 

//以下是调用56短信网的短信接口,官方网站:http://www.56dxw.com

Function SendSms(smsMob,smsText)
'response.Write(smsMob)
'response.End()
   SmsServer="http://jiekou.56dxw.com/sms/HttpInterface.aspx?"  
   userid="630"
   username1="test1"
   userpwd="qwqwqw"
   usersms="1061"
   SenData=SmsServer&"comid="&userid&"&username="&username1&"&userpwd="&userpwd&"&handtel="&smsMob&"&sendcontent="&smsText&"&sendtime=&smsnumber="&usersms
  
   qwe=getHTTPPage(SenData)
If qwe = "1" then '发送成功
 Response.Write("成功了")
Else '发送失败
 Response.Write("失败了,请联系管理员")
End if
End Function

%>