快递查询首页】【系统查询报错】【投诉速尔快递】【收藏工具www.sure56.com
速尔快递服务电话:0769-85010803 投诉监督:4008822168

<% If Trim(Request("No"))<>"" Then Response.Write(GetInfo(Trim(Request("No")))) End If Function GetInfo(No) Dim TempInfo If len(No)>6 Then URL="http://wap.sure56.com/wapquery.asp?billcode="&No TempInfo=GetHttp(URL,"gb2312") ' If Instr(TempInfo,"基本信息")<>0 or Instr(TempInfo,"签收信息")<>0 Then TempInfo=Split(TempInfo,"")(1) TempInfo=Split(TempInfo,"返回首页")(0) TempInfo = Replace(TempInfo,"wapquery_more.asp?billcode=","sure.asp?no=") '替换内容代码 ' Else ' If Instr(TempInfo,"无此运单")<>0 Then ' TempInfo="错误的查询单号 "&No&"; 如刚发的快递请过二天再查询; 如确定单号没问题请通过上面的报错链接通知管理员" ' End If ' End If Else TempInfo="您查询的是错误单号" End If GetInfo=TempInfo End Function %>