📄 bbs_elist.asp

📁 admin/admin.asp是WAP的后台管理登陆页面

💻 ASP

字号:

<html>
<body>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<%id=request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM book where reid="&id&" Order By date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂没有回复!<br>"
else
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 10
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
%>
<link rel="stylesheet" type="text/css" href="style.css">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
    <td align="center" valign="top"><br>
      <font color="#FF0000"><strong>查看回复</strong></font></td></tr>
<tr> 
    <td align="center" valign="top"><br></td></tr>
<tr> 
    <td align="center" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr><td align="center" width="75%" height="22" bgcolor="#999999">回复内容</td><td align="center" width="17%" height="22" bgcolor="#999999">手机号码</td><td align="center" width="8%" height="22" bgcolor="#999999">操作</td></tr>
<% do while not rs.eof %> 
<tr><td align="center" width="75%" height="22" bgcolor="#ffffff"><%=rs("name")%>:<%=ubbcode(rs("note"))%>(<%=rs("date")%>)</td><td align="center" width="17%" height="22" bgcolor="#ffffff"><% if session("flag")<3 then %><%=rs("ip")%><%end if%></td><td align="center" width="8%" height="22" bgcolor="#ffffff"><a href='delid.asp?id=<%=rs("id")%>'>删除</a></td></tr>
<%
rs.movenext
loop
%></table></td></tr>
<tr> 
    <td align="center">共<%=total%>篇回复 <%
if page>1 then%>   
<a href='bbs_elist.asp?page=<%=page-1%>'>上页</a>
<%
end if
%>
<%
if page<rs.pagecount   then%>
<a href='bbs_elist.asp?page=<%=page+1%>'>下页</a>
<%
end if
%>
(<%=page%>/<%=rs.pagecount%>)</td></tr>
</table><%end if%>
</td></tr></table>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -