📄 forumlist.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="INC/Const.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta content="team board,team论坛系统" name=author />
<meta name="keywords" content="<%=team.Forum_setting(30)%>" />
<meta name="description" content="<%=team.Forum_setting(31)%>" />
<meta name="copyright" content="Copyright 2005-2008 - team5.cn By DayMoon" />
<link rel="icon" href="favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
<link rel="stylesheet" rev="stylesheet" href="skins/teams/bbs.css" type="text/css" media="all" />
<link rel="alternate" type="application/rss+xml" href="Xml.asp" title="Team Board 论坛新帖 Feed" />
<link rel="alternate" type="application/rss+xml" href="Xml.asp?Tag=1" title="Team Board 论坛本周人气帖 Feed" />
<link rel="alternate" type="application/rss+xml" href="Xml.asp?Tag=2" title="Team Board 论坛本周热门帖 Feed" />
<link rel="alternate" type="application/rss+xml" href="Xml.asp?Tag=3" title="Team Board 论坛精华帖 Feed" />
<link href="images/tree/tree.css" rel="stylesheet" type="text/css" id="css" />
<title><%=team.Club_Class(1)%> - 分栏模式 - Powered by team studio</title>
<script language="JavaScript1.2">
	function window_load(){
		documentbody = document.documentElement.clientHeight > document.body.clientHeight ? document.documentElement : document.body;
		var leftbar = document.getElementById('leftbar')
		leftbar.style.height=documentbody.clientHeight +'px';
		leftbar.style.left= 0 //document.body.clientWidth - 6;
		leftbar.style.top=  documentbody.scrollTop + 'px'; //document.body.clientWidth - 6;
		document.onscroll = function(){ 
				leftbar.style.height=documentbody.clientHeight +'px';
				leftbar.style.top=  documentbody.scrollTop + 'px'; 
		}
											
		document.onresize = function(){ 
				leftbar.style.height=documentbody.clientHeight +'px';
				leftbar.style.top=  documentbody.scrollTop + 'px'; 
		}
				
	}
	function resizediv_onClick(){
		if (document.getElementById('menu').style.display != 'none'){
			top.document.getElementsByTagName('FRAMESET')[0].cols = "6,*";
			document.getElementById('menu').style.display = 'none';
			document.getElementById('leftbar').className = "expand";
		}
		else{
			top.document.getElementsByTagName('FRAMESET')[0].cols = "160,*";
			document.getElementById('leftbar').className = "collapse";
			document.getElementById('menu').style.display = '';
		}
			
	}
function showsubmenu(i) {
	var ot1 = document.getElementById('showsubmenu_' + i + '');
	var ot2 = document.getElementById('menus_' + i + '');
	if (ot1.style.display == 'none') {
		ot1.style.display = '';
		ot2.src = 'images/tree/L2.gif';
	}else{
		ot1.style.display = 'none';
		ot2.src = 'images/tree/L04.gif';
	}
}
</script>
</head>
<body onkeydown="if(event.keyCode==27) return false;" onLoad="window_load();">
<div id="leftbar" class="collapse" onMouseOver="this.style.backgroundColor='#A7E8F3';" onmouseout="this.style.backgroundColor = '';" onClick="resizediv_onClick()"  style="CURSOR:pointer; width:6px" title="打开/关闭导航"></div>
<div id="menu" style="padding:8px;white-space: nowrap;" valign="top">
	<img src="images/dian.gif" border="0" align="absmiddle"/> 欢迎访问 <%=team.Club_Class(1)%> <br />
	<img src="images/dian.gif" border="0" align="absmiddle"/>
	<%If Not team.UserLoginED Then 
			Echo "您未<a href=""login.asp"" target=""main"">[ 登陆 ]</a>或<a href=""reg.asp"" target=""main"">[ 注册 ]</a> "
		Else
			Echo "欢迎你 <B>"&TK_UserName&"</B> " 
		End if
	%>
	<span id="ff"></span>
	<div>
		<img src="images/tree/home.gif" border="0" align="absmiddle" /> <a href="default.asp" target="main">论坛首页</a>
	</div>
	<div>
		<img src="images/tree/L1.gif" width="20" height="20" border="0" align="absmiddle"><img src="images/tree/folder_new.gif" width="16" height="16" align="absmiddle"> <a href="Stats.asp" target="main">查看新帖</a>
	</div>
	<div>
		<img src="images/tree/L1.gif" width="20" height="20" border="0" align="absmiddle"><img src="images/tree/showdigest.gif" width="16" height="16" align="absmiddle"> <a href="Search.asp?action=seachfile&searchclass=4" target="main">精华帖区</a>
	</div>
	<div>
		<img src="images/tree/L1.gif" width="20" height="20" border="0" align="absmiddle"><img src="images/tree/firstnew.gif" width="16" height="16" align="absmiddle"> <A href="default.asp" target="_top">切换到平面模式</A>
	</div>
	<div>
		<img src="images/tree/L1.gif" width="20" height="20" border="0" align="absmiddle"><img src="skins/teams/new.gif" align="absmiddle"> 论坛新帖 <img src="skins/teams/new.gif" align="absmiddle">
	</div>
<%
	Dim Rs,showList,i
	Cache.Name = "NewThreadTops"
	Cache.Reloadtime = 10
	If Cache.ObjIsEmpty() Then
		Set Rs = team.execute("Select ID,Topic,UserName,Views,Replies,Posttime From ["&Isforum&"Forum] Where deltopic=0 Order By Id Desc")
		If Not Rs.Eof Then
			showList = Rs.GetRows(10)
			Cache.Value = showList
		End If
		Rs.Close:Set Rs= Nothing
	Else
		showList = Cache.Value
	End If
	If IsArray(showList) Then
		For i = 0 To UBound(showList,2)
			Echo "<div><img src=""images/tree/L1.gif"" width=""20"" height=""20"" border=""0"" align=""absmiddle"">"
			Echo "<img src=""skins/teams/bin.gif"" align=""absmiddle""> <a href=""Thread.asp?tid="& showList(0,i) &""" title=""作者："& showList(2,i) &"&#xA;时间："& showList(2,i) &"&#xA;查看："& showList(3,i) &"&#xA;回复："& showList(4,i) &""" target=""main"">"& showList(1,i) &"</a>"
			Echo "</div>"
		Next
	End if
	ECho ListShow()
	Function ListShow()	
		Dim tmp1,i,Boards
		Boards = team.myBoardJump()
		If IsArray(Boards) Then
			For i = 0 To UBound(Boards,2)
				If Boards(2,i)=0 Then
					tmp1 = tmp1 & "<div id='"&i&"' class='parent'><a href=""#"" onClick=""showsubmenu('"&i&"'); return false"" class=""bigword""><IMG SRC='images/tree/L2.gif'  BORDER=""0"" align=""absmiddle"" id='menus_"&i&"'>"&Boards(1,i) &"</a></div> <div id='showsubmenu_"&i&"' class='parent'> "& ListShow_Li(Boards(0,i),0) &"</div>"
				End if
			Next
		End if
		ListShow = tmp1 
	End Function
	Function ListShow_Li(a,b)
		Dim tmp1,i,Boards
		Boards = team.myBoardJump()
		If isArray(Boards) Then
			For i=0 To Ubound(Boards,2)
				If Boards(2,i) = a Then
					If b>0 Then 
						tmp1 = tmp1 & "<IMG SRC='images/tree/L4.gif' BORDER=""0"" align=""absmiddle"">"
					End if
					tmp1 = tmp1 & "<a href=""Forums.asp?fid="&Boards(0,i)&""" target='main'><IMG SRC='images/tree/L4.gif' BORDER=""0"" align=""absmiddle"" id='limenus_"&i&"'><IMG SRC='images/tree/L05.gif' BORDER=""0"" align=""absmiddle"">"& Boards(1,i)&"</a><br> " & ListShow_Li(Boards(0,i),1)
				End If
			Next
		End if
		ListShow_Li = tmp1
	End function
%>
	<div>
		 <img src="images/tree/L09.gif" border="0" align="absmiddle"> <A href="Login.asp?menu=out" target="main">退出论坛</A>
	</div>
	<div style="text-align:left;margin-top:10px;">
		<a href="xml.asp" target="main"><img src="images/xml.gif" border="0" class="absmiddle" alt="RSS订阅全部论坛" /></a> 
	</div>
</div>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -