WAP的WEB模拟器

wtogether 2006-06-08 12:19:41

其他文件见阿舜的贴子：http://community.csdn.net/Expert/topic/4807/4807704.xml?temp=.1156275
居然不能连续发三次，没办法，重新开帖了
第三个文件：
xmlrpc.asp
<%@language="vbscript"%>
<%Option Explicit%>
<%
Response.Buffer = True
Response.CacheControl = "no-cache"
Response.AddHeader "pragma","no-cache"
Response.Expires = 0

Response.ContentType = "text/xml"

Public Function XMLHttpRequest()
Dim aryCom
Dim aryPtr
aryCom = Array _
( _
"MSXML2.ServerXMLHTTP.5.0", _
"MSXML2.ServerXMLHTTP.4.0", _
"MSXML2.ServerXMLHTTP.3.0", _
"MSXML2.ServerXMLHTTP" _
)
On Error Resume Next
For Each aryPtr In aryCom
Set XMLHttpRequest = Server.CreateObject(aryPtr)
If Err.Number Then
Err.Clear
Else
Const DNSTimeout = 10000 '解析DNS名字的超时时间,1秒
Const CONTimeout = 10000 '建立Winsock连接的超时时间,1秒
Const SNDTimeout = 10000 '发送数据的超时时间,10秒
Const RCVTimeout = 30000 '接收response的超时时间,30秒
XMLHttpRequest.setTimeouts DNSTimeout, _
CONTimeout, _
SNDTimeout, _
RCVTimeout
Exit For
End If
Next
End Function

Private Sub doGet(ByVal strURL)
On Error Resume Next
Dim objHTTP
Set objHTTP = XMLHttpRequest()
objHTTP.Open "GET", strURL, False
objHTTP.setRequestHeader "X-UP-CALLING-LINE-ID", "13888888888"
objHTTP.setRequestHeader "USER-AGENT", "XMLRPC 1.0"
objHTTP.setRequestHeader "ACCEPT", "text/vnd.wap.wml, application/xhtml+xml, application/vnd.wap.xhtml+xml, */*"
objHTTP.Send null
If objHTTP.readyState = 4 Then
If objHTTP.status = 200 Then
Response.BinaryWrite objHTTP.responseBody
End If
End If
Set objHTTP = Nothing
If Err.Number Then
Err.Clear
End If
End Sub

Call doGet(CStr(Request.QueryString("URL")))
%>

...全文