index.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
%>

<!--Ｅ路阳光论坛 2003.5.5 修改开始-->
<!--#include file="IndexHead.asp"-->
<!--Ｅ路阳光论坛 2003.5.5 修改结束-->

<%
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
		%>
		<!--#include file="skintop.asp"-->	<!-- 数码修改-增加头部皮肤 -->
		<%
	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>"
		'数码修改-增加脚部皮肤
		%>
      	<!--#include file="skinbottom.asp"-->
      	<%
		response.write "<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>"
		'数码修改-增加脚部皮肤
		%>
      	<!--#include file="skinbottom.asp"-->
      	<%
		response.write "<BR>"
		'数码修改-增加脚部皮肤结束
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) & "