xmlHttp.status的值（HTTP状态表）

bloom · 发表于 2012-10-14 11:53:01

xmlHttp.status的值（HTTP状态表）

100----客户必须继续发出请求
101----客户要求服务器根据请求转换HTTP协议版本

200----交易成功
201----提示知道新文件的URL
202----接受和处理、但处理未完成
203----返回信息不确定或不完整
204----请求收到，但返回信息为空
205----服务器完成了请求，用户代理必须复位当前已经浏览过的文件
206----服务器已经完成了部分用户的GET请求

300----请求的资源可在多处得到
301----删除请求数据
302----在其他地址发现了请求数据
303----建议客户访问其他URL或访问方式
304----客户端已经执行了GET，但文件未变化
305----请求的资源必须从服务器指定的地址得到
306----前一版本HTTP中使用的代码，现行版本中不再使用
307----申明请求的资源临时性删除

400----错误请求，如语法错误
401----请求授权失败
402----保留有效ChargeTo头响应
403----请求不允许
404----没有发现文件、查询或URl
405----用户在Request-Line字段定义的方法不允许
406----根据用户发送的Accept拖，请求资源不可访问
407----类似401，用户必须首先在代理服务器上得到授权
408----客户端没有在用户指定的饿时间内完成请求
409----对当前资源状态，请求不能完成
410----服务器上不再有此资源且无进一步的参考地址
411----服务器拒绝用户定义的Content-Length属性请求
412----一个或多个请求头字段在当前请求中错误
413----请求的资源大于服务器允许的大小
414----请求的资源URL长于服务器允许的长度
415----请求资源不支持请求项目格式
416----请求中包含Range请求头字段，在当前请求资源范围内没有range指示值，请求也不包含If-Range请求头字段
417----服务器不满足请求Expect头字段指定的期望值，如果是代理服务器，可能是下一级服务器不能满足请求

500----服务器产生内部错误
501----服务器不支持请求的函数
502----服务器暂时不可用，有时是为了防止发生系统过载
503----服务器过载或暂停维修
504----关口过载，服务器使用另一个关口或服务来响应用户，等待时间设定值较长
505----服务器不支持或拒绝支请求头中指定的HTTP版本

1xx:信息响应类，表示接收到请求并且继续处理
2xx:处理成功响应类，表示动作被成功接收、理解和接受
3xx:重定向响应类，为了完成指定的动作，必须接受进一步处理
4xx:客户端错误，客户请求包含语法错误或者是不能正确执行
5xx:服务端错误，服务器不能正确执行一个正确的请求

bloom · 发表于 2012-10-14 12:02:00

XMLHTTP.readyState 的五种状态

0 －（未初始化）还没有调用 send()方法

1 －（载入）已调用 send()方法，正在发送请求

2 －（载入完成）send()方法执行完成，已经接收到全部响应内容

3 －（交互）正在解析响应内容

4 －（完成）响应内容解析完成，可以在客户端调用了

sunshinebean · 发表于 2012-10-14 13:04:03

推荐winhttp

bloom · 发表于 2012-10-14 15:16:33

sunshinebean 发表于 2012-10-14 13:04
推荐winhttp

推荐有理由吗？

bloom · 发表于 2012-10-14 16:48:06

其实我很想知道，怎样提高它的效率，

在需要发送几十万次数据的时候，或者需要采集几十万次数据的情况下，怎样做效率才高？

附上一个函数，有待高手指点

'************************************************
'函数名称： GetURLText
'功能说明：获取一个URL的源代码，
'返回值：
'参数：
' 1、ByVal ablnPost 是Post还是GET，
' 2、ByVal astrHost Host，一般是不带http://的，例如“www.baidu.com”
' 3、ByVal astrURL 要获取的URL，例如：http://www.baidu.com
' 4、ByVal astrPostData 要发送的数据
' 5、ByVal astrReferer Referer
' 6、ByRef astrText
' 7、ByRef [astrErrorInfo]
' 8、Byval [astrFakeIP]
' 9、ByVal [astrAuthorization_Basic]
' 10、ByRef [astrCookies] 如果有传Cookie进来，需要设置cookie[]，
' 11、ByRef [astrCookiesRet] 本次返回的cookies值
'
'作者： bloom
'日期： 2011-12-17 15:48:18
'************************************************
Public Function GetURLText(ByVal ablnPost As Boolean, _
ByVal astrHost As String, ByVal astrURL As String, _
ByVal astrPostData As String, ByVal astrReferer As String, _
ByRef astrText As String, _
Optional ByRef astrErrorInfo As String = "", _
Optional ByVal astrFakeIP As String, _
Optional ByVal astrAuthorization_Basic As String = "", _
Optional ByRef astrCookies As String = "", _
Optional ByRef astrCookiesRet As String = "", _
Optional ByVal ablnGetReturn As Boolean = True _
) As Boolean
On Error GoTo ErrLab
Dim sngTimeOut As Single
Dim xmlhttp As Object
astrText = ""
astrErrorInfo = ""
astrCookiesRet = ""
Set xmlhttp = CreateObject("microsoft.xmlhttp")
If Not xmlhttp Is Nothing Then
If LenB(astrURL) Then
With xmlhttp
.Open IIf(ablnPost, "POST", "GET"), astrURL, True '异步
Call .setRequestHeader("CONTENT-TYPE", "application/x-www-form-urlencoded")
Call .setRequestHeader("Accept", "*/*")
Call .setRequestHeader("User-Agent", "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; TheWorld)")
' '不取缓存数据
Call .setRequestHeader("If-Modified-Since", "0")
If LenB(astrAuthorization_Basic) Then
Call .setRequestHeader("Authorization Basic", astrAuthorization_Basic)
End If
If LenB(astrFakeIP) Then
Call .setRequestHeader("X-Forwarded-For", astrFakeIP)
End If
If LenB(astrHost) Then
Call .setRequestHeader("Host", astrHost)
End If
If LenB(astrReferer) Then
Call .setRequestHeader("Referer", astrReferer)
End If
'设置Cookies，分解看里面有没有SetCookie的选项
If LenB(astrCookies) Then
Call .setRequestHeader("Cookie", astrCookies)
End If
If LenB(astrPostData) Then
.send (astrPostData)
Else
.send
End If
End With
If ablnGetReturn Then
' 不用等待返回
sngTimeOut = GetTickCount()
' Debug.Print xmlhttp.Status
Do While xmlhttp.ReadyState <> 4 '等待返回
' Debug.Print "xmlhttp.readyState：" & xmlhttp.readyState
Sleep 300
DoEvents
' Call MyDoEvents(0.02)
'如果时间超超时
If GetTickCount - sngTimeOut >= 60000 Then
' LogInfoB astrURL
GetURLText = False
GoTo ExitHere
End If
Loop
' Debug.Print "xmlhttp.readyState：" & xmlhttp.readyState
If xmlhttp.Status = 200 Then '成功
astrText = xmlhttp.responseText
'获取到Cookies
astrCookiesRet = xmlhttp.getAllResponseHeaders()
GetURLText = True
Else
GetURLText = False
astrErrorInfo = "HTTP错误，状态码：" & xmlhttp.Status
End If
Else
sngTimeOut = GetTickCount()
Do While xmlhttp.ReadyState < 2 '只要为2就行，不需要解析数据
'Sleep 300
DoEvents
If GetTickCount - sngTimeOut >= 60000 Then
' LogInfoB astrURL
GetURLText = False
GoTo ExitHere
End If
Loop
GetURLText = True
End If
End If
End If
ExitHere:
On Error Resume Next
Set xmlhttp = Nothing
Exit Function
ErrLab:
astrErrorInfo = Err.Description
Err.Clear
GoTo ExitHere
End Function

复制代码

sunshinebean · 发表于 2012-10-15 12:40:43

bloom 发表于 2012-10-14 15:16
推荐有理由吗？

winhttp可以自由操作cookie,自己控制跳转重定向,而且无缓存无cookie,绿色环保

而且有异步等待,可以自己设置超时...

xmlhttp有缓存有cookie,还不能带referer..最坑爹的是要自己判断超时.自己去读取状态

sunshinebean · 发表于 2012-10-15 12:41:45

送你个东西吧.

http://www.sunshinebean.com/upload/v.asp?id=81

bloom · 发表于 2012-10-15 19:47:11

sunshinebean 发表于 2012-10-15 12:40
winhttp可以自由操作cookie,自己控制跳转重定向,而且无缓存无cookie,绿色环保

而且有异步等待,可以自己 ...

其实用什么控件我并不太在意，我只是想搞一下，如果在大批量使用这些函数的时候，比如需要发送100万次网络数据的时候，怎么才能做到最快？

如果创建的组件，如果数据send之后立即结束，那数据肯定是发送不了的

必须得等服务器那边响应，可是这个等待对有些只发送，不管结果的情况来说是多余的

sunshinebean · 发表于 2012-10-17 23:32:23

bloom 发表于 2012-10-15 19:47
其实用什么控件我并不太在意，我只是想搞一下，如果在大批量使用这些函数的时候，比如需要发送100万次网络 ...

winhttp和xmlhttp都是创建的com组件

想自己实现得用winhttp api了,具体在winhttp.dll里面

bloom · 发表于 2012-10-18 15:28:49

sunshinebean 发表于 2012-10-17 23:32
winhttp和xmlhttp都是创建的com组件

想自己实现得用winhttp api了,具体在winhttp.dll里面

这个效率问题，并不一定需要自己实现的吧，或许有挺多其它方法的

		自动登录	找回密码
密码			立即注册

VBGood网站全文搜索

[推荐] xmlHttp.status的值（HTTP状态表）

点评