hanger
(hanger)
注册会员
一般会员
UID 22164
精华
0
积分 88
帖子 82
金钱 88 喜悦币
威望 0
人脉 0
阅读权限 20
注册 2003-8-1
状态 离线
|
[推荐阅读] smarty的caching能不能这样设置
下面是我用asp做的，但是用你说的方法不好用啊，还是我用的地方不对，麻烦你给看一下，好吗
<!--#include file="conn.asp"-->
<%
mz=request("name")
'response.write mz
'response.end
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "Select ID, parentId, text, hint, icon, data, url, target, method From gn_tree order by ID", Conn,1,1
%>
<html>
<head>
<title>功能模块</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="images/TreeView.js"></script>
<link href="css/style.css" rel="stylesheet" type="text/css">
<style>
A.MzTreeview
{
font-size: 9pt;
padding-left: 3px;
}
</style>
</head>
<body background="images/bg-2.jpg" style="OVERFLOW-Y:auto;OVERFLOW-X:hidden;OVERFLOW:scroll" MS_POSITIONING="GridLayout">
<SCRIPT LANGUAGE="JavaScript">
<!--
window.tree = new MzTreeView("tree");
tree.icons["property"] = "property.gif";
tree.icons["css"] = "collection.gif";
tree.icons["book"] = "book.gif";
tree.iconsExpand["book"] = "bookopen.gif"; //展开时对应的图片
tree.setIconPath("images/"); //可用相对路径，留空为当前路径
<%
Dim node
Dim reg : set reg = new RegExp : reg.global=True : reg.pattern=";"
Dim id, parentId, text, hint, icon, data, url, target, method
do while not rs.eof
'若是树的条目比较多的时候(比如大于1000)而又相对稳定的时候将这些数据生成静态网页来访问
node = VBCrLf &" tree.nodes["""& rs("parentId") &"_"& rs("id") &"""] = """
node = node &"text:"& reg.replace(rs("text"), chr(15)) &";"
if rs("hint")<>"" then node = node &"hint:"& reg.replace(rs("hint"), chr(15)) &";"
if rs("icon")<>"" then node = node &"icon:"& rs("icon") &";"
if rs("data")<>"" then node = node &"data:"& reg.replace(rs("data"), chr(15)) &";"
if rs("url")<>"" then node = node &"url:"& reg.replace(rs("url"), chr(15)) &";"
if rs("target")<>"" then node = node &"target:"& rs("target") &";"
if rs("method")<>"" then node = node &"method:"& reg.replace(rs("method"), chr(15)) &";"
response.write node &"""" '生成节点信息
rs.movenext
loop
%>
//tree.setURL("Catalog.asp");
tree.setTarget("right");
document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString();
//-->
</SCRIPT>
<%
rs.close : set rs = nothing
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * From gn_tree where text='"&mz&"'"
rs.open sql,conn,1,3
' response.write sql
'response.end
If Not rs.bof And Not rs.eof then
%>
<SCRIPT LANGUAGE="JavaScript">
tree.focus("<%=rs("id")%>");
tree.expand([12, true]) ;
//document.getElementById("12").va;
</SCRIPT>
<%End if%>
</body>
</html>
|
|
