51Testing软件测试论坛

标题: 求助--------一段VBscript代码 [打印本页]

作者: haihai1005 时间: 2007-7-18 22:37
标题: 求助--------一段VBscript代码
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 时间: 2007-7-19 00:26
"oResponse无效"是什么意思？我猜测是报告没有ResultCode这个方法吧？在实际运行中，ResultCode 是什么类型的对象？就这么点信息，实在没法帮你了

作者: haihai1005 时间: 2007-7-19 09:47
获取 HTTP 响应的正文。仅返回响应缓冲区中的正文部分。

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

作者: jackymail 时间: 2007-7-19 09:54
标题: oResponse
你得先找到你的这段代码用的是什么对象。

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

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

作者: jackymail 时间: 2007-7-19 09:56
标题: 这是我昨天写的一个片断，给你参考，希望有帮助
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 时间: 2007-7-19 10:03
你的代码里有没有像这样的代码? Set Response=XXX.CreateObject("XXXXXXX")
把Response申明成一个对象,没对象的话你的Body方法是作用在什么上的?

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)