<% if Trim(request.QueryString("type")) = "memo" then %> <% id=checkStr(cint(Trim(request.QueryString("id")))) if len(id)>8 then response.write "" response.end end if set rs =server.CreateObject("adodb.RecordSet") sql="select id,title,tel,ffnum,ffdate,ffcompany,ffnum,fftel,memo from vtoppos_ffd where id=" & Clng(id) rs.Open sql,conn,1,3 %> <% rs.close set rs=nothing %>

电话	公司名称	发货日期	承运物流公司	货单号	查询电话
<%= rs("tel") %>	<%= rs("title") %>	<%= rs("ffdate") %>	"><%= rs("ffcompany") %>	<%=rs("ffnum")%>	<%=rs("fftel")%>
详细	<%= rs("memo") %>
返回上一页

<% end if %> <% if Trim(request.form("KeyWord")) <>"" then %> <% dim RefreshIntervalTime RefreshIntervalTime = 3 '防止刷新的时间秒数，0表示不防止 If Not IsEmpty(Session("visit")) and isnumeric(Session("visit")) and int(RefreshIntervalTime) > 0 Then if (timer()-int(Session("visit")))*1000 < RefreshIntervalTime * 1000 then Response.write ("") Response.write ("刷新过快，请稍候...") Session("visit") = timer() Response.end end if End If Session("visit") = timer() keyid=Trim(request.form("KeyWord")) if len(keyid)>30 then response.write "" response.end end if set rs =server.CreateObject("adodb.RecordSet") sql="select id,title,tel,ffnum,ffdate,ffcompany,ffnum,fftel from vtoppos_ffd where tel ='"&keyid&"' order by id desc" rs.Open sql,conn,1,3 if not rs.eof then all_count=rs.recordcount rs.pagesize=15 page=CInt(request("page")) if page<1 then page=1 end if overallpage=rs.pagecount rs.absolutepage=page for i=1 to rs.pagesize %> <% rs.movenext if rs.eof then exit for next end if %>

电话	公司名称	发货日期	承运物流公司	货单号	查询电话	详细
<%= rs("tel") %>	<%= rs("title") %>	<%= rs("ffdate") %>	" target="_blank"><%= rs("ffcompany") %>	<%=rs("ffnum")%>	<%=rs("fftel")%>	">查看详细

<% end if %> <% if checkStr(cint(Trim(request.QueryString("id")))) = "" then %> <% end if %>