|
|
| ORDER NUMBER |
TRACKING NUMBER |
SHIPPING DATE |
SHIPPING COMPANY | <%word=replace(request.form("word"),"'","''")
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
%><%showlink=false'快递显示出后台自己写的链接(可能是后台的备注)
set rs=server.CreateObject("adodb.recordset")
sql="select * from sub order by deliverydate desc"
if word<>"" then
sql="select * from sub where (sub_number like '%"&word&"%' or kj like '%"&word&"%') order by sub_id desc"
end if
rs.open sql,conn,1,1
if rs.eof then
response.Write "| No result. | "
else
rs.pagesize=15
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
do while not rs.eof and (i
| <%=rs("sub_number")%> |
<%if showlink and ""<>""&rs("link") then%><%=rs("kj")%><%else%><%=rs("kj")%><%end if%> |
<%=rs("deliverydate")%> |
<%=rs("shippingtype")%> |
| <%
rs.movenext
loop
%>
| <%else%> | <%end if
rs.close
set rs=nothing
%> | |
