文档概览

ASP

sendsms.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%> 
 
 
 
 
 
<%
 
 response.charset="utf-8" 
 
'================================
'   智鼎短信接口演示(ASP版)
'================================
 
    '发生错误后继续执行
On Error Resume Next 
    '避免程序还没有运行完成,程序就已经断开
Server.ScriptTimeOut=9999999 
 
    '---------------------------------声明相关参数
 
    'res:返回值;url:接口地址
    Dim res,url
 
'Dim wstr,str,url,start,over,dtime 
 
    'username:用户帐号;passwork:用户密码;veryCode:校验码;
Dim username,password,veryCode
    'msgtype短信类型:1代表普通短信(默认值),2代表模板短信。code编码类型
    Dim msgtype,code
    msgtype="1"
    code="utf-8"
 
'用户账号
username =""
    '用户密码
password = ""
    '校验码
    veryCode=""
 
'接口地址
url="http://120.27.149.106:8030/service/httpService/httpInterface.do?method="
    '---------------------------------参数声明—结束
 
    '**********************************演示
    
    '普通短信测试
    'dim c
    'c=GBtoUTF8("您的验证码是:3698,请妥善保存,一分钟之内有效!(测试,请退回!)")
    'res=SendTextSms("手机号码",c)
 
    '模板短信测试
    'dim c
    'c=GBtoUTF8("测试")  '参数中的中文要转换编码,防止乱码
    'res=SendTemplateSms("手机号码", "短信模板ID", "@1@="&c&",@2@=4293")
 
    '获取短信报告
    'res=QueryReport()
 
    '获取上行短信
    res=QueryMo()
 
Response.Write "返回值是:" & res
Response.End
    '**********************************演示—结束
 
 
    '##################################相关函数声明
    '
    '发送普通短信
    '
    '手机号码, 多个号码以英文逗号隔开,最多支持100个号码
    '短信内容
    '返回发送状态,状态说明见下载包中的接口文档
    Function SendTextSms(m,c)
 
      dim  url_temp
      url_temp=  url &"sendMsg" &"&username="&username &"&password="&password &"&veryCode="&veryCode &"&mobile="&m &"&content="&c&"&code="&code
      SendTextSms=PostHTTPPage(url_temp)
End Function 
 
 
 
    '
    ' 发送模版短信(短信模版的创建参考客户端操作手册)
    ' 
    ' 模版:@1@会员,动态验证码@2@(五分钟内有效)。请注意保密,勿将验证码告知他人。
    ' 参数值:@1@=member,@2@=4293
    ' 最终短信内容:【短信签名】member会员,动态验证码4293(五分钟内有效)。请注意保密,勿将验证码告知他人。
    '
    '接收人手机号
    '模版编号
    '各参数值,以英文逗号隔开,如:@1@=member,@2@=4293
    ' 返回发送状态
    Function  SendTemplateSms(mobile, tempId, content)
         
       dim  url_temp
       url_temp=  url&"sendMsg" &"&username=" &username &"&password=" &password &"&veryCode="&veryCode &"&mobile="&mobile &"&content="& content &"&msgtype=2" &"&tempid="&tempId &"&code=utf-8"
       SendTemplateSms=PostHTTPPage(url_temp)
    End Function 
 
 
 
     
rem 获取短信状态报告
rem @return 返回数据格式
Function QueryReport()
       dim  url_temp
       url_temp=  url&"queryReport" &"&username=" &username &"&password=" &password &"&veryCode="&veryCode
       QueryReport=PostHTTPPage(url_temp)
End Function 
 
 
    '获取上行短信(指用户回复的短信)  ,只能获取当前的短信状态,不能根据msgid获取状态,具体介绍请查看接口文档
    '返回当日截止到当前的所有短信状态
Function QueryMo()
    
      dim  url_temp
      url_temp=  url &"queryMo" &"&username="&username &"&password="&password &"&veryCode="&veryCode
      QueryMo=PostHTTPPage(url_temp)
End Function 
 
 
    '余额查询
    '返回当前余额
    Function GetAmount()
      dim  url_temp
      url_temp=  url &"getAmount" &"&username="&username &"&password="&password &"&veryCode="&veryCode
      GetAmount=PostHTTPPage(url_temp)
    End Function 
 
    '##################################相关函数声明-结束
 %>


unit.class
<%
 
    Function PostHTTPPage(Path) 
   t = GetBody(Path)
   GetHTTPPage= t 
         'BytesToBstr(t,code) 
End function 
 
 
 
 
'Function Newstring(wstr,strng) 
'Newstring=Instr(lcase(wstr),lcase(strng)) 
'if Newstring<=0 then Newstring=Len(wstr) 
'End Function
 
 
   Function GetBody(url)
   Set Retrieval = CreateObject("Microsoft.XMLHTTP")
   With Retrieval
       .Open "POST", url, False, "", "" 
            .setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=utf-8"
       .Send
       GetBody = .responseText 
       'GetBody = .ResponseBody
   End With
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 
 
 
Function GBtoUTF8(szInput)   
Dim wch, uch, szRet   
Dim x   
Dim nAsc, nAsc2, nAsc3   
'如果输入参数为空,则退出函数   
If szInput = "" Then  
GBtoUTF8= szInput   
Exit Function  
End If  
'开始转换   
For x = 1 To Len(szInput)   
wch = Mid(szInput, x, 1)   
nAsc = AscW(wch)   
If nAsc < 0 Then nAsc = nAsc + 65536   
If (nAsc And &HFF80) = 0 Then  
szRet = szRet & wch   
Else  
If (nAsc And &HF000) = 0 Then  
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)   
szRet = szRet & uch   
Else  
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _   
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _   
Hex(nAsc And &H3F Or &H80)   
szRet = szRet & uch   
End If  
End If  
Next  
GBtoUTF8= szRet   
End Function  
     
%>
 
QQ在线咨询
服务热线
021-31652084
24小时电话
15900894283