send_test.asp

为了对短消息信息应用开发商提供支持

<%
'Option Explicit
Dim objHttpRequest	'XML文档对象


'根据参数，生成调用URL,因为是测试例子，不对变量为空的情况做处理
URL = "http://web.mobset.com/SDK/Sms_Send.asp?CorpID="&request("CorpID")&"&LoginName="&request("LoginName")&"&send_no="&request("send_no")&"&Timer="&request("Timer")&"&msg="&Server.URLEncode(request("msg"))


'调用MSXML，发送请求
set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP" )

if objHttpRequest is Nothing Then
 '返回错误
 response.write "create Msxl2.ServerXMLHTTP error"
 response.end
end if


'发出请求
objHttpRequest.open "GET",URL,False
objHttpRequest.send()
if objHttpRequest.status <> 200  then
 '返回错误
 response.write "Open Request Error"
 response.end
end if

'取返回信息，并且分析
retMsg = objHttpRequest.responseText

Ret   = left(retMsg,InStr(retMsg,",")-1)
iRet  = Cint(Ret)

if iRet>0  then  '判断是否发送成功
    SendID = right(retMsg,len(retMsg)-InStr(retMsg,","))
    response.write "发送短信成功,SmsID:"&SendID
else
    response.write "发送短信失败，错误代码:"&iRet
end if

'释放资源
Set objHttpRequest = Nothing

%>