📄 subpass.asp

📁 网络购物
💻 ASP
字号:
<%'=========================================''         凡人网络购物系统V4.0免费版'    FreeDown.Net info@freedown.net '            www.freedown.net'     版权所有·免费版仅供研究测试只用'            商业使用请购买正版''=========================================%>
<!--#include file="conn.asp"-->
<script>
  function openbag(id) { window.open("submore.asp?sub_id="+id,"","height=400,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");} 
</script><head>
<title>订单列表</title>
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<font color="#000000"><b>
<%
if session("user_name")="" then
        response.write  "<br>"
	response.write "<center>"
	response.write  "1.您尚未登录!请登录后再查看订单信息!"
        response.write "<br>"
	response.write  "<br>2.第一次来本站，请先<a href=reg.asp target=_blank>注册会员</a>!"
	response.write  "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
    response.end
end if
set rs=server.createobject("adodb.recordset")
%>
<%
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)


sql="select * from sub where user_name='"&session("user_name")&"' and sub_check=false"
rs.open sql,conn,3,3
if rs.eof then
    response.write "暂且没有任何订单"
    rs.close
else
    rs.pagesize=10
    totalrec=rs.recordcount
    totalpage=rs.pagecount
    if page>totalpage then page=totalpage
    rs.absolutepage=page
    rs.cachesize=rs.pagesize
    i=0
    dim sub_id(),user_name(),sub_number(),sub_adds(),sub_date()
    do while not rs.eof and (i<rs.pagesize)
        i=i+1
        redim preserve sub_id(i),user_name(i),sub_number(i),sub_adds(i),sub_date(i)
        sub_id(i)=rs("sub_id")
        user_name(i)=rs("user_name")
        sub_number(i)=rs("sub_number")
        sub_adds(i)=rs("sub_adds")
        sub_date(i)=rs("sub_date")
        rs.movenext
    loop
    rs.close
    %>
  </b></FONT>   
<table border="0" width="100%" cellspacing="0" style="border-collapse: collapse" cellpadding="0">
      <tr>
        <td width="100%" colspan="4">
        <img border="0" src="img/promo_list_top.gif" width="100%" height="4"></td>
      </tr>
      <tr>
        <td width="100%" colspan="4" bgcolor="#DBC2B0" height="25" align="center">
        <b><font color="#FF0000">未处理订单 </font>&nbsp;<a href="submitsub.asp"><font color="#FFFFFF">点击查看已处理订单</font></a></b></td>
      </tr>
      <tr>
        <td width="100%" colspan="4" bgcolor="#F5EFE7" height="20">共<font color=red><%=totalpage%></font>页 第<%=page%>页         
                      <font color=666666><%if page-1>0 then%><a href="subpass.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>　<%if page+1<=totalpage then%><a href="subpass.asp?page=<%=page+1%>">下一页</a><%else%>下一页</font><%end if%></td>
      </tr>
      <tr>
        <td width="25%" bgcolor="#F5EFE7" height="20">订单号</td>
        <td width="25%" bgcolor="#F5EFE7" height="20">订货人</td>
        <td width="25%" bgcolor="#F5EFE7" height="20">地址</td>
        <td width="25%" bgcolor="#F5EFE7" height="20">日期</td>
      </tr>
    <%for i=1 to ubound(sub_id)%>
      <tr>
        <td width="25%" bgcolor="#F5EFE7" height="20"><a href='javascript:openbag(<%=sub_id(i)%>)'><%=sub_number(i)%></a>　</td>
        <td width="25%" bgcolor="#F5EFE7" height="20"><%=user_name(i)%>　</td>
        <td width="25%" bgcolor="#F5EFE7" height="20"><%=sub_adds(i)%>　</td>
        <td width="25%" bgcolor="#F5EFE7" height="20"><%=sub_date(i)%>　</td>
      </tr>
      <%next%>
      <tr>
        <td width="100%" colspan="4" bgcolor="#F5EFE7" height="20">共<font color=red><%=totalpage%></font>页 第<%=page%>页         
                      <font color=666666><%if page-1>0 then%><a href="subpass.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>　<%if page+1<=totalpage then%><a href="subpass.asp?page=<%=page+1%>">下一页</a><%else%>下一页</font><%end if%>
                      <br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT></td>
      </tr>
    </table>
</b></font>
<%end if
set rs=nothing
conn.close
set conn=nothing%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -