set IE = Server.CreateObject("InternetExplorer.Application")
IE.Navigate2("http://211.101.182.9:8090/websend/?serverid=&fromuser=&password=&phone="&telnum&"&fromphone="&fromtel&"&message="&content&".")
while IE.Busy
wend
ret=IE.Document.body.innerText
arr=split(ret, vbCrLf)
select case arr(0)
case "00"
case "01"
response.write "与网关断连"
response.End()
case "02"
response.write "参数有误"
response.End()
case "03"
response.write "IP验证不通过"
response.End()
case "04"
response.write "业务码验证不通过"
response.End()
case "05"
response.write "有违禁单词"
response.End()
case "021"
response.write "serviceid为空"
response.End()
case "022"
response.write "phone为空"
response.End()
case "023"
response.write "message为空"
response.End()
case "024"
response.write "接收的手机号码与计费号码个数不一样"
response.End()
case else
response.write "未知错误"
response.End()
end select
set IE=nothing