asp短信接口源码(2)

'调用短信接口网址官方网站:http://www.56dxw.com
Function SendSms(smsMob,smsText)
'response.Write(smsMob)
'response.End()
SmsServer="http://jiekou.56dxw.com/sms/HttpInterface.aspx?"
userid="60"
username1="test1"
userpwd="qwqwqw"
usersms="1061"

SenData=SmsServer&"comid="&userid&"&username="&username1&"&userpwd="&userpwd&"&handtel="&smsMob&"&sendcontent="&smsText&"&sendtime=&smsnumber="&usersms

qwe=getHTTPPage(SenData)
'response.Write(qwe)

If qwe = "1" then '发送成功
Response.Write("ok")
Else '发送失败
Response.Write("error")
'Response.Write(qwe)//参考56短信网:http://www.56dxw.com 接口文档 　
End if


End Function

if request("Tel")<>"" then
call SendSms(request("Tel"),"手机号的发送内容")
Else '发送失败
Response.Write("error")
end if


%>