📄 frame.asp

📁 闻名一时的bbsxp超快论坛系统现在放出最新版2008版本给希望装论坛的朋友借鉴安装调试
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<%
DomainPath=Left(Script_Name,inStrRev(Script_Name,"/"))
if instr(""&Http_Referer&"","http://"&Server_Name&DomainPath&"") = 0 then Http_Referer="Default.asp"
%>
<html>
<head>
	<title><%=SiteConfig("SiteName")%> - Powered By BBSXP</title>
	<meta http-equiv="Content-Type" content="text/html; charset=<%=BBSxpCharset%>">
	<meta name="keywords" content="<%=SiteConfig("MetaKeywords")%>">
	<meta name="description" content="<%=SiteConfig("MetaDescription")%>">
	<meta name="GENERATOR" content="<%=ForumsProgram%> (Build: <%=ForumsBuild%>)">
	<Link href="Themes/<%=RequestCookies("Themes")%>/Common.css" rel=stylesheet type="text/css" />
</head>
<style type="text/css">
body {
	margin: 0px;
}
</style>

<script type="text/javascript" src="Utility/MenuTree.js"></script>
<script language="JavaScript" type="text/javascript">
	if(self != top){top.location=self.location;}
	function switchSysBar() {
		if (document.getElementById("frmTitle").style.display == ""){
			document.getElementById("frmTitle").style.display = "none";
			document.getElementById("frmImg").src="images/switchOff.gif"
		}
		else {
			document.getElementById("frmTitle").style.display = "";
			document.getElementById("frmImg").src="images/switchOn.gif"
		}
	}
	if(top != self) {top.location = self.location;}
</script>


<body scroll="no" class="FrameLeftMenu">

<table cellPadding="0" cellSpacing="0" border="0" width="100%" height="100%">
	<tr>
		<td id="frmTitle">
<div style="width: 170px; height: 100%;white-space:nowrap;overflow: auto;">
<br />
　<b><%=SiteConfig("SiteName")%></b><br>
　<a href="Default.asp" target="main">论坛首页</a> | <a href="Help.asp" target="main">使用帮助</a><br>
　<a href="ShowBBS.asp" target="main">最新主题</a> | <a href="ViewOnline.asp" target="main">在线情况</a><br><br>

<script language="JavaScript" type="text/javascript">
var yuzimenu=new menutree('yuzimenu','main');
<%ClubTree%>
yuzimenu.init();
</script>
</div>
		</td>
		<td width="100%" height="100%">
		
		    <table border="0" cellPadding="0" cellSpacing="0" height="100%" style="position: absolute;">
				<tr>
					<td><a href="javascript:switchSysBar()"><img id="frmImg" src="images/switchOn.gif" border="0" alt=""></a></td>
				</tr>
			</table>

			<iframe frameborder="0" scrolling="yes" name="main" src="<%=Http_Referer%>" style="height: 100%; visibility: inherit; width: 100%; z-index: 1;overflow: auto;" width="100%" height="100%"></iframe>
		</td>
	</tr>
</table>
</body>
</html>


<%
Sub ClubTree
	GroupGetRow = FetchEmploymentStatusList("Select GroupID,GroupName From ["&TablePrefix&"Groups] where SortOrder>0 order by SortOrder")
	if Not IsArray(GroupGetRow) then Exit Sub

	for i=0 to Ubound(GroupGetRow,2)
		Response.Write "yuzimenu.addFolder('"&GroupGetRow(1,i)&"','default.asp?GroupID="&GroupGetRow(0,i)&"');" & vbCrlf
		ForumListTree GroupGetRow(0,i),0
		Response.Write "yuzimenu.endFolder();" & vbCrlf
	next
End Sub

Sub ForumListTree(GroupID,ParentID)
	if ParentID=0 then
		sql="GroupID="&GroupID&" and ParentID=0"
	else
		sql="ParentID="&GroupID&""
	end if
	
	ForumGetRow = FetchEmploymentStatusList("Select ForumID,ForumName From ["&TablePrefix&"Forums] where "&sql&" and SortOrder>0 and IsActive=1 order by SortOrder")
	if Not IsArray(ForumGetRow ) then Exit Sub

	for j=0 to Ubound(ForumGetRow,2)
		if Execute("Select ForumID from ["&TablePrefix&"Forums] where ParentID="&ForumGetRow(0,j)&"").eof then
			Response.Write "yuzimenu.addNode('"&ForumGetRow(1,j)&"','ShowForum.asp?ForumID="&ForumGetRow(0,j)&"',false);" & vbCrlf
			ForumListTree ForumGetRow(0,j),1
		else
			Response.Write "yuzimenu.addFolder('"&ForumGetRow(1,j)&"','ShowForum.asp?ForumID="&ForumGetRow(0,j)&"',false);" & vbCrlf
			ForumListTree ForumGetRow(0,j),1
			Response.Write "yuzimenu.endFolder();" & vbCrlf
		end if
	next
End Sub
%>
⌨️ 快捷键说明

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