subpass.asp

来自「1、全面展示宾馆的自然情况和服务内容； 2、介绍宾馆信息,帮助客人了解宾馆相」· ASP 代码 · 共 120 行

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<% 
set rs=server.CreateObject("adodb.recordset")
sql="select * from dd where check=false order by id desc"
rs.open sql,conn,1,1
%>

<style type="text/css">
<!--
.style2 {font-size: 9pt}
-->
</style>
<TABLE cellSpacing=1 cellPadding=0 width="605" 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><span class="t style2">未确认订单管理 -&gt;<b>点评管理 </b></span><span class="style2"><b>                </b></span></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="22%" height="30" noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">编号</font></div></TD>
              <TD width="21%" noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">姓名</font> 
              </div></TD>
              <TD width="28%" height="30" align=middle noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">电话</font></div></TD>
              <TD width="29%" height="30" align=middle noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">日期</font></div></TD>
            </TR>
			<% If not rs.eof Then 
			   tol=rs.recordcount
			   shownum=10
			   rs.pagesize=shownum
			   maxpage=rs.pagecount
			   requestpage=clng(request("p"))
			   if requestpage="" or requestpage<1 then 
			   requestpage=1
			   end if
			   if requestpage>maxpage then
			   requestpage=maxpage
			   end if
			   if not requestpage=1 then
			   rs.move (requestpage-1)*rs.pagesize
			   end if
			   for i=1 to rs.pagesize and not rs.eof
			%>

            <TR> 
              <TD width=22% height="30" align=middle bgColor=#ffffff><div align="center"><%=rs("bianhao")%></div></TD>
              <TD width=21% height="30" align=middle bgColor=#ffffff><div align="center"><a href=submore.asp?id=<%=rs("id")%>><%= rs("name")%></a></div></TD>
              <TD height="30" align=middle bgColor=#ffffff><div align="center"><%= rs("tel") %></div></TD>
              <TD width=29% height="30" align=middle bgColor=#ffffff> <div align="center"><%= rs("time") %></div></TD>
            </TR>
			<% 
			rs.movenext
			if rs.eof then exit for
			next
			else
			response.Write("暂无订单！！")
			end if
			Rs.Close
            Set Rs=Nothing
            %>
            <TR> 
              <TD height="30" colspan="5" bgColor=#ffffff><div align="center"><img src="../../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
            </TR>
            <TR> 
              <TD id=mainfoot 
colSpan=5 height="30"> <div align="center">共<%=tol %>条订单 共<font color=red><%=tol%></font>页 
                  第<%=requestpage%>页 <font color=666666> 
                  <%if requestpage-1>0 then%>
                  <a href="subpass.asp?p=<%=requestpage-1%>">上一页</a> 
                  <%else%>
                  上一页 
                  <%end if%>
                  　 
                  <%if requestpage+1<=maxpage then%>
                  <a href="subpass.asp?p=<%=requestpage+1%>">下一页</a> 
                  <%else%>
                  下一页</font> 
                  <%end if%>
                </div></TD>
            </TR>
          </TBODY>
        </TABLE>
		
	  </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>