求助--------一段VBscript代码

haihai1005

Function IsSuccessful(oResponse)
   Dim strStatusCode, bSuccess
   strStatusCode = oResponse.ResultCode
   
   If (Left(strStatusCode,1) = "2") Then
      bSuccess = True
   Else
      bSuccess = False
   End If
   IsSuccessful = bSuccess
End Function


我在调用这段代码的时候 说的的 oResponse无效,请问我该怎么声明该对象

walker1020

"oResponse无效"是什么意思？ 我猜测是报告没有ResultCode这个方法吧？在实际运行中，ResultCode 是什么类型的对象？就这么点信息，实在没法帮你了

haihai1005

获取 HTTP 响应的正文。仅返回响应缓冲区中的正文部分。

strBody = Response.Body
说我的Response无效,我 应该怎么声明

jackymail

你得先找到你的这段代码用的是什么对象。

参数是一个对象，它具有ResultCode方法。你要用那个对象类型先声明一个变量，不过你的ResultCode方法我没见过，不知道是什么对象的。

不知道你想做什么，如果是对网页请求判断获取源码，返回请求代码，可以用xmlhttp对象。

jackymail

Dim url : url="http://10.100.116.202/web"
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim Stream :Set Stream = fso.OpenTextFile("c:\result.txt",2)

check url

Private Function check(url)
Set xmlhttp_obj = createobject("microsoft.xmlhttp")
xmlhttp_obj.open "get",url,False
xmlhttp_obj.send
MsgBox xmlhttp_obj.readystate &xmlhttp_obj.status
If xmlhttp_obj.readystate <> 4 Then
        MsgBox xmlhttp_obj.readstate
Else
        If xmlhttp_obj.status>=200 And xmlhttp_obj.status<300 Then
                Stream.writeline url&" valided"
                content=xmlhttp_obj.responsetext
                'MsgBox content
                Set re = New RegExp
                re.Pattern = "<A HREF\=\D?(\/[a-z]+)+"
                re.Global = True
                re.IgnoreCase = True
                Set matches = re.execute(content)
                For each match in matches
                cutstring=Right(match,match.length-13)
                newurl=url&cutstring
                MsgBox Newurl
                check Newurl
                Next
        End If
End If

End Function

wtucel

你的代码里有没有像这样的代码?  Set Response=XXX.CreateObject("XXXXXXX")
把Response申明成一个对象,没对象的话你的Body方法是作用在什么上的?

还有第一段的oResponse也应该是一个Object,Object好象不能做参数吧??