📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/grade.asp"-->
<%response.cookies("liulang")("stats")="论坛首页"%>
<!--#include file="inc/stats.asp"-->
<!--#include file="inc/info.asp"-->
<% dim username
dim lvzhe_ip
username=request.cookies("liulang")("username")
lvzhe_ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if lvzhe_ip = "" then
lvzhe_ip = Request.ServerVariables("REMOTE_ADDR")
end if
response.write "<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 -->
<%
'response.end
response.write "</HEAD><BODY bgcolor=#ffffff alink=#333333 vlink=#333333 link=#333333 topmargin=0 leftmargin=0>"
dim rs,sql
dim master_1,master_2
sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser,maxuser,Maxusertime from config"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
maxuser = rs (5) + 1
maxusertime = rs(6)
response.write "<TABLE border=0 width=95% align=center><TBODY>"&_
"<TR><TD align=left><a href='"& HostURL &"'><img border=0 src='"& logo &"'></a></TD>"&_
"<TD Align=right>热烈欢迎新会员<a href=javascript:openUser('"&htmlencode(rs(4)) &"')>"&_
"<font color="& AlertFontColor &">"& htmlencode(rs(4)) &"</font></a>加入<br>"&_
"今日贴数：<font color=red><b>"& rs(2) &"</b></font>"&_
" | 主题总数：<b>"& rs(0) &"</b> | 帖子总数：<b>"& rs(1) &"</b>" &_
"| 注册会员<B>"& rs(3) &"</B>"&_
"</TD></TR></TBODY></TABLE>"
response.write "<style>"&_
"TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }"&_
"TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; }"&_
"</style>"&_
"<table cellpadding=6 cellspacing=0 width=95% align=center border=0>"&_
"<TR><td align=center width=34>"&_
"<IMG align=absMiddle src=pic/gb.gif width=18 height=18></td><td width=300 align=left>"
rs.close
set rs=nothing
sql="select top 1 boardid,title,content,addtime from bbsnews where boardid=0 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=0 target=_blank><ACRONYM TITLE=当前没有公告>当前没有公告</ACRONYM></a></b>("&now()&")"
else
response.write "<marquee scrollamount=3 onmouseover=this.stop() onmouseout=this.start()><b><a href=announcements.asp?boardid=0 target=_blank><ACRONYM TITLE="&rs(2)&"><font color=red>"&rs(1)&"</font></ACRONYM></a></b>("&rs(3)&")</marquee>"
end if
rs.close
set rs=nothing
response.write "</TD>"
response.write "<td align=right>"&_
"<p><img border=0 src=""pic/time.gif""> 现在时间为 "& FormatDateTime(now,4) &" <img border=0 src=""pic/newtopic.gif""> <a href=queryresult.asp?type=6&selCompare=2>查看新的贴子</a> <img src=""pic/userlist1.gif""> <a href=toplist.asp?orders=2>新进来宾</a> <img src=""pic/top1.gif""> <a href=toplist.asp?orders=1>发贴排行</a>"&_
"</td></tr></table>"
response.write "<table cellspacing=0 border=0 width=95% bgcolor="""&Tablebackcolor&""" align=center><tr><td height=1></td></tr></table>"&_
"<table cellpadding=6 cellspacing=0 width=95% align=center bordercolor="""&Tablebackcolor&""" border=1>"&_
"<TR bgColor="""&Tabletitlecolor&""">"&_
"<TD width=26><B><FONT COLOR="&TableFontcolor&">状态</font></b></TD>"&_
"<TD vAlign=center width=*><B><FONT COLOR="&TableFontcolor&">论坛名称</FONT></B></TD>"&_
"<TD vAlign=center align=middle width=80><B><FONT COLOR="&TableFontcolor&">版主</FONT></B></TD>"&_
"<TD vAlign=center noWrap align=middle width=38><B><FONT COLOR="&TableFontcolor&">主题</FONT></B> </TD>"&_
"<TD vAlign=center noWrap align=middle width=38><B><FONT COLOR="&TableFontcolor&">贴子</FONT></B> </TD>"&_
"<TD vAlign=center noWrap align=middle width=168><B><FONT COLOR="&TableFontcolor&">最后发表</FONT></B> </TD>"&_
"<TD vAlign=center align=middle width=26><B><FONT COLOR="&TableFontcolor&">收藏</FONT></B></TD>"&_
"</TR></table>"
sql="select id,class from class order by id"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
id=rs(0)
response.write "<table cellpadding=6 cellspacing=0 width=95% align=center bordercolor="""&Tablebackcolor&""" border=1>"&_
"<TR><TD bgColor="""&Tablebodycolor&""" colSpan=7><B>"&rs(1)&"</B></TD></TR>"
call board(id)
response.write "</table>"
rs.movenext
loop
rs.close
set rs=nothing
'response.write "<BR>"
set rs=server.createobject("adodb.recordset")
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
response.write "<hr width=95% size=1 noshade><table cellspacing=0 border=0 width=95% bgcolor="""&Tablebackcolor&""" align=center><tr><td height=1></td></tr></table>"&_
"<table cellpadding=6 cellspacing=0 width=95% align=center bordercolor="""&Tablebackcolor&""" border=1>"&_
"<TR><TD bgColor="""&Tabletitlecolor&""" colSpan=2><FONT COLOR="&TableFontcolor&"><b>友情论坛</b></font></TD></TR>"
do while not rs.eof
response.write "<TR>"&_
"<TD vAlign=top align=middle width=26 bgColor="""&aTablebodycolor&"""><IMG src=pic/shareforum.gif> </TD>"&_
"<TD vAlign=top bgColor="""&Tablebodycolor&""">"&_
"<a href="&rs(2)&" target=_blank>"&htmlencode(rs(0))&"</a><br>"&_
""&htmlencode(rs(1))&"</TD></TR>"
rs.movenext
loop
response.write "</table>"
end if
rs.close
set rs=nothing
response.write "<BR>"&_
"<table cellspacing=0 border=0 width=95% bgcolor="""&Tablebackcolor&""" align=center><tr><td height=1></td></tr></table>"&_
"<table cellpadding=6 cellspacing=0 width=95% align=center bordercolor="""&Tablebackcolor&""" border=1>"&_
"<TR><TD bgColor="""&Tabletitlecolor&""" colSpan=2><FONT COLOR="&TableFontcolor&"><b>用户来访信息</b></font></TD></TR>"&_
"<TR><TD vAlign=top align=middle width=26 bgColor="""&aTablebodycolor&"""><IMG align=absMiddle src=pic/inboxnonew.gif> </TD>"&_
"<TD vAlign=top bgColor="""&Tablebodycolor&""">"&_
"您的 真实 <b>IP</b> 是："&lvzhe_ip&"，"&_
"来自："&address(Request.ServerVariables("REMOTE_ADDR"))&"，"&_
""&system(Request.ServerVariables("HTTP_USER_AGENT"))&"，"&browser(Request.ServerVariables("HTTP_USER_AGENT"))&"</TD></TR>"
response.write "<TR><TD bgColor="""&Tabletitlecolor&""" colSpan=2><FONT COLOR="&TableFontcolor&"><b>论坛在线统计 ( 同时在线峰值: "&maxuser&" 人，发生时刻: "&maxusertime&" )</b>"
response.write " <a href=online.asp?boardid="&boardid&">[在线列表]</a> "
if request("action")<>"online" then
response.write "[<a href=index.asp?action=online>关闭详细列表</a>]"
else
response.write "[<a href=index.asp>显示详细列表</a>]"
end if
response.write "</font></TD></TR>"&_
"<TR><TD vAlign=top align=middle width=26 bgColor="""&aTablebodycolor&"""><IMG align=absMiddle src=pic/pmlogin.gif> </TD>"&_
"<TD vAlign=top bgColor="""&Tablebodycolor&"""> 现在论坛上共有 <b>"&online()&"</b> 位会员与 <b>"&guest()&"</b> 位客人<br>"
if request("action")<>"online" then
call onlineuser()
end if
response.write "</TD></TR></TABLE></CENTER>"
%>
<!--#include file="footer.asp"-->
<%
function online()
guests="客人"
tmprs=conn.execute("Select count(*) 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(*) from online where username='"&guests&"'")
guest=tmprs(0)
set tmprs=nothing
if isnull(guest) then guest=0
end function
sub board(id)
if memberclass=grade(18) or memberclass=grade(19) or memberclass=grade(20) then
sql1="select boardid,boardtype,class,readme,lastbbsnum,lastposttime,lastpostuser,boardmaster,lockboard,lasttopicnum,indexIMG,lastRootID,lastTopic from board "
sql1=sql1&" where class="&id&" order by boardid"
else
sql1="select boardid,boardtype,class,readme,lastbbsnum,lastposttime,lastpostuser,boardmaster,lockboard,lasttopicnum,indexIMG,lastRootID,lastTopic from board "
sql1=sql1&" where class="&id&" and lockboard<>2 order by boardid"
end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
do while not rs1.eof
response.write "<TR><TD vAlign=top align=middle width=26 bgColor="""&aTablebodycolor&""">"
if rs1(8)=1 then
response.write "<IMG src=pic/offlock.gif alt=本论坛已锁定>"
else
response.write "<IMG src=pic/on.gif></td>"
end if
if rs1(10)<>"" then
response.write "<TD vAlign=top width=* bgColor="""&Tablebodycolor&""" align=left><table width=100% border=0 align=left><tr><td align=left width='10%'><img src="&rs1(10)&" border=0></td><td align=left width=*><a href=""list.asp?boardid="&rs1(0)&"""><font color=#000066>"&rs1(1)&"</font></a><br>"&rs1(3)&"</td></tr></table>"
else
response.write "<TD vAlign=top width=* bgColor="""&Tablebodycolor&""" align=left><a href=""list.asp?boardid="&rs1(0)&"""><font color=#000066>"&rs1(1)&"</font></a><br>"&rs1(3)
end if
response.write "</TD><TD vAlign=center align=middle bgColor="""&aTablebodycolor&""" width=80>"
master_1=split(rs1(7), "|")
if ubound(master_1) < 3 then
for i = 0 to ubound(master_1)
master_2=""&master_2&"<a href=""javascript:openScript('dispuser.asp?name="+master_1(i)+"',350,300)"">"+master_1(i)+"</a><br>"
next
response.write master_2
master_2=""
else
for i = 0 to 2
master_2=""&master_2&"<a href=""javascript:openScript('dispuser.asp?name="+master_1(i)+"',350,300)"">"+master_1(i)+"</a><br>"
next
response.write master_2&"More..."
master_2=""
end if
response.write "</TD>"&_
"<TD vAlign=center noWrap align=middle width=38 bgColor="""&Tablebodycolor&""">"&rs1(9)&"</TD>"&_
"<TD vAlign=center noWrap align=middle width=38 bgColor="""&Tablebodycolor&""">"&rs1(4)&"</TD>"&_
"<TD noWrap width=168 bgColor="""&aTablebodycolor&""">"
if rs1(12)<>"" then
response.write "主题：<a href='dispbbs.asp?boardID="&rs1(0)&"&RootID="&rs1(11)&"&ID="&rs1(11)&"'>"&left(htmlencode(replace(rs1(12),""<br>"","""")),12)&"</a>"
end if
response.write "<br>最后发表: <font color="& AlertFontColor &"><a href=javascript:openScript('dispuser.asp?name="&htmlencode(rs1(6))&"',350,300)>"&htmlencode(rs1(6))&"</a></font> <IMG border=0 src=pic/lastpost.gif><br>"&rs1(5)
response.write "</TD><TD vAlign=center noWrap align=middle width=26 bgColor="""&Tablebodycolor&""">"&_
"<A href=""javascript:window.external.AddFavorite('"&ForumURL&"?boardid="&rs1(0)&"','"&ForumName&"--"&rs1(1)&"论坛（"&ForumUrl&"）')"" target=_self><img src=pic/fav.gif border=0></A>"&_
"</TD></TR>"
rs1.movenext
loop
rs1.close
set rs1=nothing
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
do while not rs.eof
sip=rs(3)
if rs(5)=grade20 or rs(5)=grade19 then
response.write "<img src=pic/ao.gif alt=特殊人物> "
elseif rs(5)=grade18 then
response.write "<img src="&picurl&"gb(1).gif alt="&user_level18&"> "
else
response.write "<img src="&picurl&"messages1.gif> "
end if
response.write "<a href=javascript:openScript('dispuser.asp?name="&htmlencode(rs(0))&"',350,300)>"
response.write "<ACRONYM TITLE=""目前位置："&rs(4)&" 来访时间："&rs(1)&" 活动时间："&rs(2)&" "&system(rs(6))&" "&browser(rs(6))&" ＩＰ地址："
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 """>"
response.write htmlencode(rs(0))
response.write "</ACRONYM></a> "
rs.movenext
loop
rs.close
set rs=nothing
'客人信息
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
do while not rs.eof
sip=rs(3)
response.write "<img src="&picurl&"messages2.gif> "
response.write "<a href=#>"
response.write "<ACRONYM TITLE=""目前位置："&rs(4)&" 来访时间："&rs(1)&" 活动时间："&rs(2)&" "&system(rs(6))&" "&browser(rs(6))&" ＩＰ地址："
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 """>"
response.write "客人"
response.write "</ACRONYM></a> "
rs.movenext
loop
rs.close
set rs=nothing
end sub
function maxuser_2()
tmprs=conn.execute("Select count(id) from online")
maxuser_2=tmprs(0)
set tmprs=nothing
if isnull(maxuser_2) then maxuser_2=0
end function
if maxuser < maxuser_2 then
conn.execute ("update config set maxuser='"&maxuser_2&"'")
conn.execute ("update config set maxusertime='"&now()&"'")
end if
Call endConnection
%>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -