远程获取类Asp xmlHttp

编者注：这个class主要用于操作asp中的xmlhttp。
　　
首先是类定义 Cls_AspHttp.asp：
<%
''=================================================================
''飞扬远程获取类(AspHttp) 1.0.1 Bate1
''　　 By 奔腾的心
''　　 2006-04-19
''=================================================================
Class FlyCms_AspHttp
　Public oForm,oXml,Ados
　Public strHeaders
　Public sMethod
　Public sUrl
　Public sReferer
　Public sSetCookie
　Public sLanguage
　Public sCONTENT
　Public sAgent
　Public sEncoding
　Public sAccept
　Public sData
　Public sCodeBase
　Private slresolveTimeout,slconnectTimeout,slsendTimeout,slreceiveTimeout
　'' ============================================
　'' 类模块初始化
　'' ============================================
　Private Sub Class_Initialize()
　 oForm = ""
　 Set oXml = Server.CreateObject("MSXML2.ServerXMLHTTP")
　 set Ados = Server.CreateObject("Adodb.Stream")
　　　　 slresolveTimeout = 20000　　 '' 解析DNS名字的超时时间,20秒
　　　　 slconnectTimeout = 20000　　 '' 建立Winsock连接的超时时间,20秒
　　　　 slsendTimeout　　 = 30000　　 '' 发送数据的超时时间,30秒
　　　　 slreceiveTimeout = 30000　　 '' 接收response的超时时间,30秒
　End Sub
　'' ============================================
　'' 返回版本信息
　'' ============================================
　Public Property Get Version
　 Version = "飞扬asphttp类1.0.0"
　End Property
　'' ============================================
　'' 解析DNS名字的超时时间
　'' ============================================
　Public Property Let lresolveTimeout(LngSize)
　 If IsNumeric(LngSize) Then
　　 slresolveTimeout = Clng(LngSize)
　 End If
　End Property
　'' ============================================
　'' 建立Winsock连接的超时时间
　'' ============================================
　Public Property Let lconnectTimeout(LngSize)
　 If IsNumeric(LngSize) Then
　　 slconnectTimeout = Clng(LngSize)
　 End If
　End Property
　'' ==========