VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4810|回复: 10

[推荐] xmlHttp.status的值(HTTP状态表)

[复制链接]
发表于 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:服务端错误,服务器不能正确执行一个正确的请求
 楼主| 发表于 2012-10-14 12:02:00 | 显示全部楼层
XMLHTTP.readyState 的五种状态

    0 -(未初始化)还没有调用 send()方法

    1 -(载入)已调用 send()方法,正在发送请求

    2 -(载入完成)send()方法执行完成,已经接收到全部响应内容

    3 -(交互)正在解析响应内容

    4 -(完成)响应内容解析完成,可以在客户端调用了
回复 支持 反对

使用道具 举报

发表于 2012-10-14 13:04:03 | 显示全部楼层
推荐winhttp
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-10-14 15:16:33 | 显示全部楼层
sunshinebean 发表于 2012-10-14 13:04
推荐winhttp

推荐有理由吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-10-14 16:48:06 | 显示全部楼层
其实我很想知道,怎样提高它的效率,

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

附上一个函数,有待高手指点
  1. '************************************************
  2. '函数名称: GetURLText
  3. '功能说明: 获取一个URL的源代码,
  4. '返回值  :
  5. '参数    :
  6. '           1、ByVal ablnPost           是Post还是GET,
  7. '           2、ByVal astrHost           Host,一般是不带http://的,例如“www.baidu.com”
  8. '           3、ByVal astrURL            要获取的URL,例如:http://www.baidu.com
  9. '           4、ByVal astrPostData       要发送的数据
  10. '           5、ByVal astrReferer        Referer
  11. '           6、ByRef astrText
  12. '           7、ByRef [astrErrorInfo]
  13. '           8、Byval [astrFakeIP]
  14. '           9、ByVal [astrAuthorization_Basic]
  15. '           10、ByRef [astrCookies]     如果有传Cookie进来,需要设置cookie[],
  16. '           11、ByRef [astrCookiesRet]  本次返回的cookies值
  17. '
  18. '作者    : bloom
  19. '日期    : 2011-12-17 15:48:18
  20. '************************************************
  21. Public Function GetURLText(ByVal ablnPost As Boolean, _
  22.                 ByVal astrHost As String, ByVal astrURL As String, _
  23.                 ByVal astrPostData As String, ByVal astrReferer As String, _
  24.                 ByRef astrText As String, _
  25.                 Optional ByRef astrErrorInfo As String = "", _
  26.                 Optional ByVal astrFakeIP As String, _
  27.                 Optional ByVal astrAuthorization_Basic As String = "", _
  28.                 Optional ByRef astrCookies As String = "", _
  29.                 Optional ByRef astrCookiesRet As String = "", _
  30.                 Optional ByVal ablnGetReturn As Boolean = True _
  31.                 ) As Boolean
  32.                
  33.     On Error GoTo ErrLab
  34.    
  35.     Dim sngTimeOut      As Single
  36.     Dim xmlhttp         As Object
  37.    
  38.     astrText = ""
  39.     astrErrorInfo = ""
  40.     astrCookiesRet = ""
  41.    
  42.     Set xmlhttp = CreateObject("microsoft.xmlhttp")
  43.     If Not xmlhttp Is Nothing Then
  44.         If LenB(astrURL) Then
  45.             With xmlhttp
  46.                 .Open IIf(ablnPost, "POST", "GET"), astrURL, True '异步
  47.                 Call .setRequestHeader("CONTENT-TYPE", "application/x-www-form-urlencoded")
  48.                 Call .setRequestHeader("Accept", "*/*")
  49.                 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)")

  50. '                '不取缓存数据
  51.                 Call .setRequestHeader("If-Modified-Since", "0")
  52.                 If LenB(astrAuthorization_Basic) Then
  53.                     Call .setRequestHeader("Authorization Basic", astrAuthorization_Basic)
  54.                 End If
  55.                 If LenB(astrFakeIP) Then
  56.                     Call .setRequestHeader("X-Forwarded-For", astrFakeIP)
  57.                 End If
  58.                 If LenB(astrHost) Then
  59.                     Call .setRequestHeader("Host", astrHost)
  60.                 End If
  61.                 If LenB(astrReferer) Then
  62.                     Call .setRequestHeader("Referer", astrReferer)
  63.                 End If
  64.                 '设置Cookies,分解看里面有没有SetCookie的选项
  65.                 If LenB(astrCookies) Then
  66.                     Call .setRequestHeader("Cookie", astrCookies)
  67.                 End If
  68.                
  69.                 If LenB(astrPostData) Then
  70.                     .send (astrPostData)
  71.                 Else
  72.                     .send
  73.                 End If
  74.             End With
  75.             
  76.             If ablnGetReturn Then
  77.     '            不用等待返回
  78.                 sngTimeOut = GetTickCount()
  79.     '            Debug.Print xmlhttp.Status
  80.                 Do While xmlhttp.ReadyState <> 4 '等待返回
  81.     '                Debug.Print "xmlhttp.readyState:" & xmlhttp.readyState
  82.                     Sleep 300
  83.                     DoEvents
  84.     '                Call MyDoEvents(0.02)
  85.                     '如果时间超超时
  86.                     If GetTickCount - sngTimeOut >= 60000 Then
  87.     '                    LogInfoB astrURL
  88.                         GetURLText = False
  89.                         GoTo ExitHere
  90.                     End If
  91.                 Loop
  92.     '            Debug.Print "xmlhttp.readyState:" & xmlhttp.readyState
  93.                 If xmlhttp.Status = 200 Then    '成功
  94.                     astrText = xmlhttp.responseText
  95.                     '获取到Cookies
  96.                     astrCookiesRet = xmlhttp.getAllResponseHeaders()
  97.                     GetURLText = True
  98.                 Else
  99.                     GetURLText = False
  100.                     astrErrorInfo = "HTTP错误,状态码:" & xmlhttp.Status
  101.                 End If
  102.             Else
  103.                sngTimeOut = GetTickCount()
  104.                 Do While xmlhttp.ReadyState < 2 '只要为2就行,不需要解析数据
  105.                     'Sleep 300
  106.                     DoEvents
  107.                     If GetTickCount - sngTimeOut >= 60000 Then
  108.     '                    LogInfoB astrURL
  109.                         GetURLText = False
  110.                         GoTo ExitHere
  111.                     End If
  112.                 Loop
  113.                 GetURLText = True
  114.             End If
  115.         End If
  116.     End If
  117.    
  118. ExitHere:
  119.     On Error Resume Next
  120.    
  121.     Set xmlhttp = Nothing
  122.    
  123.     Exit Function
  124. ErrLab:
  125.     astrErrorInfo = Err.Description
  126.     Err.Clear
  127.     GoTo ExitHere

  128. End Function
复制代码
回复 支持 反对

使用道具 举报

发表于 2012-10-15 12:40:43 | 显示全部楼层
bloom 发表于 2012-10-14 15:16
推荐有理由吗?

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

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

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

使用道具 举报

发表于 2012-10-15 12:41:45 | 显示全部楼层

点评

谢谢,收了  发表于 2012-10-15 19:47
谢谢,收了  发表于 2012-10-15 19:43
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-10-15 19:47:11 | 显示全部楼层
sunshinebean 发表于 2012-10-15 12:40
winhttp可以自由操作cookie,自己控制跳转重定向,而且无缓存无cookie,绿色环保

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

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


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

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

使用道具 举报

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

winhttp和xmlhttp都是创建的com组件

想自己实现得用winhttp api了,具体在winhttp.dll里面
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-10-18 15:28:49 | 显示全部楼层
sunshinebean 发表于 2012-10-17 23:32
winhttp和xmlhttp都是创建的com组件

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

这个效率问题,并不一定需要自己实现的吧,或许有挺多其它方法的
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-3 01:33

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表