For Each Prog In arrProgId If (IsObjInstalled(Prog) = true) Then XmlHttpCom = Prog Exit For End If Next
'// summary> '// Rem 检查组件是否支持 是返回 True 否返回 False '// /summary> Public Function IsObjInstalled(strClassString) On Error Resume Next
'//设置初始化值
IsObjInstalled = False Err = 0
'//测试代码
Dim xTestObj Set xTestObj = Server.createObject(strClassString) If 0 = Err Then IsObjInstalled = True
'//清除所申请的对象
Set xTestObj = Nothing Err = 0 End Function
上面那段代码就是申请到当前服务器支持的最高版本的XMLHTTP对象了
下面我们讲一下采集功能函数
'GetFileText为采集功能函数 Public Function GetFileText(url) on error resume next '有错误时继续执行代码 Dim http '定义变量 'Set http=Server.createobject(XmlHttpCom) '申请对象 Set http=Server.createobject("Microsoft.XMLHTTP") '保险起见，写出一个服务器一般都支持的版本 Http.open "GET",url,False '打开对象 用GET方式 等待服务器响应 Http.Send() '发送 If Http.readystate>4 Then '如果服务器没反应,则退出函数 Exit Function End If
