kysms_test.asp

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

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


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


'调用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)
'response.write Ret
iRet  = 0+Ret
if iRet>0  then  '判断是成功
    response.write "取可用短信成功，现可用短信为:"&iRet
else
    response.write "取可用短信失败，错误代码:"&iRet
end if

'释放资源
Set objHttpRequest = Nothing

%>