📄 admin_messages.asp

📁 功能说明： 1
💻 ASP
字号:
<!--#include file="adminconn.asp"-->
<% 
id1=request("id1")
%>
 
<%
  if session("aleave")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
%>

<html>
<head>
<LINK href="../css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理评论--<%=id1%></title>
</head>

<body >
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>　</td>
  </tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr> 
    <td width="5%" height="25" align="center" bgcolor="#CCCCCC">ID</td>
    <td width="25%" align="center" bgcolor="#CCCCCC">新闻ID/评论内容</td>
    <td width="10%" align="center" bgcolor="#CCCCCC">发布者</td>
    <td width="20%" align="center" bgcolor="#CCCCCC">发布日期</td>
    <td width="10%" align="center" bgcolor="#CCCCCC">操作</td>
  </tr>
  <%
Set rs=Server.CreateObject("ADODB.RecordSet") 
if id1="" then
sql="select * from shop_pinglun order by pinglunid desc"
elseif id1<>"" and isnumeric(id1) then
sql="select * from shop_pinglun where id="&id1&" order by pinglunid desc"
end if
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=10
page=request("page")
if page<>"" then page=clng(page)
if page="" or page<1 or not isnumeric(page) then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
session("page")=page
for j=1 to rs.PageSize 
%>
  <tr bgcolor="#FFFFFF"> 
    <td height="22" align="center"><%=rs("pinglunid")%></td>
    <td>　
<%
if id1="" then 
response.write "<a href=""admin_messages.asp?id1="&rs("id")&""" target=""_self"">"&rs("id")&"</a>"
 elseif id1<>"" and isnumeric(id1) then
 response.write"<a href=""admin_messages.asp"" target=""_self"">返回</a>"
 end if 
 %>
/ <%=left(rs("pingluncontent"),100)%></td>
    <td align="center"><%=rs("pinglunname")%></td>
    <td align="center"><%=rs("pinglundate")%></td>
   <td align="center">修改 <a href="admin_messagedel.asp?id=<%=rs("pinglunid")%>">删除</a></td>   
  </tr>
  <%
rs.movenext
if rs.eof then exit for
next                                                       
%>
</table>
  
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>　</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
<form method=Post action="admin_messages.asp">  
      <td height="30" align="center"> 
    <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=admin_messages.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=admin_messages.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=admin_messages.asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=admin_messages.asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
      </td></form>
  </tr>
</table>
<% 
end if
rs.close
set rs=nothing
%>

</body>
</html>
⌨️ 快捷键说明

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