|
<%
If Trim(Request("No"))<>"" Then
Response.Write(GetInfo(Replace((Request("No"))," ","")))
End If
Function GetInfo(No)
Dim TempInfo
If len(No)>6 Then
URL="http://222.73.105.237/ykjcx/cxend.php?wen="&No
TempInfo=GetHttp(URL,"gb2312")
' If Instr(TempInfo,"发件")<>0 or Instr(TempInfo,"扫描")<>0 Then
TempInfo=Split(TempInfo,"快件跟踪记录 | ")(1)
TempInfo=Split(TempInfo," ","") '替换内容代码
TempInfo = Replace(TempInfo,"95%","728") '替换
' Else
' TempInfo="您查询韵达单号 "&No&" 暂没有信息，如刚发的快递请过3小时再查"
' End If
Else
TempInfo="您查询的是错误单号"
End If
GetInfo=TempInfo
End Function
%>
|
