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

dim gethtm,sendurl,senddata,return_htm,s_id,s_code
if(request.QueryString("s_id")<>"") then
 s_id=request.QueryString("s_id")
else
 response.Write("请输入订单号")
 response.end
end if
s_code=request.QueryString("s_code")
sendurl="http://www.sto.cn:8888/sto/index.jsp?"
senddata="wen="&s_id
return_htm=PostHttpPage("http://www.sto.cn/",sendurl,senddata,"utf-8")
response.Write(return_htm)

原理大概是提交数据到申通的查询入口，获取返回的HTM代码，现在返回的完全是申通的网页代码，你可以使用字符截取函数只显示实际订单的数据，其它的页面代码过滤掉就可以实现像http://www.ekaid.com/这样的查询效果了，其它快递公司的查询以此类推，需要注意的就是不同快递公司的网站采取的编码不同，一般是utf-8,和gb2312,可以通过源查对方源代码中的

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

看出charset的设置是什么编码格式。OK，以上代码稍加修改就可以实现天气预报、新闻采集等功能，请读者自行调试。