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