📄 frameleft.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
PageMain()
Sub PageMain()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>左右分栏</TITLE>
</head>
<body>
<script type="text/javascript">
if (document.getElementById){ //DynamicDrive.com change
document.write('<style type="text/css">\n')
document.write('.submenu{display: none;}\n')
document.write('</style>\n')
}
function SwitchMenu(obj){
if(document.getElementById){
var el = document.getElementById(obj);
var ar = document.getElementById("masterdiv").getElementsByTagName("span"); //DynamicDrive.com change
if(el.style.display != "block"){ //DynamicDrive.com change
for (var i=0; i<ar.length; i++){
if (ar[i].className=="submenu") //DynamicDrive.com change
ar[i].style.display = "none";
}
el.style.display = "block";
}else{
el.style.display = "none";
}
}
}
</script>
<%
BoardMenu()
%>
</body>
</html>
<%
End Sub
Sub BoardMenu()
Dim node,BoardNode,XMLDOM
Set XMLDOM=Application(Dvbbs.CacheName&"_boardlist").cloneNode(True)
For each node in XMLDOM.documentElement.getElementsByTagName("board[@depth <= 1]")
If node.attributes.getNamedItem("hidden").text="1" and Dvbbs.GroupSetting(37)="0" Then
node.parentNode.removeChild(node)
End If
node.removeAttribute "indeximg"
node.removeAttribute "readme"
Next
XMLDOM.documentElement.setAttribute "forum_name",Dvbbs.Forum_Info(0)
TransNode(XMLDOM)
Set XMLDOM = Nothing
End Sub
Sub TransNode(XmlDoc)
'XSLT模板转换开始
Dim Xmlskin,Proc,XmlStyle
Set Xmlskin = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Not (Xmlskin.load(Server.MapPath("inc/Templates/leftmenu.xslt"))) Then
Response.Write "模板数据出错，请与管理员联系！"
Response.End
End If
Set XMLStyle=Server.CreateObject("msxml2.XSLTemplate" & MsxmlVersion)
XMLStyle.stylesheet=Xmlskin
Set Proc=XMLStyle.createProcessor()
Proc.input = XmlDoc
proc.transform()
Response.Write Dvbbs.ArchiveHtml(proc.output)
Set XmlStyle = Nothing
Set Xmlskin = Nothing
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -