📄 elist.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/grade.asp" -->
<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">
function viewPage2(ipage){
document.frmList2.Page.value=ipage
document.frmList2.submit()
}
function viewPage1(ipage){
document.frmList2.Page.value=ipage
document.frmList2.submit()
}
</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")
%>
<!--#include file="inc/theme.asp"-->
<br>
<%
Rem ----------------------
Rem ------主程序开始------
Rem ----------------------
dim sql,rs
dim Ers,Esql
dim boardtype
dim master_1,master_2
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 announceIDRange1
dim announceIDRange2
dim skin
dim tablebackcolor,tabletitlecolor,tablebody,atablebody
dim tablefont,tablecontent,alertfont,Forumlogo
dim strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash
dim grade18,grade19,grade20,todaynum
dim arrRow1
dim guestlist
foundErr = false
ErrMsg = ""
selStr = "()"
grade18=grade(18)
grade19=grade(19)
grade20=grade(20)
if memberclass = grade18 or memberclass = grade19 or memberclass = grade(20) then
guestlist=""
else
guestlist=" lockboard<>2 and "
end if
Rem ------获取参数(get or post的)------
Rem ------包括版面的ID和页次------
set rs=server.createobject("adodb.recordset")
set iprs=server.createobject("adodb.recordset")
Call getInput()
call chkInput()
'显示版头
call boardinfo(boardid)
if foundErr then
call error(errmsg)
else
'显示版头
call boardtop(boardid)
call AnnounceList1()
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>"&_
"<TR bgColor="& Tablebody &">"&_
"<TD vAlign=top align=middle><IMG src='pic/pmlogin.gif'> </TD>"&_
"<TD vAlign=top colSpan=2> 目前"& boardtype &"上共有 <b>"& online() &"</b> 位会员与 <b>"& guest() &"</b>"&_
" 位客人.今日贴子 <font color=red><b>"& todaynum &"</b></font> "
if request.querystring("action")<>"online" then
response.write "[<a href=list.asp?boardid="&boardid&"&action=online>关闭详细列表</a>]<br>"
call onlineuser()
else
response.write "[<a href=list.asp>显示详细列表</a>]<br>"
end if
response.write "</TD></TR></TBODY></TABLE><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> <a href='list.asp?boardID="& boardid &"&page=1&skin="& skin &"'>"&_
"<img src='pic/refresh_1.gif' border=0 alt='刷新'></a>"
response.write " <b><a href='list.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>."
else
response.write " Flash标签：<font color=#003399>ON</font>."
end if
if strIMGInPosts=0 then
response.write " 表情字符转换：<font color=#990000>OFF</font>."
else
response.write " 表情字符转换：<font color=#003399>ON</font>."
end if
if Uploadpic<>1 then
response.write " 上传图片：<font color=#990000>OFF</font>."
else
response.write " 上传图片：<font color=#003399>ON</font>."
end if
if not UploadFlag then
response.write " 头像上传：<font color=#990000>OFF</font>."
else
response.write " 头像上传：<font color=#003399>ON</font>."
end if
if not titleFlag then
response.write " 用户头衔：<font color=#990000>OFF</font>."
else
response.write " 用户头衔：<font color=#003399>ON</font>."
end if
response.write "</td></tr></table></td></tr></table></td></tr></table><BR>"
end sub
sub onlineuser()
guests="客人"
dim sip
dim grade20,grade19,grade18
grade20=grade(20)
grade19=grade(19)
grade18=grade(18)
'用户信息
sql="select username,startime,lastimebk,ip,stats,userclass,browser from online where username<>'"&guests&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
else
arrRow=rs.getRows
rs.close
for i=0 to Ubound(arrRow,2)
if instr(arrRow(4,i),boardtype)>0 then
sip=arrRow(3,i)
if arrRow(5,i)=grade20 or arrRow(5,i)=grade19 then
response.write "<img src=pic/ao.gif alt=特殊人物> "
elseif arrRow(5,i)=grade18 then
response.write "<img src="&picurl&"gb(1).gif alt="&user_level18&"> "
else
response.write "<img src="&picurl&"messages1.gif> "
end if
arrRow(0,i)=htmlencode(arrRow(0,i))
response.write "<a href=javascript:openUser('"&arrRow(0,i)&"')>"
response.write "<ACRONYM TITLE=""目前位置："&arrRow(4,i)&" 来访时间："&arrRow(1,i)&" 活动时间："&arrRow(2,i)&" "&system(arrRow(6,i))&" "&browser(arrRow(6,i))&" ＩＰ地址："
if IpFlag=0 then
if memberclass=grade(19) or memberclass=grade(20) then
response.write sip
else
response.write "已设置保密"
end if
else
response.write sip
end if
response.write " 来源鉴定："
if FromFlag=0 then
if memberclass=grade19 or memberclass=grade20 then
response.write address(sip)
else
response.write "已设置保密"
end if
else
response.write address(sip)
end if
response.write """>"&arrRow(0,i)&"</ACRONYM></a> "
end if
next
arrRow=null
end if
if guestuser=1 then
'客人信息
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -