subpass.asp

这是一套集“新闻、产品、订购、招聘、下载、留言”为一体的企业型后台管理系统 系统维护人员： #################################################

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<script>
  function openbag(id) { window.open("submore.asp?sub_id="+id,"","height=420,width=750,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");} 
</script>
<%
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 dg where sub_check=false order by id DESC"
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_select2(i),sub_date(i)
        sub_id(i)=rs("id")
        user_name(i)=rs("name")
        'sub_number(i)=rs("sub_number")
        sub_select2(i)=rs("select2")
        sub_date(i)=rs("date")
        rs.movenext
    loop
    rs.close
    %>
<TABLE cellSpacing=1 cellPadding=0 width="540" align=center bgColor=#999999 
border=0>
  <TBODY> 
  <TR> 
      <TD width="735" bgcolor="#f0f0f0" id=maintitleback> 
        <TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD><IMG height=8 src="../images/pics/nav_m.gif" width=8 
            border=0></TD>
              <TD width="100%" height="30" valign="bottom" id=maintitle>点评管理 -&gt;<b>点评管理 
                </b></TD>
            </TR>
          </TBODY>
        </TABLE>
      </TD>
    </TR>
    <TR> 
      <TD id=mainbg> <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0 height="125">
          <TBODY>
            <TR> 
              <!--<TD width="25%" height="30" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">订单号</font></div></TD>-->
              <TD width="25%" height="30" noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">姓名</font> 
                </div></TD>
              <TD width="25%" height="30" align=middle noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">评点对象</font></div></TD>
              <TD width="25%" height="30" align=middle noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">日期</font></div></TD>
            </TR>
            <%for i=1 to ubound(sub_id)%>
            <TR> 
              <!--<TD width="25%" height="30" bgColor=#ffffff><div align="center"><a href='javascript:openbag(<%'=sub_id(i)%>)'><%'=sub_number(i)%></a></div></TD>-->
              <TD width=25% height="30" align=middle bgColor=#ffffff><div align="center"><a href='submore.asp?sub_id=<%=sub_id(i)%>'><%=user_name(i)%></a></div></TD>
              <TD height="30" align=middle bgColor=#ffffff><div align="center"><%=sub_select2(i)%></div></TD>
              <TD width=25% height="30" align=middle bgColor=#ffffff> <div align="center"><%=sub_date(i)%></div></TD>
            </TR>
            <%next%>
            <TR> 
              <TD height="30" colspan="4" bgColor=#ffffff><div align="center"><img src="../../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
            </TR>
            <TR> 
              <TD id=mainfoot 
colSpan=4 height="30"> <div align="center">共<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%>
                </div></TD>
            </TR>
          </TBODY>
        </TABLE>
		<%end if
		set rs=nothing
conn.close
set conn=nothing%>
		</TD>
    </TR>
  </TBODY>
</TABLE>
<table width="540" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td align="center">&nbsp;</td>
  </tr>
  <tr> 
    <td align="center"><font color="#990000"><strong>附注：</strong></font><font color="#FF0000">点击定单名，进入定单管理页面！</font></td>
  </tr>
</table>