📄 bbs.asp

📁 客户管理系统使用ASP.NET和Access
💻 ASP
字号:
<!--#include file="islogin.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/css.css" rel="stylesheet" type="text/css">
<title></title>
<style type="text/css">
<!--
@import url("../style/admin.css");
-->
</style></head>

<body>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table_1">
  <tr>
    <td height="30" class="table_1_top">&nbsp;</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">
	<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="table_1_inc">
      <tr>
        <td width="55" align="center"><strong>ID</strong></td>
        <td width="50" align="center"><strong>用户ID</strong></td>
        <td width="100" align="center"><strong>用户名</strong></td>
        <td><strong>标题</strong><strong></strong></td>
        <td width="55" align="center"><strong>修改</strong></td>
        <td width="55" align="center"><strong>删除</strong></td>
        <td width="55" align="center"><strong>删除评论</strong></td>
      </tr>
<%
page=request.querystring("page")
set rs=server.createobject("adodb.recordset")
sql="select id,MemberID,Member,title,up from BBS order by up desc, id desc"
rs.open sql,conn,1,1
on error resume next
maxjilu=rs.recordcount
perpage=20'每页显示记录数
t=page*perpage
rs.absoluteposition=t+1
f=t+perpage

ww=0
for i=t+1 to f
ww=ww+1
%>	  
      <tr <%if (ww mod 2)=1 then%>bgcolor="#F8F8FA"<%end if%> >
        <td align="center"><%=rs("id")%></td>
        <td align="center"><%=rs("MemberID")%></td>
        <td align="center"><%=rs("Member")%></td>
        <td><%=rs("title")%></td>
        <td align="center"><a href="BBS_mod.asp?action=mod&id=<%=rs("id")%>">修改</a></td>
        <td align="center"><a href="BBS_do.asp?action=del&id=<%=rs("id")%>" target="_blank"  onclick='javascript: return confirm("警告！！！删除&nbsp;[<%=rs("title")%>]??&nbsp;,&nbsp;不建议删除") '>删除</a></td>
        <td align="center"><a href="BBS_do.asp?action=delre&id=<%=rs("id")%>" target="_blank">删除评论</a></td>
      </tr>
<%
rs.movenext 
if rs.eof then
exit for
rs.close 
set rs=nothing
end if
next
tt=page*perpage
    if page<0 then
   page=0
   end if
   if tt>=maxjilu then
   ttt=page-1
   end if
   if maxjilu-tt<perpage then
   ttt=page-1
      else
   ttt=page
   end if
   u=1
   do while u*perpage<maxjilu
   u=u+1
   loop
session("page")=ttt
set conn=nothing
%>    
</table></td>
  </tr>
  <tr>
    <td height="25" align="center" bgcolor="#FFFFFF">        <div style="text-align:left;background-color:#e6e6e6; height:20px;padding-top:2px;font-size:12px;">找到<font color="#FF0000"><%=maxjilu%></font>条| <a href="?page=0">首页</a>-<a href="?page=<%=(page-1)%>">上页</a>-<a href="?page=<%=(page+1)%>" >下页</a>-<a href="?page=<%=(u-1)%>" >末页</a>
            <% 
  if ttt<=5 then 
  uu=0 
  while uu<u  
   %>
            <a href="?page=<%=(uu)%>"><%=(uu+1)%></a>
            <%uu=uu+1 
 wend 
  else%>
            <a style="color:blue" href="?page=<%=(ttt-6)%>">[<%=(ttt-5)%>]</a> <a style="color:blue" href="?page=<%=(ttt-5)%>">[<%=(ttt-4)%>]</a> <a style="color:blue" href="?page=<%=(ttt-4)%>">[<%=(ttt-3)%>]</a> <a style="color:blue" href="?page=<%=(ttt-3)%>">[<%=(ttt-2)%>]</a> <a style="color:blue" href="?page=<%=(ttt-2)%>">[<%=(ttt-1)%>]</a> <a style="color:blue" href="?page=<%=(ttt-1)%>" >[<%=(ttt)%>]</a> <a style="color:blue" href="?page=<%=(ttt)%>">[<%=(ttt+1)%>]</a>
            <%end if%>
        </div></td>
  </tr>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明

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