申通单号:" />
备用查询页
...正在查询,请稍等...
6 Then
If Request.Cookies("ip") = Ip Then
Response.Write("请稍等10秒后查询!
")
Else
geturl="/model/ajax.php?type=101&no="&no
html = getHTTPPage(geturl)
if html = "3" or html = "" then
Response.write "您查询的单号暂没信息,请过2小时再查询
"
Else
result = html
Response.write "您要查询的申通单号:"&no
Response.write "
"
result = Replace(result,"时间","时间") '替换内容代码
Response.write result
Response.write ""
function getHTTPPage(url)
dim Http
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "POST",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=BytesToBstr(Http.responseBody,"utf-8")
set Http=nothing
if err.number<>0 then err.Clear
end function
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 = "utf-8"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Response.Cookies("ip").Expires = DateAdd("s",3,Now())
Response.Cookies("ip") = Ip
End If
End If
End If
call ADS
Sub ADS
%>