文档概览

ASP

<% 
Dim Http,value_
Set Http = Server.CreateObject("Msxml2.XMLHTTP.3.0")
If Err Then
   Err.Clear
   Set Http = Server.CreateObject("Msxml2.XMLHTTP")
   If Err Then
Err.Clear
Set Http = Server.CreateObject("Microsoft.XMLHTTP")
If Err Then
Err.Clear
 
End If
   End If
End If
Http.Open "GET", "http://IP:端口/OutCallCode/SubmitCallCode.asp", False
strxml_ = "username="&username_&"&password="&password_&"&phone="&mobile_&"&code="&code_&"&callid="&callid_&""
Http.SetRequestHeader "CONTENT-LENGTH ",len(strxml_)
Http.SetRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
Http.Send(strxml_)
If Http.Status<>200 Then
value_="sms error"
End If
response.write (BytesToBSTR(Http.responseBody,"gb2312"))
private Function BytesToBstr(body,Cset) '中文处理
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function
%>
 
QQ在线咨询
服务热线
021-64360230
24小时电话
15900894283