<% set conn=Server.CreateObject("ADODB.connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("client1.asp") set rs=server.CreateObject("adodb.recordset") sql="select * from info order by consignment_date desc" rs.open sql,conn,1,1 Page = clng(Request.QueryString("Page")) rs.PageSize = 60 If Page = 0 then Page = 1 end if set Session("rs") = rs %>
 
 
 
首页> 每日发货单查问  
    收集是一个虚拟的世界,对于网上购物,有些伴侣有点不太相信,这也是不免会有的设法,其实对于咱们,请大师尽可安心,咱们的网站曾经具有必然的规模和汗青时间,咱们将会不断勤奋下去,每日的发货记实更是做得相当通明化,细到每位用户的发货内容咱们城市大白写明,虽然给咱们的事恋人员带来了更多的工作量,并且要花费很大的办事器空间,但这也是咱们较具有说服力的诺言证明,同时也为泛博初学者伴侣供给了一个购物选择参考,您能够看看别人一般是采办哪些物品,再按照本人的环境来决定需要哪些物品。

    对于出了问题而返寄反省的,咱们一率免收邮费,板子如有问题,咱们将在两天内赐与处理,所以请大师尽可安心咱们的售后办事,多年来,也博患了浩繁用户的好评。


    申明:咱们将在当天上传发货消息,只需在这里显示有记实,就申明货已发出,发货日期如下表中的“日期”所示,尽请各位用户安心

    
为了庇护各位用户的地址及相联系干系系人材料,不泄露,因公司事务忙碌,从2011-7-1 起,咱们将不再上传发货消息,每位客户的采办记实咱们城市保留做记实,办事依旧。若是对买卖不安心,建议去咱们的淘宝店用领取宝进行买卖,淘宝领取宝买卖是一种比力平安的网上买卖编制,感激大师不断来对咱们的支撑。
<% if rs.RecordCount<> 0 then rs.AbsolutePage =Page for iPage = 1 to rs.PageSize %> <% rs.MoveNext if rs.EOF then exit for next end if rs.close conn.close %>
第 <% = Page %> 页     共 <% = rs.PageCount %> 页   共 <% = rs.RecordCount %> 笔记实     <% if Page > 1 then %> 一页  上一页  <%end if if Page < rs.PageCount then %> 下一页   较后一页  <%end if%>     第 跳转
姓名
地址
发货编制
包裹单号
发货日期
<%=rs("name")%>
<%=rs("province")%>
<%=rs("package_type")%>
<%=rs("package_id")%>
<%=rs("consignment_date")%>