📄 list.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/grade.asp" -->
<!--#include file="inc/boardskin2.asp"-->
<%
response.write "<html><head>"&_
"<meta NAME=GENERATOR Content='Microsoft FrontPage 3.0' CHARSET=GB2312>"&_
"<title>"& ForumName &"</title>"&_
"<link rel=stylesheet type=text/css href=forum.css>"&_
"<script language=javascript src=inc/list.js></script></head>"&_
"<body bgcolor=#ffffff alink=#333333 vlink=#333333 link=#333333 topmargin=0 leftmargin=0>"
dim membername
dim memberword
dim memberclass
membername=request.cookies("liulang")("username")
memberword=request.cookies("liulang")("password")
memberclass=request.cookies("liulang")("userclass")
Rem ----------------------
Rem ------主程序开始------
Rem ----------------------
dim sql,rs
dim Ers,Esql
dim username,cname
dim foundErr
dim ErrMsg
dim bBoardEmpty
dim boardid
dim timeLimited,limitime,tl
dim totalrec
dim n,i,RowCount
dim p
dim currentpage
dim skin
dim guestlist
dim boardtype,lockboard
dim master_1,master_2
dim tablebackcolor,tabletitlecolor,tablebody,atablebody
dim tablefont,tablecontent,alertfont,Forumlogo
dim strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash
dim grade18,grade19,grade20,todaynum
dim announceIDRange1,announceIDRange2
dim arrRow1
foundErr = false
ErrMsg = ""
selStr = "()"
grade18=grade(18)
grade19=grade(19)
grade20=grade(20)
if memberclass = grade18 or memberclass = grade19 or memberclass = grade20 then
guestlist=""
else
guestlist=" lockboard<2 and "
end if
Rem ------获取参数(get or post的)------
Rem ------包括版面的ID和页次------
Call getInput()
call chkInput()
rem -------获取相关版面参数------
call boardinfo(boardid)
%>
<!--#include file="inc/theme.asp"-->
<style>
TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }
TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; color: #000000; }
</style>
<br>
<%
if foundErr then
call error(errmsg)
else
'显示版头
call boardtop(boardid)
call AnnounceList1()
if bBoardEmpty <> true then
if founderr=true then call error(errmsg)
end if
call listPages3()
call boardlist()
if founderr=true then call error(errmsg)
if err.number<>0 then err.clear
end if
sub boardinfo(boardid)
sql="select boardtype,lockboard,boardmaster,boardskin,Tableback,Tabletitle,Tablebody,aTablebody,TableContent,AlertFont,Forumlogo,TableFont,strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash,todaynum from board where "&guestlist&" boardID="&cstr(boardid)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
arrRow=rs.getrows
rs.close : set rs=nothing
boardtype=arrRow(0,0)
lockboard=arrRow(1,0)
Tablebackcolor=arrRow(4,0)
Tabletitlecolor=arrRow(5,0)
Tablebody=arrRow(6,0)
aTablebody=arrRow(7,0)
TableFontcolor=arrRow(11,0)
TableContent=arrRow(8,0)
Forumlogo=arrRow(10,0)
AlertFont=arrRow(9,0)
strAllowForumCode=arrRow(12,0)
strAllowHTML=arrRow(13,0)
strIMGInPosts=arrRow(14,0)
strIcons=arrRow(15,0)
strflash=arrRow(16,0)
todaynum=arrRow(17,0)
boardmaster=arrRow(2,0)
arrRow=null
if trim(boardmaster)<>"" then
master_1=split(boardmaster, "|")
for i = 0 to ubound(master_1)
master_2=""+master_2+"<a href=""javascript:openUser('"+master_1(i)+"')"">"+master_1(i)+"</a> "
next
else
master_2="无版主"
end if
else
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您选择的版面不存在或者您没有权限察看该版面。"
exit sub
end if
end sub
REM 显示版面信息---Headinfo
sub boardtop(boardid)
call activeuser()
response.write "<TABLE border=0 width=95% align=center>"&_
"<TBODY><TR>"&_
"<TD vAlign=top width=30% ><img border=0 src='"&Forumlogo&"'></TD>"&_
"<TD valign=middle align=top> <img src='"&picurl&"closedfold.gif' border=0> <a href=index.asp>"& ForumName &"</a><br>"&_
" <img src='"&picurl&"bar.gif' border=0 width=15 height=15><img src='pic/openfold.gif' border=0> <a href='list.asp?boardid="&boardid &"'>"& boardtype &"</a>"&_
"</TD></TR></TBODY></TABLE><br>"&_
"<TABLE cellSpacing=0 cellPadding=0 width=95% border=0 align=center>"&_
"<TBODY><tr>"&_
"<td align=center width=34 valign=middle> <img src='pic/gb.gif' border=0 alt=本分论坛的公告！不可不看！！ width=20 height=17>"&_
"</td><td valign=middle align=left>"
sql="select top 1 title,content,addtime from bbsnews where boardid="&boardid&" order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='当前没有公告'>当前没有公告</ACRONYM></a></b> ("& now() &")"
else
response.write "<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='"& rs("content") &"'>"& rs("title") &"</ACRONYM></a></b> ("& rs("addtime") &")"
end if
rs.close
set rs=nothing
response.write "</td><td align=right valign=middle><p>"&_
"<form action=list.asp method=get>"&_
"<A href=javascript:JM_setTarget() value='' id=globalTarget></a>"&_
"<input type=hidden name="& boardid &" value="& boardid &">"&_
"<select name=selTimeLimit>"&_
"<option value=all>查看所有的主题"&_
"<option value=1>查看一天内的主题"&_
"<option value=2>查看两天内的主题"&_
"<option value=7>查看一星期内的主题"&_
"<option value=15>查看半个月内的主题"&_
"<option value=30>查看一个月内的主题"&_
"<option value=60>查看两个月内的主题"&_
"<option value=180>查看半年内的主题"&_
"</select>"&_
"<input type=submit value=go>"&_
"</form></p></td></tr>"
response.write "</TD></TR></TBODY></TABLE>"
response.write "<table cellspacing=0 border=0 width=95% bgcolor="""&Tablebackcolor&""" align=center style=""TABLE-LAYOUT: fixed"" ><tr><td height=1></td></tr></table>"&_
"<table cellpadding=6 cellspacing=0 width=95% align=center bordercolor="""&Tablebackcolor&""" border=1 >"&_
"<TR><TD bgColor="""&Tabletitlecolor&""" width=""95%""><FONT COLOR="&TableFontcolor&">目前论坛总共在线：<b>"& online() &"</b> 人,本版上共有 <b>"&localuser()&"</b> 位会员和 <b>"& guest() &"</b> 位客人</font>.今日贴子:<font color=red><b>"& todaynum &"</b>篇</font>"
response.write "<a href=online.asp?boardid="&boardid&">[在线列表]</a>"
if request.querystring("action")<>"online" then
response.write "[<a href=list.asp?boardid="&boardid&"&action=online>关闭详细列表</a>]<br>"
response.write "</TD>"&_
"<td bgColor="""&Tabletitlecolor&""" width=50><a href=""javascript:this.location.reload()""><img src=pic/refresh_1.gif border=0 width=40 height=12></td></TR>"&_
"<TR><TD vAlign=top bgColor="""&Tablebodycolor&""" colspan=2>"
call onlineuser()
response.write "</TD></TR></table>"
else
response.write "[<a href=list.asp>显示详细列表</a>]<br>"
response.write "</TD></TR></table>"
end if
response.write "<br><table cellpadding=0 cellspacing=0 border=0 width=95% align=center><tr>"&_
"<td align=center width=2 valign=middle> </td>"&_
"<td align=left valign=middle> <a href='announce.asp?boardid="& boardid &"'>"&_
"<img src='pic/post.gif' border=0 alt='发新帖'></a>"&_
" <a href='vote.asp?boardid="&boardid&"'>"&_
"<img src='pic/newpoll.gif' border=0 alt='发起新投票'></a></td>"&_
"<td align=right>"
response.write " <b><a href='elist.asp?boardid="& boardid &"'>论坛精华</a> "&_
"论坛版主</b>："& master_2 &"</td></tr></table>"
end sub
sub boardlist()
response.write "<table border=0 cellpadding=0 cellspacing=3 width=95% align=center>"&_
"<form action=list.asp method=get><tr>"&_
"<td valign=middle nowrap> <div align=right>"&_
"<select name='boardid' onchange='javascript:submit()'>"&_
"<option value=''>跳转论坛<option value=''>"
dim rs1,sql1
sql="select id,class from class order by id"
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
arrRow=rs.getRows
rs.close : set rs=nothing
for i=0 to Ubound(arrRow,2)
response.write "<option value='1'>>> "& arrRow(1,i) &" <<"
sql1="select boardid,boardtype from board where "&guestlist&" class="& arrRow(0,i)&" order by boardid"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
rs1.close : set rs1=nothing
response.write "<option value=''>没有论坛"
else
arrRow1=rs1.getrows
rs1.close : set rs1=nothing
for ii=0 to Ubound(arrRow1,2)
response.write "<option value='"& arrRow1(0,ii) &"'>"& arrRow1(1,ii)
next
arrRow1=null
end if
response.write "<option value=''>"
next
arrRow=null
end if
response.write "</select><div></td></tr></form></table>"
response.write "<table cellspacing=0 cellpadding=0 width=95% align=center bgcolor="& Tablebackcolor &" border=0>"&_
"<tr><td><table cellspacing=1 cellpadding=3 width=100% border=0><tr bgcolor="& Tabletitlecolor &">"&_
"<td width=80% ><font color="& TableFontcolor &"><b> -=> "& ForumName &"图例</b></font></td>"&_
"<td noWrap width=20% align=right><font color="& TableFontcolor &">所有时间均为 - 北京时间 </td>"&_
"</tr><tr><td colspan=3 bgcolor="& Tablebody &">"&_
"<table cellspacing=4 cellpadding=0 width=92% border=0 align=center>"&_
"<tr><td><img src=pic/folder.gif> 开放的主题</td>"&_
"<td><img src=pic/hotfolder.gif> 回复超过10贴</td>"&_
"<td><img src=pic/lockfolder.gif> 锁定的主题</td>"&_
"<td><img src=pic/istop.gif> 固定顶端的主题 </td>"&_
"<td> <img src=pic/isbest.gif> 精华帖子 </td>"&_
"</tr><tr><td width=100% colspan=5>"
if strAllowHTML=0 then
response.write "HTML标签：<font color=#990000>OFF</font>."
else
response.write "HTML标签：<font color=#003399>ON</font>."
end if
if strAllowForumCode=0 then
response.write " UBB标签：<font color=#990000>OFF</font>."
else
response.write " UBB标签：<font color=#003399>ON</font>."
end if
if strIcons=0 then
response.write " 贴图标签：<font color=#990000>OFF</font>."
else
response.write " 贴图标签：<font color=#003399>ON</font>."
end if
if strflash=0 then
response.write " Flash标签：<font color=#990000>OFF</font>."
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -