📄 super.asp

📁 酒店管理
💻 ASP
字号:
<HTML>
<HEAD>
<TITLE>列出会员</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"> 
<style type="text/css">
<!--
.tm {  border-color: black black black #993300; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 1px}
.unnamed1 {  font: 9pt "宋体"}
.W {  font: 12pt "宋体"; color: #993300}
.unnamed2 {  font: 12pt "微软简行楷"; color: #FFFFFF}
.wt {  font: 14pt "微软简中圆"; color: #009900}
.a {  font: 9pt "宋体"; color: #DF0031}
-->
</style> <link rel="stylesheet" href="file:///D%7C/Inetpub/wwwroot/table1.css"> <link rel="stylesheet" href="file:///D%7C/Inetpub/wwwroot/text.css"> 
</HEAD>


<BODY BGCOLOR="#FFFFFF" >
<%set conn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
set rsmax=server.createobject("ADODB.Recordset")
set rsmin=server.createobject("ADODB.Recordset")
conn.open Application("file_jingan1")
page=Request.QueryString("page")

If page="" then
page=1
else
page=cint(page)
end if

sqlstr="select * from t_member"
rs.open sqlstr,conn,1,1

sqlmax="select max(list) 'list' from t_member" 
rsmax.open sqlmax,conn,1,1
maxlist=rsmax("list")
rsmax.close()

sqlmin="select min(list) 'list' from t_member"
rsmin.open sqlmin,conn,1,1
minlist=rsmin("list")
rsmin.close()

If not rs.eof then
rs.PageSize=24
rs.AbsolutePage=page
End if
%> 
<table bgcolor=#aaaaaa cellpadding=2 cellspacing=1 height=33 
            width="99%">
  <tbody> 
  <tr bgcolor=#f3f3dd> 
    <td><font style="FONT-SIZE: 14px">　<a href="display.asp">查看会员信息</a> | <a href="t_ding.asp">操作会员预定</a>| 
      <a href="f_ding.asp">操作非会员预定</a>| </font></td>
  </tr>
  </tbody>
</table>

            <table width="95%" border="0" class="textright1">
              <%If rs.recordcount>1 then%> 
              <tr> 
                <td align=left>共有<%=rs.recordcount%>条匹配记录&nbsp;&nbsp;&nbsp;<%for i=1 to rs.pagecount%><a href="super.asp?page=<%=i%>"><%=i%>&nbsp;</a>&nbsp;<%next%> 
                  &nbsp;当前页码是（<%=page%>/<%=rs.pagecount%>页）</td>
              </tr>
              <%end if%> 
            </table>
 




<table width="95%" border="0" cellspacing="1" cellpadding="0" class="textright1" > 
<tr class="texthead1" bgcolor="#FFDDE3"> 
    <td width="6%"> 
      <div align="center">编号</div></td>
    <td width="18%"> 
      <div align="center">姓名</div>
    </td>
    <td width="18%"> 
      <div align="left">电话</div>
    </td>
    <td width="27%" height="20"> 
      <div align="center">email</div>
    </td>
    <td width="31%"> 
      <div align="center">详细资料</div>
    </td></tr> 
<%querysubmit=1%>
<%If querysubmit=0 then%> <%If not rs.eof then%> <%count=1
rs.movefirst()
do while not rs.eof
flag=count mod 2
%> <tr bgcolor=<%If flag=1 then%>"#EEFCFF"<%else%>"#FFFFF4"<%End if%>> 
    <td width="6%" height="22"> 
      <div align="center"><%=rs("list")%></div></td>
    <td width="18%" height="22"><%=rs("name1")%></td>
    <td width="18%" height="22"><%=rs("tel")%></td>
    <td width="27%" height="22"> 
      <div align="center"><%=rs("email")%></div></td>
    <td width="31%" height="22" align=center><a href="neirong.asp?list=<%=rs("list")%>">内容</a></td>
  </tr> 
<%count=count+1
rs.MoveNext()
loop
else%> <tr bgcolor="#FFFFF4"> 
    <td width="6%"> 
      <div align="center"></div></td>
    <td height="20" width="18%">&nbsp;</td>
    <td width="18%" height="20">&nbsp;</td>
    <td width="27%"> 
      <div align="center"></div></td>
    <td width="31%">&nbsp;</td>
  </tr> <%end if%> <%else%> 
<%If not rs.eof then%> <%count=24*(page-1)+1
for i=1 to 24
flag=i mod 2
if not rs.eof then%> <tr bgcolor=<%If flag=1 then%>"#EEFCFF"<%else%>"#FFFFF4"<%End if%>> 
    <td width="6%" height="22"> 
      <div align="center"><%=rs("list")%></div></td>
    <td width="18%" height="22"><%=rs("name1")%></td>
    <td width="18%" height="22"><%=rs("tel")%></td>
    <td width="27%" height="22"> 
      <div align="center"><%=rs("email")%></div></td>
    <td width="31%" height="22" align=center><a href="neirong.asp?list=<%=rs("list")%>">内容</a></td>
  </tr> 
<%else 
exit for
end if
count=count+1
rs.MoveNext()
next
else%> <tr bgcolor="#FFFFF4"> 
    <td width="6%"> 
      <div align="center"></div></td>
    <td width="18%" height="20">&nbsp;</td>
    <td height="20" width="18%">&nbsp;</td>
    <td width="27%"> 
      <div align="center"></div></td>
    <td width="31%">&nbsp;</td>
  </tr> <%end if%> <%end if%> 
</table>


      

<P>&nbsp;</P>
</BODY>
</HTML>
⌨️ 快捷键说明

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