📄 index-bak.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)%> | <a href=queryresult.asp?type=6&selCompare=2>查看新的贴子</a> | <a href=toplist.asp?orders=2>新进来宾</a> | <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>
<IMG align=absMiddle src="<%=picurl%>gb.gif"> 论坛消息广播:
<%
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
%>
<b><a href="announcements.asp?boardid=0" target=_blank><ACRONYM TITLE="当前没有公告">当前没有公告</ACRONYM></a></b>
(<%=now()%>)
<%else%>
<b><a href="announcements.asp?boardid=0" target=_blank><ACRONYM TITLE="<%=rs("content")%>"><%=rs("title")%></ACRONYM></a></b> (<%=rs("addtime")%>)
<%end if%>
<%rs.close%>
</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>
<a href="list.asp?boardid=<%=rs1("boardid")%>"><%=rs1("boardtype")%></a><br><%=rs1("readme")%>
</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,300)><%=htmlencode(rs1("lastpostuser"))%></a></TD>
<TD vAlign=center align=middle bgColor=<%=TABLEBODYCOLOR%>>
<a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs1("boardmaster"))%>',350,300)><%=rs1("boardmaster")%></a><br>
<%if rs1("boardmaster1")<>"" then%>
<a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs1("boardmaster1"))%>',350,300)><%=rs1("boardmaster1")%></a><br>
<%end if%>
<%if rs1("boardmaster2")<>"" then%>
<a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs1("boardmaster2"))%>',350,300)><%=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.aspsky.net）')" 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
function todays()
tmprs=conn.execute("Select count(announceid) from bbs1 Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
sub onlineuser()
guests="客人"
dim sip
set iprs=server.createobject("adodb.recordset")
sql="select username,startime,lastimebk,ip,stats,userclass,browser from online where username<>'"&guests&"'"
rs.open sql,conn,1,1
do while not rs.eof
sip=rs("ip")
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
else
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
ipsql="select Top 1 country,city from address where ip1 <="&num&" and ip2 >="&num&""
iprs.open ipsql,conn,1,1
if not iprs.eof then
country=iprs("country")
city=iprs("city")
else
country="亚洲"
city=""
end if
iprs.close
end if
if rs("userclass")="版主" or rs("userclass")="管理员" then
%>
<img src=<%=picurl%>ao.gif alt="特殊人物"><a href="javascript:openScript('dispuser.asp?name=<%=htmlencode(rs("username"))%>',350,300)">
<ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%> 来源鉴定：<%if FromFlag=0 then%>已设置保密<%else%><%=country%><%=city%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
elseif rs("userclass")="贵宾" then
%>
<img src=<%=picurl%>gb(1).gif alt="贵宾"><a href="javascript:openScript('dispuser.asp?name=<%=htmlencode(rs("username"))%>',350,300)">
<ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%> 来源鉴定：<%if FromFlag=0 then%>已设置保密<%else%><%=country%><%=city%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
else
%>
<img src=<%=picurl%>messages1.gif><a href="javascript:openScript('dispuser.asp?name=<%=htmlencode(rs("username"))%>',350,300)">
<ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%> 来源鉴定：<%if FromFlag=0 then%>已设置保密<%else%><%=country%><%=city%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
end if
rs.movenext
loop
rs.close
if guestuser=1 then
sql="select username,startime,lastimebk,ip,stats,userclass,browser from online where username='"&guests&"'"
rs.open sql,conn,1,1
do while not rs.eof
%>
<img src=<%=picurl%>messages2.gif><a href="">
<ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
rs.movenext
loop
rs.close
end if
end sub
%>
<TR>
<TD bgColor="<%=Tablebodycolor%>" colSpan=8><b>您的个人状态</b>
</TD></TR>
<TR bgColor="<%=Tablebodycolor%>">
<TD vAlign=top align=middle><IMG src="<%=Picurl%>/inboxnonew.gif"> </TD>
<TD vAlign=top colSpan=8>
<%if session.contents("username")="" then%>
您还没有登陆，只有登陆用户才能有发表文章的权限。
<%else%>
<%if incept()>0 then%>目前您有<font color=red><b><%=incept()%></b></font>条新的短消息<%else%>目前您没有新的短消息<%end if%>。
<a href="javascript:openScript('messanger.asp?action=inbox',420,320)">短消息收件箱</a>中共有 <b><%=allincept()%></b> 条信息，<a href="javascript:openScript('messanger.asp?action=outbox',420,320)">短消息发件箱</a>中共有 <b><%=allsend()%></b> 条信息。
<%end if%>
<br>
您的 IP 是：<%=Request.ServerVariables("REMOTE_ADDR")%>，
<%=system(Request.ServerVariables("HTTP_USER_AGENT"))%>，<%=browser(Request.ServerVariables("HTTP_USER_AGENT"))%>
</TD></TR>
<TR>
<TD bgColor="<%=Tablebodycolor%>" colSpan=7><b>论坛在线统计</b>
<%if request("action")<>"online" then%>
[<a href=index.asp?action=online>关闭详细列表</a>]
<%else%>
[<a href=index.asp>显示详细列表</a>]
<%end if%>
</TD></TR>
<TR bgColor="<%=Tablebodycolor%>">
<TD vAlign=top align=middle><IMG align=absMiddle src="<%=picurl%>pmlogin.gif"> </TD>
<TD vAlign=top colSpan=7> 现在论坛上共有 <b><%=online()%></b> 位会员与 <b><%=guest()%></b> 位客人.<br>
<%if request("action")<>"online" then%>
<%call onlineuser()%>
<%end if%>
</TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
</TABLE>
</CENTER>
<!--#include file="footer.asp"-->
<%
set rs=nothing
set rs1=nothing
Call endConnection
%>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -