首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

高手们 ,小弟我想把script中的menu2 修改为从数据库中调用的字段,怎么弄,多谢

2013-09-05 
高手们 ,我想把script中的menu2 修改为从数据库中调用的字段,如何弄,谢谢!本帖最后由 jiangjgong 于 2013-

高手们 ,我想把script中的menu2 修改为从数据库中调用的字段,如何弄,谢谢!
本帖最后由 jiangjgong 于 2013-08-23 16:20:18 编辑


<script src="CJL.0.1.min.js"></script>
<script src="RelativePosition.js"></script>
<script src="FixedMenu.js"></script>

<style type="text/css">
#idContainer2{margin:0 auto;}
.container2, .container2 dd, .container2_2 dl, .container2_2 dd {margin:0;}
.container2 {font-size:14px;width:190px;border:1px solid #cf2020;background:#fffff5;padding:5px 8px; line-height:30px; color:#333;}
.container2 dt {font-weight:bold;color:#cf2020;}
.container2 dd {background:url(bg.jpg) 180px 10px no-repeat;_zoom:1;}

.container2_2 {background-color:#bebec3; display:none;}
.container2_2 dl {font-size:14px;width:200px;border:1px solid #969696;background:#fff; position:relative; left:-3px; top:-3px; }
.container2_2 dd div {padding:5px 20px; background:url(bg.jpg) 6px 7px no-repeat;_zoom:1;}
.container2_2 dt, .shadow {padding:0 5px; position:absolute;background:#fff; border:1px solid #969696; border-right:0;width:169px;left:-180px; top:-1px;height:24px;line-height:24px;}
.shadow {background-color:#bebec3;border-color:#bebec3; top:0;}

.container2_2 a{display:block;_zoom:1;}
.container2_2 a:link, .container2_2 a:visited, .container2_2 a:active {color:#333;text-decoration: none;}
.container2_2 a:hover {color:#ff6026;text-decoration: underline;}
</style>
<dl id="idContainer2" class="container2">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select  * from bsort order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
  <dt id=idMenu2_&<%=rs("anclassid")%>><%=rs("anclass")%></dt>
  <%
  rs.movenext
wend
end if
rs.close
set rs=Nothing
%>
</dl>
<div id="idContainer2_2" class="container2_2">
  <div class="shadow"></div>
  <dl>
    <dt id="idTitle"></dt>
    <dd id="idMenu2">
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select  * from sbsort order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then


response.write "<br>目前没有商品分类"
else
while not rs_s.eof
%>
 <div id=idMenu2_&<%=rs_s("nclassid")%>><a href="#archive/2008/07/06/SlideTrans.html"><%=rs_s("nclass")%></a></div>
  <%
  rs_s.movenext
wend
end if
rs_s.close
set rs_s=Nothing
%>
</dd>
  </dl>
</div>
<script>
var menu2 = [
    { id: 1, parent: 0, elem: 'idMenu2_1' },
{ id: 2, parent: 0, elem: 'idMenu2_2' },
{ id: 3, parent: 0, elem: 'idMenu2_3' },
{ id: 51, parent: 0, elem: 'idMenu2_51' },
{ id: 52, parent: 0, elem: 'idMenu2_52' },
{ id: 53, parent: 0, elem: 'idMenu2_53' },
{ id: 11, parent: 2, elem: 'idMenu2_11' },
{ id: 12, parent: 2, elem: 'idMenu2_12' },
{ id: 13, parent: 2, elem: 'idMenu2_13' },
{ id: 14, parent: 2, elem: 'idMenu2_14' },
    { id: 15, parent: 2, elem: 'idMenu2_15' },
{ id: 16, parent: 2, elem: 'idMenu2_16' },
{ id: 26, parent: 2, elem: 'idMenu2_26' },
{ id: 21, parent: 3, elem: 'idMenu2_21' },
{ id: 22, parent: 3, elem: 'idMenu2_22' },
{ id: 61, parent: 52, elem: 'idMenu2_61' },
{ id: 62, parent: 52, elem: 'idMenu2_62' },
{ id: 71, parent: 53, elem: 'idMenu2_71' },
{ id: 72, parent: 53, elem: 'idMenu2_72' },
{ id: 73, parent: 53, elem: 'idMenu2_73' }
];

var container2 = [ "idContainer2", { id: "idContainer2_2", menu: "idMenu2" } ];

new FixedMenu(container2, { menu: menu2,
relative: { align: "clientleft", vAlign: "clienttop", customTop: 5, customLeft: 176 },
onBeforeShow: function(container, menu){ $$("idTitle").innerHTML = menu._elem.innerHTML; }
});

</script>



功能是:显示二级菜单 其中<dl id="idContainer2" class="container2">下面是一级菜单,<div id="idContainer2_2" class="container2_2">下面是二级菜单,如何在menu中把两个关联,谢谢!


[解决办法]
asptree
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>tree</title>
<script language="javascript">
var xmlHttp; //定义一个全局变量

//主函数,用于层和图标的样式及执行AJAX
//id,层id
//rid,数据在表中的id
//pid,图id
function DivDisplay(id,rid,pid)
{
if (GetId(id).style.display=='')
{
GetId(id).style.display='none';
GetId(pid).src = 'images/closed.gif';
}
else
{
GetId(id).style.display='';
GetId(pid).src = 'images/opened.gif';
if (GetId(id).innerHTML=='')
{
ShowChild(id,rid);
}
}
}

//创建XMLHttpRequest对象
function CreateXMLHttpRequest()
{
if (window.ActiveXObject)
{
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
}
else
{
xmlHttp = new XMLHttpRequest();
}
}

//Ajax处理函数
//id,层id
//rid,数据在表中的id
function ShowChild(id,rid)
{
CreateXMLHttpRequest();
if(xmlHttp)
{
xmlHttp.open('POST','columnAdmin.asp',true);
xmlHttp.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'id='+rid;
xmlHttp.send(SendData);
xmlHttp.onreadystatechange=function()
{
if(xmlHttp.readyState==4)
{
if(xmlHttp.status==200)
{
GetId(id).innerHTML = xmlHttp.responseText;
}
else
{
GetId(id).innerHTML='出错:'+xmlHttp.statusText;
}
}
else
{
GetId(id).innerHTML="正在提交数据...";
}
}

}
else
{
GetId(id).innerHTML='抱歉,您的浏览器不支持XMLHttpRequest,请使用IE6以上版本!';
}
}



//取得页面对象
//id,层id
function GetId(id)
{
return document.getElementById(id);

</script>
</head>

<body>
<%
'连接数据库
dim conn,connstr,db
db="database/tree.mdb"
Set conn = Server.CreateObject("ADODB.Connection")


connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

'显示根目录
sql="select * from t_column where c_Depth=0 "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if rs("c_childnum")>0 then
response.Write("<img id='p"&rs("c_Id")&"' src=""images/closed.gif"" width=""30"" height=""15"" onclick=""DivDisplay('c"&rs("c_id")&"','"&rs("c_id")&"','p"&rs("c_id")&"')"" style=""cursor : hand;"" align=""absmiddle"">")
else
response.Write("<img src=""images/nofollow2.gif"" width=""30"" height=""15"" align=""absmiddle"" >")
end if
response.Write("<b>")
response.Write(rs("c_Name"))
if rs("c_childnum")>0 then response.Write("("&rs("c_childnum")&")") 
response.Write("</b>")
response.Write("<br>")
if rs("c_childnum")>0 then
response.Write("<div id='c"&rs("c_Id")&"' style='display:none;'></div>")
end if
rs.movenext
loop
rs.close
set rs=nothing
conn.close
Set conn = Nothing
%>

热点排行
Bad Request.