smssend.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<%
'Option Explicit
if ComId<>"" then
Dim objHttpRequest	'XML文档对象


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


'调用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,","))
    SendSmsResult= "发送短信成功,SmsID:"&SendID
	SendSmsInfo= "您的订票信息已经发送到您的手机上，请注意查收！"
else
    SendSmsResult= "发送短信失败，错误代码:"&iRet
end if

'释放资源
Set objHttpRequest = Nothing
end if
%>