tmp52oz0d3osu.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
response.buffer=true
'=========================================================
' File: index.asp
' Version:5.0
' Date: 2002-9-21
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2002 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: [e-mail],[e-mail]
'=========================================================

Dim OnlineNum,GuestNum
Dim reBoard_Setting,BoardCount,k,ColSpanNum
Dim Board_Count
Dim TdTableWidth
OnlineNum=online(0)
GuestNum=guest(0)
Stats="论坛首页"
call activeonline()
Rem 首页顶部信息
call nav()
if isnull(lastlogin) or lastlogin="" then lastlogin=now()
if Clng(Forum_OnlineNum)>Clng(Maxonline) then
	conn.execute("update config set Maxonline="&allonline()&",MaxonlineDate=Now()")
end if
%>
<TABLE cellSpacing=0 cellPadding=0 width=<%=Forum_body(12)%> border=0 align=center>
<%if founduser then%>
<tr><td width=65% >
</td><td width=35% align=right>
<%if Cint(newincept())>Cint(0) then%>
<%if Cint(forum_setting(10))=1 then%>
<script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%end if%>
<bgsound src="<%=Forum_info(7)&Forum_statePic(8)%>" border=0>
<img src=<%=Forum_info(7)&Forum_boardpic(9)%>> <a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="<%=Forum_body(8)%>"><%=newincept()%> 新</font></a>)
<%else%>
<img src=<%=Forum_info(7)&Forum_boardpic(8)%>> <a href="usersms.asp?action=inbox">我的收件箱</a> (<font color=gray>0 新</font>)
<%end if%>
<%else%>
<br>
<%end if%>
</td></tr>
<tr>
<td align=center width=100% valign=middle colspan=2>
<SCRIPT LANGUAGE='JavaScript' SRC='js/fader.js' TYPE='text/javascript'></script>
<SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'>
prefix="";
arNews = ["<%
myCache.name="AnnounceMents"&BoardID
if myCache.valid then
	response.write myCache.value
else
Dim AnnounceMent_list
sql="select top 1 title,addtime from bbsnews where boardid=0 order by id desc"
set rs=conn.execute(sql)
if rs.bof and rs.eof then
	AnnounceMent_list="<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='当前没有公告'>当前没有公告</ACRONYM></a></b> ("& now() &")"
else
	AnnounceMent_list="<b><a href='announcements.asp?boardid="& boardid &"' target=_blank>"& rs("title") &"</a></b> ("& rs("addtime") &")"
end if
myCache.add AnnounceMent_list,dateadd("n",9999,now)
response.write AnnounceMent_list
set rs=nothing
end if
%>","","欢迎光临<%=Forum_info(0)%> <%=boardtype%>","",
"严禁恶意使用粗言秽语，违者经劝告无效，立即封ID。",""
]
</SCRIPT>
<div id="elFader" style="position:relative;visibility:hidden; height:16" ></div>
</td>
</tr>
</table>
<TABLE border=0 width="<%=Forum_body(12)%>" align=center>
<tr><td colspan=2 height=1 bgcolor="<%=Forum_body(27)%>">

</td></tr>
<tr><td colspan=2 height=5>

</td></tr>
<%
sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser,yesterdaynum,maxpostnum,maxpostdate,LastPost from config where active=1"
set rs=conn.execute(sql)
LastPostInfo=split(rs("LastPost"),"$")
if not isdate(LastPostInfo(2)) then LastPostInfo(2)=Now()
LastPostTime=LastPostInfo(2)
if datediff("d",LastPostTime,Now())>0 and ubound(LastPostInfo)=7 then
	conn.execute("update config set yesterdaynum=todaynum,LastPost='"&checkStr(LastPostInfo(0))&"$"&checkStr(LastPostInfo(1))&"$"&Now()&"$"&checkStr(LastPostInfo(3))&"$"&checkStr(LastPostInfo(4))&"$"&checkStr(LastPostInfo(5))&"$"&checkStr(LastPostInfo(6))&"$"&checkStr(LastPostInfo(7))&"'")
	conn.execute("update config set todaynum=0")
end if
if rs(2)>rs(6) then conn.execute("update config set maxpostnum=todaynum,maxpostdate=Now()")
%>
<TR><TD style="line-height: 20px;">
欢迎新加入会员 <a href=dispuser.asp?name=<%= htmlencode(rs(4)) %> target=_blank><b><%= htmlencode(rs(4)) %></b></a>&nbsp;[<a href="toplist.asp?orders=2">新进来宾</a>]<BR>论坛共有 <B><%= rs(3)%></B> 位注册会员 , 主题总数：<b><%= rs(0) %></b> , 帖子总数：<b><%= rs(1) %></b><BR>今日论坛共发贴：<FONT COLOR="<%=Forum_body(8)%>"><B><%=rs(2)%></B></FONT> , 昨日发贴：<B><%=rs(5)%></B> , 最高日发贴：<B><%=rs(6)%></B></td><TD valign=bottom align=right style="line-height: 20px;"><a href=queryresult.asp?stype=3>查看新贴</a> , <a href=hotlist.asp?stype=1>热门话题</a> , <a href=toplist.asp?orders=1>发贴排行</a> , <a href=toplist.asp?orders=7>用户列表</a><BR>您最后一次访问是在：<%=Now()%>
</TD></TR>
</TABLE>
<%
if Cint(Forum_setting(4))=1 then
call main_2()
else
call main_1()
end if

sub main_1()
if not founduser and Cint(forum_setting(31))=1 then
	call FastLogin()
end if
Dim cBoardID
Response.Cookies("BoardList").expires= date+7
cBoardID= Request("cBoardid")
if isnumeric(cBoardID) then
	if request("CatLog")="N" then
	Response.Cookies("BoardList")(cBoardID & "BoardID")= "NotShow"
	else
	Response.Cookies("BoardList")(cBoardID & "BoardID")= "Show"
	end if
end if
dim simdisp
simdisp=false
k=0
'只列出深度小于2的版面
sql="select * from board where depth<="&forum_setting(5)&" order by rootid,orders"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then BoardCount=rs.recordcount else boardcount=0 end if
do while not rs.eof
k=k+1
reBoard_Setting=split(rs("Board_setting"),",")
if rs("BoardMaster")<>"" and not isnull(rs("BoardMaster")) then
	master_1=split(rs("BoardMaster"), "|")
	for i = 0 to ubound(master_1)
	if i>6 then
		master_2=master_2
	else
		master_2=master_2 & "<a href=dispuser.asp?name="&master_1(i)&" target=_blank>"&master_1(i)&"</a>&nbsp;"
	end if
	next
	if i>7 then master_2=master_2 & "<font color=gray>More...</font>"
else
	master_2="暂无"
end if
if rs("ParentID")=0 then
	if request.cookies("BoardList")(rs("boardid") & "BoardID")="NotShow" then
		ColSpanNum=reBoard_Setting(41)
		if not isnumeric(ColSpanNum) and Cint(ColSpanNum)=0 then ColSpanNum=4
		simdisp=true
	elseif request.cookies("BoardList")(rs("boardid") & "BoardID")="Show" then
		simdisp=false
		ColSpanNum=2
	else
		if Cint(reBoard_Setting(39))=1 then
			ColSpanNum=reBoard_Setting(41)
			if not isnumeric(ColSpanNum) and Cint(ColSpanNum)=0 then ColSpanNum=4
			simdisp=true
		else
			simdisp=false
			ColSpanNum=2
		end if
	end if
	response.write "<table cellspacing=1 cellpadding=0 align=center class=tableBorder1>"
	response.write "<TR><Th colSpan="&ColSpanNum&" height=25 align=left id=TableTitleLink>&nbsp;"
	if simdisp then
		response.write "<a href=""?cBoardid="&rs("boardid")&"&Catlog=Y"" title=""展开论坛列表""><img src="""&Forum_info(7)&Forum_boardpic(15)&""" border=0></a><a href=list.asp?boardid="&rs("boardid")&" title=进入本分类论坛>"&rs("boardtype")&"</a>"
	else
		response.write "<a href=""?cBoardid="&rs("boardid")&"&Catlog=N"" title=""关闭论坛列表""><img src="""&Forum_info(7)&Forum_boardpic(16)&""" border=0></a><a href=list.asp?boardid="&rs("boardid")&" title=进入本分类论坛>"&rs("boardtype")&"</a>"
	end if
	response.write "</Th></TR>"
	Board_Count=0
else
	if simdisp then
		call main_1_boardlist_2()
	else
		call main_1_boardlist_1()
	end if
end if
master_2=""
rs.movenext
if k<BoardCount then
	if rs("parentid")=0 and Board_count<ColSpanNum and simdisp then
		for i=Board_Count+1 to ColSpanNum
			response.write "<td class=tablebody1 width="""&TdTableWidth&"%"">&nbsp;</td>"
		next
		response.write "</tr>"
	end if
	if rs("parentid")=0 then
		response.write "</table><BR>"
		simdisp=false
		ColSpanNum=2
	end if
else
	if Board_count<ColSpanNum and simdisp then
		for i=Board_Count+1 to ColSpanNum
			response.write "<td class=tablebody1 width="""&TdTableWidth&"%"">&nbsp;</td>"
		next
		response.write "</tr>"
	end if
end if
loop
set rs=nothing
response.write "</table>"
if not founduser and Cint(forum_setting(31))=2 then
	call FastLogin()
end if
end sub

sub main_1_boardlist_1()
if (Cint(reBoard_Setting(1))=1 and Cint(GroupSetting(37))=1) or Cint(reBoard_Setting(1))=0 then
response.write "<TR><TD align=middle width=100% class=tablebody1><table width=""100%"" cellspacing=0 cellpadding=0>"
LastPostInfo=split(rs("LastPost"),"$")
if not isdate(LastPostInfo(2)) then LastPostInfo(2)=Now()
'=========================BoardInfo============================
response.write "<TR><TD align=middle width=46 class=tablebody1>"
if Cint(reBoard_Setting(0))=1 then
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&Forum_info(7)&Forum_pic(15)&" alt=有新帖子>"
	else
	response.write "<img src="&Forum_info(7)&Forum_pic(14)&" alt=无新帖子>"
	end if
else
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&Forum_info(7)&Forum_pic(7)&" alt=有新帖子>"
	else
	response.write "<img src="&Forum_info(7)&Forum_pic(6)&" alt=无新帖子>"
	end if
end if
%>
</TD>
<TD width=1 bgcolor=<%=Forum_body(27)%>>
<TD vAlign=top width=* class=tablebody1>
<TABLE cellSpacing=0 cellPadding=2 width=100% border=0>
<tr><td class=tablebody1 width=*><a href="list.asp?boardid=<%=rs(0)%>">
<font color=<%=Forum_body(14)%>><%=rs("boardtype")%></font></a>
<%
if rs("child")>0 then
response.write "(<font title=""有"&rs("child")&"个下属论坛"">"&rs("child")&")</font>"
end if
%>
</td>
<%
response.write "<td width=40 rowspan=2 align=center class=tablebody1>"
if rs("indeximg")<>"" then
	response.write "<table align=left><tr><td><a href=list.asp?boardid="&rs("boardid")&"><img src="&rs("indeximg")&" align=top border=0></a></td><td width=20></td></tr></table>"
end if
response.write "</td><td width=200 rowspan=2 class=tablebody1>"
if Cint(reBoard_Setting(2))=1 then
response.write "认证论坛，请认证用户进入浏览"
else
response.write "主题：<a href=""dispbbs.asp?Boardid="&LastPostInfo(7)&"&ID="&LastPostInfo(6)&"&replyID="&LastPostInfo(1)&"&skin=1"">"&htmlencode(left(LastPostInfo(3),10))&"..</a><BR>作者：<a href=""dispuser.asp?id="&htmlencode(LastPostInfo(5))&""" target=_blank>"&htmlencode(LastPostInfo(0))&"</a><BR>日期：" & FormatDateTime(LastPostInfo(2),1) & "