<% '========================================================= ' File: allpaper.asp ' Version:5.0 ' Date: 2002-9-10 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= if boardid=0 then stats="全部小字报" call nav() call head_var(2,0,"","") else stats="小字报列表" call nav() call head_var(1,BoardDepth,0,0) end if if Forum_Setting(56)=0 then Errmsg=Errmsg+"
"+"

该版面未开放小子报，请浏览其他版面！" Founderr=true end if if founderr then call dvbbs_error() else if request("action")="delpaper" then call batch() else call boardeven() end if if founderr then call dvbbs_error() call activeonline() end if call footer() sub boardeven() dim totalrec dim n dim currentpage,page_count,Pcount currentPage=request("page") if currentpage="" or not isInteger(currentpage) then currentpage=1 else currentpage=clng(currentpage) end if if Cint(GroupSetting(27))=1 then %>

请点击人气切换到管理状态

<%end if%>

<% dim bgcolor set rs=server.createobject("adodb.recordset") if boardid=0 then sql="select * from smallpaper order by s_addtime desc" else sql="select * from smallpaper where s_boardid="&boardid&" order by s_addtime desc" end if rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "" else rs.PageSize = Forum_Setting(11) rs.AbsolutePage=currentpage page_count=0 totalrec=rs.recordcount while (not rs.eof) and (not page_count = rs.PageSize) if bgcolor=Forum_body(4) then bgcolor=Forum_body(5) else bgcolor=Forum_body(4) end if response.write " " response.write "" response.write "" response.write "" response.write "" page_count = page_count + 1 rs.movenext wend if request("action")="batch" then response.write "" end if response.write "

用户	标题	发布时间	<%if Cint(GroupSetting(27))=1 then%><%end if%>人气
本版还没有小字报
" response.write ""&htmlencode(rs("s_username"))&"" response.write "	" response.write ""&htmlencode(rs("s_title"))&"" response.write "	"&rs("s_addtime")&"	" if request("action")="batch" then response.write "" else response.write rs("s_hits") end if response.write "
请选择要删除的小字报，全选

" dim endpage Pcount=rs.PageCount response.write ""&_ ""&_ "" rs.close set rs=nothing end if response.write "

"&_ "页次："¤tpage&"/"&Pcount&"页"&_ "每页"&Forum_Setting(11)&" 共有"&totalrec&"条

分页： " if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if response.write "

" end sub sub batch() dim sid dim adminpaper adminpaper=false if not founduser then founderr=true Errmsg=Errmsg+"
"+"

请登陆后进行操作。" end if if (master or superboardmaster or boardmaster) and Cint(GroupSetting(27))=1 then adminpaper=true else adminpaper=false end if if UserGroupID>3 and Cint(GroupSetting(27))=1 then adminpaper=true end if if FoundUserPer and Cint(GroupSetting(27))=1 then adminpaper=true elseif FoundUserPer and Cint(GroupSetting(27))=0 then adminpaper=false end if if not adminpaper then founderr=true Errmsg=Errmsg+"
"+"

您没有权限执行本操作。" end if if request.form("sid")="" then founderr=true Errmsg=Errmsg+"
"+"

请指定相关小字报。" else sid=replace(request.Form("sid"),"'","") sid=replace(sid,";","") sid=replace(sid,"--","") sid=replace(sid,")","") end if if founderr then exit sub conn.execute("delete from smallpaper where s_boardid="&boardid&" and s_id in ("&sid&")") sucmsg="

您选择的小字报已经删除。" call dvbbs_suc() end sub %>