status_test.asp

来自「为了对短消息信息应用开发商提供支持」· ASP 代码 · 共 48 行

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


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


'调用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

ilen = InStr(retMsg,",")-1
if ilen <= 0 then
   ilen = len(retMsg)
end if

Ret   = left(retMsg,ilen)
iRet  = Cint(Ret)
if iRet>0  then  '判断是成功
    response.write "取短信状态成功，现状态为:"&iRet
else
    response.write "取短信状态失败，错误代码:"&iRet
end if

'释放资源
Set objHttpRequest = Nothing

%>