📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/stats.asp"-->
<!--#include file="inc/grade.asp"-->
<%Response.Expires=0%>
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<title><%=ForumName%>--列表</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<!--#include file="inc/theme.asp"-->
</HEAD> <BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0">
<%
dim rs,sql
dim rs1,sql1
dim tmprs
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
%>
<br>
<TABLE border=0 width="95%" align=center>
<TBODY>
<TR>
<TD align=left vAlign=top><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></TD>
<TD Align=right valign=top>
今日贴数：<font color=red><b><%=todays()%></b></font> | 主题总数：<b><%=titlenum()%></b> | 帖子总数：<b><%=gettipnum()%></b><br>
注册会员<B><%=allusers()%></B> | 欢迎新会员<a href=javascript:openScript('dispuser.asp?name=<%=newuser()%>',350,300)><font color=<%=AlertFontColor%>><%=newuser()%></font></a>加入
<p>现在时间为 <%=FormatDateTime(now,4)%> |<img src="PIC/0037.gif" width="20" height="15"><a href=queryresult.asp?type=6&selCompare=2>查看新贴子</a>
| <img src="PIC/0026.gif" width="20" height="14"><a href="toplist.asp?orders=2">新进来宾</a>
|<img src="PIC/9.gif" width="15" height="15"><a href=toplist.asp?orders=1>发贴排行</a>
</TD></TR></TBODY></TABLE> <br>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0 align=center>
<TBODY>
<TR>
<TD bgColor="<%=Tablebackcolor%>">
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor="<%=Tablebodycolor%>" colSpan=8>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="14" width="16%"><img align=absMiddle src="<%=picurl%>gb.gif">
论坛消息广播:</td>
<td height="14" width="39%">
<%
sql="select top 1 boardid,title,content,addtime from bbsnews where boardid=0 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=0" target=_blank><acronym title="当前没有公告"><font color="#3300FF">当前没有公告</font></acronym></a></b>
(<%=now()%>) </marquee>
<%else%>
<marquee scrollamount=3><b><a href="announcements.asp?boardid=0" target=_blank><acronym title="<%=rs("content")%>"><%=rs("title")%></acronym></a></b><font color="#038F18">
公布时间:</font><%=rs("addtime")%></marquee>
<%end if%>
<%rs.close%>
</td>
<td height="14" width="45%"> </td>
</tr>
</table>
</TD>
</TR>
<TR bgColor="<%=Tabletitlecolor%>">
<TD width="5%"> </TD>
<TD vAlign=bottom width="37%"><B><FONT COLOR=<%=TableFontcolor%>>论坛</FONT></B></TD>
<TD vAlign=center noWrap align=middle width="4%"><B><FONT COLOR=<%=TableFontcolor%>>主题</FONT></B>
</TD>
<TD vAlign=center noWrap align=middle width="4%"><B><FONT COLOR=<%=TableFontcolor%>>贴子</FONT></B>
</TD>
<TD vAlign=center noWrap align=middle width="22%"><B><FONT COLOR=<%=TableFontcolor%>>最后发表</FONT></B>
</TD>
<TD vAlign=center align=middle width="12%"><B><FONT COLOR=<%=TableFontcolor%>>版主</FONT></B></TD>
<TD vAlign=center align=middle width="6%"><B><FONT COLOR=<%=TableFontcolor%>>收藏</FONT></B></TD>
</TR>
<%
sql="select id,class from class order by id"
rs.open sql,conn,1,1
do while not rs.eof
id=rs("id")
%>
<TR>
<TD bgColor="<%=Tablebodycolor%>" colSpan=7><B><%=rs("class")%></B>
</TD>
</TR>
<%
if session("userclass")=user_level7 or session("userclass")=user_level8 or session("userclass")=user_level9 then
sql1="select boardid,boardtype,class,readme,lastbbsnum,lastposttime,lastpostuser,boardmaster,boardmaster1,boardmaster2,lockboard,lasttopicnum from board "
sql1=sql1&" where class="&id&" order by boardid"
else
sql1="select boardid,boardtype,class,readme,lastbbsnum,lastposttime,lastpostuser,boardmaster,boardmaster1,boardmaster2,lockboard,lasttopicnum from board "
sql1=sql1&" where class="&id&" and lockboard<>2 order by boardid"
end if
' response.write ""&sql1&""&session("userclass")&""
' response.end
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<TR bgColor="<%=Tablebodycolor%>">
<TD vAlign=top align=middle>
<%if rs1("lockboard")=0 then%>
<IMG src="<%=Picurl%>/on.gif">
<%else%>
<IMG src="<%=Picurl%>/offlock.gif" alt="本论坛已锁定">
<%end if%>
</TD>
<TD vAlign=top>
<div align="center"><a href="list.asp?boardid=<%=rs1("boardid")%>"><font color="#009900"><b><%=rs1("boardtype")%></b></font></a><br>
<%=rs1("readme")%> </div>
</TD>
<TD vAlign=center noWrap align=middle><%=rs1("lasttopicnum")%></TD>
<TD vAlign=center noWrap align=middle><%=rs1("lastbbsnum")%></TD>
<TD noWrap> <IMG border=0 src="<%=Picurl%>/lastpost.gif"> <%=rs1("lastposttime")%>:<a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs1("lastpostuser"))%>',350,400)><%=htmlencode(rs1("lastpostuser"))%></a></TD>
<TD vAlign=center align=middle bgColor=<%=TABLEBODYCOLOR%>> <a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs1("boardmaster"))%>',350,400)><%=rs1("boardmaster")%></a><br>
<%if rs1("boardmaster1")<>"" then%>
<a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs1("boardmaster1"))%>',350,400)><%=rs1("boardmaster1")%></a><br>
<%end if%>
<%if rs1("boardmaster2")<>"" then%>
<a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs1("boardmaster2"))%>',350,400)><%=rs1("boardmaster2")%></a>
<%end if%>
</TD>
<TD vAlign=center noWrap align=middle> <A
href="javascript:window.external.AddFavorite('<%=ForumURL%>?boardid=<%=rs1("boardid")%>','赣州一品网--<%=rs1("boardtype")%>论坛（www.1ping.com）')" target=_self><img src=<%=Picurl%>/fav_add.gif border=0></A>
</TD>
</TR>
<%
rs1.movenext
loop
rs1.close
rs.movenext
loop
rs.close
sql="select boardname,readme,url from bbslink order by id"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
%>
<TR>
<TD bgColor="<%=Tablebodycolor%>" colSpan=8><b>友情论坛</b> </TD>
</TR>
<%
do while not rs.eof
%>
<TR bgColor="<%=Tablebodycolor%>">
<TD vAlign=top align=middle><IMG src="<%=Picurl%>/shareforum.gif"> </TD>
<TD vAlign=top colSpan=7> <a href="<%=rs("url")%>" target=_blank><%=htmlencode(rs("boardname"))%></a><br>
<%=htmlencode(rs("readme"))%> </TD>
</TR>
<%
rs.movenext
loop
end if
rs.close
function online()
guests="客人"
tmprs=conn.execute("Select count(id) from online where username<>'"&guests&"'")
online=tmprs(0)
set tmprs=nothing
if isnull(online) then online=0
end function
function guest()
guests="客人"
tmprs=conn.execute("Select count(id) from online where username='"&guests&"'")
guest=tmprs(0)
set tmprs=nothing
if isnull(guest) then guest=0
end function
function allusers()
tmprs=conn.execute("Select count(userid) from [user]")
allusers=tmprs(0)
set tmprs=nothing
if isnull(allusers) then allusers=0
end function
function newuser()
set tmprs=server.createobject("adodb.recordset")
sql="Select top 1 username from [user] order by userid desc"
tmprs.open sql,conn,1,1
if tmprs.eof and tmprs.bof then
newuser="没有会员"
else
newuser=tmprs("username")
end if
set tmprs=nothing
end function
function gettipnum()
tmprs=conn.execute("Select Count(announceID) from bbs1")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function
function titlenum()
tmprs=conn.execute("Select Count(announceID) from bbs1 where parentID=0")
titlenum=tmprs(0)
set tmprs=nothing
if isnull(titlenum) then titlenum=0
end function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -