📄 list.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/char.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()
}
</script>
<script language="javascript">
function viewPage1(ipage){
document.frmList2.Page.value=ipage
document.frmList2.submit()
}
</script>
</head>
<!--#include file="inc/theme.asp"-->
<body bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0">
<br>
<%
Rem ----------------------
Rem ------主程序开始------
Rem ----------------------
dim sql,rs
dim Ers,Esql
dim boardtype
dim boardmaster,boardmaster1,boardmaster2
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 tableback
dim tabletitle
dim tablebody
dim atablebody
dim tablefont
dim tablecontent
dim alertfont
foundErr = false
ErrMsg = ""
selStr = "()"
Rem ------获取参数(get or post的)------
Rem ------包括版面的ID和页次------
set rs=server.createobject("adodb.recordset")
set iprs=server.createobject("adodb.recordset")
Call getInput()
call chkInput()
'显示版头
call activeuser()
call boardinfo()
if foundErr then
call error()
else
if skin=0 then
%>
<!--#include file="inc/boardskin0.asp"-->
<%
call AnnounceList0()
if bBoardEmpty <> true then
if foundErr = true then
call error()
else
call showPageList0()
if founderr=true then call error()
end if
end if
call boardlist()
elseif skin=1 then
%>
<!--#include file="inc/boardskin1.asp"-->
<%
call AnnounceList1()
call listPages3()
call boardlist()
if founderr=true then call error()
end if
if err.number<>0 then err.clear
end if
REM 显示版面信息---Headinfo
sub boardinfo()
sql="select boardtype,lockboard,boardmaster,boardmaster1,boardmaster2,boardskin,Tableback,Tabletitle,Tablebody,aTablebody,TableFont,TableContent,AlertFont from board where boardID="&cstr(boardid)
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
boardtype=rs("boardtype")
if request("skin")="" then
skin=rs("boardskin")
elseif not isInteger(request("skin")) then
skin=0
elseif request("skin")=0 then
skin=0
elseif request("skin")=1 then
skin=1
else
skin=0
end if
lockboard=rs("lockboard")
Tableback=trim(rs("Tableback"))
Tabletitle=trim(rs("Tabletitle"))
Tablebody=trim(rs("Tablebody"))
aTablebody=trim(rs("aTablebody"))
TableFont=trim(rs("TableFont"))
TableContent=trim(rs("TableContent"))
AlertFont=trim(rs("AlertFont"))
if trim(rs("boardmaster"))<>"" then
boardmaster="<a href=javascript:openScript('dispuser.asp?name="&htmlencode(rs("boardmaster"))&"',350,300)>"&rs("boardmaster")&"</a> "
else
response.write "无版主"
end if
if trim(rs("boardmaster1"))<>"" then
boardmaster=boardmaster&"<a href=javascript:openScript('dispuser.asp?name="&htmlencode(rs("boardmaster1"))&"',350,300)>"&rs("boardmaster1")&"</a> "
end if
if trim(rs("boardmaster2"))<>"" then
boardmaster=boardmaster&"<a href=javascript:openScript('dispuser.asp?name="&htmlencode(rs("boardmaster2"))&"',350,300)>"&rs("boardmaster2")&"</a>"
end if
else
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您选择的版面不存在。"
exit sub
end if
rs.close
if lockboard=2 then
if session("userclass")<>user_level7 and session("userclass")<>user_level8 and session("userclass")<>user_level9 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您没有权限登陆该版面。"
exit sub
end if
end if
%>
<TABLE border=0 width="95%" align=center>
<TBODY>
<TR>
<TD vAlign=top width=30%><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></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="<%=picurl%>openfold.gif" border=0> <a href="list.asp?boardid=<%=boardid%>&skin=<%=skin%>"><%=boardtype%></a>
</TD></TR></TBODY></TABLE>
<br>
<SCRIPT FOR=forum EVENT=onclick>a();</SCRIPT>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0 align=center>
<TBODY>
<tr>
<td align=center width=34 valign=middle>
<img src="<%=picurl%>gb.gif" border=0 alt="本分论坛的公告！不可不看！！" width=20 height=17>
</td>
<td valign=middle align=left width="383">
<%
sql="select top 1 boardid,title,content,addtime from bbsnews where boardid="&boardid&" order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<marquee scrollamount=3><b><a href="announcements.asp?boardid=<%=boardid%>" target=_blank><ACRONYM TITLE="当前没有公告">当前没有公告</ACRONYM></a></b><font color="#009900">现在时间:</font><%=now()%><marquee scrollamount=3>
<%else%>
<marquee scrollamount=3><b><a href="announcements.asp?boardid=<%=boardid%>" target=_blank><ACRONYM TITLE="<%=rs("content")%>"><%=rs("title")%></ACRONYM></a></b><font color="#009900">公布时间:</font><%=rs("addtime")%><marquee scrollamount=3>
<%end if%>
<%rs.close%>
</td>
<td align=right valign=middle width="306">
<p>
<form action="list.asp" method="get">
<input type=hidden name="skin" value="<%=skin%>">
<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="<%=Tablebodycolor%>">
<TD vAlign=top align=middle width="34"><IMG src="<%=picurl%>pmlogin.gif">
</TD>
<TD vAlign=top colSpan=2> 目前<%=boardtype%>上共有 <b><%=online()%></b> 位会员与 <b><%=guest()%></b> 位客人.
<%if request("action")<>"online" then%>
[<a href=list.asp?action=online&skin=<%=skin%>&boardid=<%=boardid%>>关闭详细列表</a>]
<%else%>
[<a href=list.asp?skin=<%=skin%>&boardid=<%=boardid%>>显示详细列表</a>]
<%end if%>
<br>
<%if request("action")<>"online" then%>
<%call onlineuser()%>
<%end if%>
</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%>&skin=<%=skin%>"><%if boardskin=0 then%><img src="<%=picurl%>newthread.gif" border="0" alt="发表一个新主题"><%else%><img src="<%=picurl%>post.gif" border="0" alt="发表一个新主题"><%end if%></a> <b><%if lockboard=1 then%>本论坛已锁定，任何用户均不能发言<%elseif lockboard=2 then%>本论坛为隐含论坛，只有贵宾等级以上方可发言<%end if%></b>
</td>
<td align=right>
<a href="list.asp?boardID=<%=boardid%>&page=1&skin=<%=skin%>"><img src="<%=PicUrl%>refresh.gif" border=0 alt="刷新本论坛" width=38 height=12></a> <b>
<%if skin=0 then%>
<a href=list.asp?skin=1&boardid=<%=boardid%>>BBS风格</a><%else%><a href=list.asp?skin=0&boardid=<%=boardid%>>讨论区风格</a><%end if%> </a>
论坛版主</b>：
<%=boardmaster%></td></tr>
</table>
<%
end sub
sub boardlist()
%>
<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
set rs1=server.createobject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -