很简单的问题,顺便放点分 在head区加入 <base target="main" /> 就让这个页面的链接全指入main窗口了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 meizz的treeview?前边的图标?貌似和数据库没什么关系啊一个图标的路径究竟是静态指向或者数据库读取,和使用那个tree没什么关系的说。 我在页面上加了个这样的循环,树就显示不出来了。请大家帮忙看看以下代码有什么问题?是不是不能放两个循环阿? <SCRIPT LANGUAGE="JavaScript"> <!-- window.tree = new MzTreeView("tree");<%'下面这个是我加上去的 do while not rs.eof response.write("tree.icons['"&rs("icon")&"']='"&rs("icon")&"';") rs.movenextloop%> tree.icons["property"] = "property.gif"; tree.icons["css"] = "collection.gif"; tree.icons["book"] = "book.gif"; tree.iconsExpand["book"] = "bookopen.gif"; //展开时对应的图片 tree.setIconPath("images/TreeView/"); //可用相对路径<% 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("MzMain"); document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString(); //--> </SCRIPT> 就是在数据库里面在icon字段或者建一个字段,直接在里面指定图标路径,这样更改图标方便点。 我知道原因了,是我没有先关闭数据库,下面是修改后的代码<%@ Language=VBScript codepage=936 %><% Option Explicit %><% Dim Conn, rs,rs1 Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Set rs1 = Server.CreateObject("ADODB.Recordset") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./") &"\tree.mdb;"%><html> <head> <title>梅花雪中文网 - 网页脚本控件集 MzTreeView10</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="author" content="黄方荣(meizz·梅花雪)://www.meizz.com"> <script language="JavaScript" src="MzTreeView10.js"></script> <link href="http://www.meizz.com/Scripts/Global.css" type="text/css" rel="stylesheet"> <style> A.MzTreeview { font-size: 9pt; padding-left: 3px; } </style> </head> <body> <SCRIPT LANGUAGE="JavaScript"> <!-- window.tree = new MzTreeView("tree");<%rs1.open "Select icon From treeview",Conn,1,1do while not rs1.eofif rs1("icon")<>"" and rs1("icon")<> "property" and rs1("icon")<>"css" thenresponse.write("tree.icons['"&rs1("icon")&"']='"&rs1("icon")&"';")end ifrs1.movenextlooprs1.close : set rs1 = nothing %> tree.icons["property"] = "property.gif"; tree.icons["css"] = "collection.gif"; tree.icons["book"] = "book.gif"; tree.iconsExpand["book"] = "bookopen.gif"; //展开时对应的图片<% Dim node Dim reg : set reg = new RegExp : reg.global=True : reg.pattern=";" Dim id, parentId, text, hint, icon, data, url, target, method rs.open "Select ID, parentId, text, hint, icon, data, url, target, method From treeview order by ID", Conn 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.setIconPath("images/TreeView/"); //可用相对路径 tree.setURL("Catalog.asp"); tree.setTarget("MzMain"); document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString(); //--> </SCRIPT> </body></html><% rs.close : set rs = nothing : Conn.close : set Conn = nothing%> 新的问题是,怎么能在运行response.write("tree.icons['"&rs1("icon")&"']='"&rs1("icon")&"';")这条语句之前,先对比一下,如果已经有相同的就不用再重复写出来呢? 不好意思,问了那么多的问题:),不管上面这个问题有没有解决,我过几天就结贴,麻烦大家了。其实有没有人遇到过这种问题啊?还有树菜单的后台维护代码,有人有吗?有的话麻烦也给我发一份,另外给分http://community.csdn.net/Expert/topic/4531/4531659.xml?temp=3.472537E-02 高分求new操作的作用!! 高手帮忙!关于window.open 在线等 急急急!! 如何实现页面变暗,所有操作都不能执行的功能 大师请指点JQ插件开发入门问题感谢 一个简单的avaScript问题,请指教,急!!!!(在线等,50分)2 java函数问题 求助(现场给分)...关于窗口连接问题。 请问那位有多级目录树或者无限级目录树的代码??很急 alert中颜色问题?? 如何使用dom控制表单 如何让弹出菜单显示在主页最上层 如何跨文件调数值呀 (判断表单的状态的值)
前边的图标?
貌似和数据库没什么关系啊
一个图标的路径究竟是静态指向或者数据库读取,和使用那个tree没什么关系的说。
<SCRIPT LANGUAGE="JavaScript">
<!--
window.tree = new MzTreeView("tree");
<%
'下面这个是我加上去的
do while not rs.eof
response.write("tree.icons['"&rs("icon")&"']='"&rs("icon")&"';")
rs.movenext
loop
%>
tree.icons["property"] = "property.gif";
tree.icons["css"] = "collection.gif";
tree.icons["book"] = "book.gif";
tree.iconsExpand["book"] = "bookopen.gif"; //展开时对应的图片
tree.setIconPath("images/TreeView/"); //可用相对路径
<%
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("MzMain");
document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString();
//-->
</SCRIPT>
<%@ Language=VBScript codepage=936 %>
<% Option Explicit %>
<%
Dim Conn, rs,rs1
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./") &"\tree.mdb;"
%>
<html>
<head>
<title>梅花雪中文网 - 网页脚本控件集 MzTreeView10</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="黄方荣(meizz·梅花雪)://www.meizz.com">
<script language="JavaScript" src="MzTreeView10.js"></script>
<link href="http://www.meizz.com/Scripts/Global.css" type="text/css" rel="stylesheet">
<style>
A.MzTreeview
{
font-size: 9pt;
padding-left: 3px;
}
</style>
</head>
<body> <SCRIPT LANGUAGE="JavaScript">
<!--
window.tree = new MzTreeView("tree");
<%
rs1.open "Select icon From treeview",Conn,1,1
do while not rs1.eof
if rs1("icon")<>"" and rs1("icon")<> "property" and rs1("icon")<>"css" then
response.write("tree.icons['"&rs1("icon")&"']='"&rs1("icon")&"';")
end if
rs1.movenext
loop
rs1.close : set rs1 = nothing
%>
tree.icons["property"] = "property.gif";
tree.icons["css"] = "collection.gif";
tree.icons["book"] = "book.gif";
tree.iconsExpand["book"] = "bookopen.gif"; //展开时对应的图片<%
Dim node
Dim reg : set reg = new RegExp : reg.global=True : reg.pattern=";"
Dim id, parentId, text, hint, icon, data, url, target, method
rs.open "Select ID, parentId, text, hint, icon, data, url, target, method From treeview order by ID", Conn
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.setIconPath("images/TreeView/"); //可用相对路径
tree.setURL("Catalog.asp");
tree.setTarget("MzMain");
document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString();
//-->
</SCRIPT>
</body>
</html>
<%
rs.close : set rs = nothing : Conn.close : set Conn = nothing
%>
http://community.csdn.net/Expert/topic/4531/4531659.xml?temp=3.472537E-02