unzhuti.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="ubb.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="admingongneng.asp"-->
<%
Response.Write "<table width=775 align=center border=0 align=center cellspacing=0><tr><td>&nbsp;</td><td>"
if uzhiwu=100 then '是管理员
alldel=request("alldel")
if alldel<>"" then
set rsdelnr=server.createobject("adodb.recordset")
ccdelnr="delete * from neirong where shanzhu=1"
rsdelnr.open ccdelnr,conn,1,3
response.redirect "unzhuti.asp"
end if
shan="select * from neirong where shanzhu=1"
set rs=server.createobject("adodb.recordset")
rs.open shan,conn,1,1
 if not rs.eof then '如果回收站有贴吧就显示出来
 rs.PageSize = 30 'pagesize属性指定了每页要显示的记录条数 
 Page = CLng(Request("Page")) 'string型转化为long型 
 If Page < 1 Then Page = 1 
 
 If Page > rs.PageCount Then Page = rs.PageCount 
 
 rs.AbsolutePage = Page
 For iPage = 1 To rs.PageSize
 
  if len(rs("neirong"))>100 then
  neirong=left(rs("neirong"),100)&"…"
  else
  neirong=rs("neirong")
  end if
 neirong=Autolink(neirong)
 if rs("layer")=1 then '是主题贴 
 Response.Write"● [主题]："&rs("zhuti")&" [内容]："&neirong&" [ <a href=undel.asp?del="&rs("ids")&"><font color=#FF0000>还原</font></a> ][<a href=zhutidel.asp?del="&rs("ids")&"><font color=#FF0000>永远删除</font></a>]<br><br>"
 else
 huitie="select * from neirong where ids="&rs("huiid")&""
 set rshuitie=server.createobject("adodb.recordset")
 rshuitie.open huitie,conn,1,1
 Response.Write"○ [回复][第"&rs("layer")&"楼主题]："&rshuitie("zhuti")&" [内容]："&neirong&" [ <a href=undel.asp?del="&rs("ids")&"><font color=#FF0000>还原</font></a>] [<a href=zhutidel.asp?del="&rs("ids")&"><font color=#FF0000>永远删除</font></a>]<br><br>"
 end if
 rs.MoveNext 
 If rs.EOF Then Exit For 
 Next 
 '显示页数
 Response.write"第" & Page & "页/总共有" & rs.PageCount & " 页 每页"& rs.PageSize &"贴"

If Page > 1 Then 
Response.Write "<A HREF=unzhuti.asp?Page=1>第一页</A>