ASP编程实现各家快递公司订单状态查询

本文介绍asp xmlhttp组件异步读取、提交数据到远程服务器，通过此原理可以实现类似文章采集、图片采集、天气预报等功能。

废话少说，直接贴上代码，以申通快递查询为从例，其它公司的原理一样

------------------

search.htm

------------------

<form target="_blank" action="sto.asp" method="get">
              快件号:
              <input name="s_id" type="text" id="s_id">
                  <input name="submit4" type="submit" value="查询">
</form>

------------------

sto.asp

------------------

'========================================================================
'字符编码函数
'========================================================================
Function BytesToBstr(body,code)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
        objstream.Write body
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset =code
        BytesToBstr = objstream.ReadText 
        objstream.Close
        set objstream = nothing
End Function
'====================================================================

'==================================================================
'提交参数

'==================================================================
Function PostHttpPage(loginUrl,loginActUrl,PostData,CharSets)
    Dim xmlHttp
    Dim RetStr     
    Set xmlHttp = CreateObject("Microsoft.XMLHTTP") 
    xmlHttp.Open "POST", loginActUrl, False
    XmlHTTP.setRequestHeader "Content-Length",Len(PostData)
    xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlHttp.setRequestHeader "Referer", loginUrl
    xmlHttp.Send PostData
    PostHttpPage=BytesToBstr(xmlHttp.responseBody,CharSets)
    Set xmlHttp = nothing