我想用ASP+ACEESS+JAVASCRIPT实现3级菜单

ruyunluck 2005-03-28 06:52:56

下面的代码可以正常实现两级菜单 //注意是两级菜单
下面是表结构
type表
typeid 自动编号

typename 文本

typecontent 备注

BIGCLASS表
BigClassID 自动编号
BigClassMaster 备注
BigClassName 文本
typeid 数字

SmallClass表
SmallClassID 自动编号
BigClassID 数字
typeid 数字
smallclassname 文本

...全文

116 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

hqcsx 2005-03-29

打赏
举报

'三级下拉框连动
'
'数据库：
'location
'表1 loaction 所在地表
' 字段
' loactionid
' loactionname 名字
'表2 district 所在的地区表
' 字段
' locationid
' districtid
' districtname
'表3 village 所在的县区表
' 字段
' districtid
' villageid
' villagename

<%Option Explicit%>
<html>
<head>
<title>List</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim conn
dim rs
dim sql
dim count
dim rs1
dim sql1
dim rs2
dim sql2
dim count2

set conn=server.createobject("adodb.connection")
conn.open"provider=sqloledb;data source=192.168.0.33;uid=sa;pwd=;database=location;"

sql = "select * from district order by locationid asc"
set rs = conn.execute(sql)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("districtname"))%>","<%= trim(rs("locationid"))%>","<%= trim(rs("districtid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
set rs=nothing
%>
onecount=<%=count%>;

function changelocation(locationid)
{
document.myform.smalllocation.length = 0;

var locationid=locationid;
var i;
document.myform.smalllocation.options[0] = new Option('==所选城市的地区==','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.smalllocation.options[document.myform.smalllocation.length] = new Option(subcat[i][0], subcat[i][2]);
}
}

}
</script>

<%sql2 = "select * from village order by districtid asc"
set rs2 = conn.execute(sql2)
%>
<script language = "JavaScript">
var onecount2;
onecount2=0;
subcat2 = new Array();
<%
count2 = 0
do while not rs2.eof
%>
subcat2[<%=count2%>] = new Array("<%= trim(rs2("villagename"))%>","<%= trim(rs2("districtid"))%>","<%= trim(rs2("villageid"))%>");
<%
count2 = count2 + 1
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
onecount2=<%=count2%>;

function changelocation2(villageid)
{
document.myform.village.length = 0;

var villageid=villageid;
var j;
document.myform.village.options[0] = new Option('==所选地区的县区==','');
for (j=0;j < onecount2; j++)
{
if (subcat2[j][1] == villageid)
{
document.myform.village.options[document.myform.village.length] = new Option(subcat2[j][0], subcat2[j][2]);
}
}

}
</script>

</head>
<body>
<form name="myform" method="post">
题目：<input type="text" name="T2" size="20">

来源：<input type="text" name="T3" size="20">

分类：<select name="biglocation" onChange="changelocation(document.myform.biglocation.options[document.myform.biglocation.selectedIndex].value)" size="1">
<option selected>请选择你所在的省份</option>
<%

sql1 = "select * from location order by locationname asc"
set rs1 = conn.Execute (sql1)
do while not rs1.eof
%>
<option value="<%=trim(rs1("locationid"))%>"><%=trim(rs1("locationname"))%></option>

<%
rs1.movenext
loop
rs1.close
set rs1 = nothing
conn.Close
set conn = nothing
%>
</select><select name="smalllocation" onChange="changelocation2(document.myform.smalllocation.options[document.myform.smalllocation.selectedIndex].value)">
<option selected value="">==所有地区==</option>
</select><select name="village" size="1">
<option selected>==所有县区==</option>
</select>

关键词：<input type="text" name="T4" size="20">

内容：<textarea rows="9" name="S1" cols="51"></textarea>
</form>

</body>
</html>

kellybs 2005-03-28

打赏
举报

http://www.javavsnet.com/bbs/View.aspx?id=222&boardid=19

chenypluck 2005-03-28

打赏
举报

太长了，没有办法。请原谅。
下面是我加入的部分
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
while not rs.EOF
RecordCount=rs.RecordCount
menuid=rs("typeid")
menuname=rs("typename")
menucontent=rs("typecontent")
menuview=rs("typeview")

%>
mpmenu<%=menuid%>=new mMenu('| <span style="filter: glow(color=#ffffff,strength=3);height:10px; padding:1px"></span><span style="filter: glow(color=#ffffff,strength=3); height:10px; padding:1px"><%=menuName%> </span>','type.asp?typeID=<%=menuid%>','self','','','','');

<%set rs1=server.CreateObject("ADODB.RecordSet")
set rs1=conn.execute("SELECT * FROM bigclass where typeid="&menuid&" order by bigclassorder")
if not rs1.EOF then
do while not rs1.eof

%>
<%if not Rs1.eof then%>

mpmenu<%=menuid%>.addItem(new mMenuItem(' <span style="line-height: 20px;"><%=Rs1("bigclassname")%>','bigclass.asp?typeid=<%=menuid%>&bigclassid=<%=Rs1("bigclassid")%>','self',false,'<%=Rs1("bigclassname")%>','','','',''));

<%set rs2=server.CreateObject("ADODB.RecordSet")
response.write rs1("BigClassID")
set rs2=conn.execute("SELECT * FROM smallclass where BigClassID="&rs1("BigClassID")&" order by smallclassorder")
if not rs2.EOF then
do while not rs2.eof
%>
<%if not Rs2.eof then%>

mpmenu<%=rs1("BigClassID")%>.addItem(new mMenuItem(' <span style="line-height: 20px;"><%=Rs2("smallclassname")%>','smallclass.asp?bigclassid=<%=Rs2("bigclassid")%>','self',false,'<%=Rs2("smallclassname")%>','','','',''));

<% end if %>
<%rs2.movenext
loop
end if
rs2.close
%>

<%rs1.movenext
loop
end if
rs1.close
%>

<%
i=i+1
rs.MoveNext
wend
rs.close
set rs=nothing
%>

但是运行后不行，没有任何显示

chenypluck 2005-03-28

打赏
举报

<%set rs1=server.CreateObject("ADODB.RecordSet")
set rs1=conn.execute("SELECT * FROM bigclass where typeid="&menuid&" order by bigclassorder")
if not rs1.EOF then
do while not rs1.eof

%>
<%if not Rs1.eof then%>

mpmenu<%=menuid%>.addItem(new mMenuItem(' <span style="line-height: 20px;"><%=Rs1("bigclassname")%>','bigclass.asp?typeid=<%=menuid%>&bigclassid=<%=Rs1("bigclassid")%>','self',false,'<%=Rs1("bigclassname")%>','','','',''));

<%rs1.movenext
loop
end if
rs1.close
%>

<%
i=i+1
rs.MoveNext
wend
rs.close
set rs=nothing
%>

mwritetodocument();
mcheckLocation();
mfixSize();
</script>

chenypluck 2005-03-28

打赏
举报

lstup 2005-03-28

打赏
举报

注意了，是两级

ruyunluck 2005-03-28

打赏
举报

ruyunluck 2005-03-28

打赏
举报

mMenu.prototype.addItem = mMenuAddItem;
function mtoout(src){

src.style.borderLeftColor=mmenuoutbordercolor;
src.style.borderRightColor=mmenuinbordercolor;
src.style.borderTopColor=mmenuoutbordercolor;
src.style.borderBottomColor=mmenuinbordercolor;
src.style.backgroundColor=mmenuoutcolor;
src.style.color=mmenuovercolor;
}
function mtoin(src){

src.style.borderLeftColor=mmenuinbordercolor;
src.style.borderRightColor=mmenuoutbordercolor;
src.style.borderTopColor=mmenuinbordercolor;
src.style.borderBottomColor=mmenuoutbordercolor;
src.style.backgroundColor=mmenuincolor;
src.style.color=mmenuovercolor;
}
function mnochange(src){
src.style.borderLeftColor=mmenucolor;
src.style.borderRightColor=mmenucolor;
src.style.borderTopColor=mmenucolor;
src.style.borderBottomColor=mmenucolor;
src.style.backgroundColor='';
src.style.color=mfontcolor;

}

ruyunluck 2005-03-28

打赏
举报

下面的代码能正常实现两级菜单 //注意是两级

<%
starttime=timer()
StrSQL="DBQ="+server.mappath("admin/data/news30000.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="driver={SQL Server};server=(local);database=master;uid=sa;pwd=;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
%>
<script>var mmenus = new Array();
var misShow = new Boolean();
misShow=false;
var misdown = new Boolean();
misdown=false;
var musestatus=false;
var mpopTimer = 0;
mmenucolor='#F5F5F5';mfontcolor='';mmenuoutcolor='#CCCACA';mmenuincolor='';mmenuoutbordercolor='';mmenuinbordercolor='#000000';mmidoutcolor='';mmidincolor='';mmenuovercolor='#000000';mitemedge='0';msubedge='0';mmenuunitwidth=100;mmenuitemwidth=100;mmenuheight=0;mmenuwidth='100%';mmenuadjust=0;mmenuadjustV=5;mfonts='font-family: 宋体; font-size: 9pt; color: #000000; ';mcursor='hand';
var fadeSteps = 5;
var fademsec = 20;
var fadeArray = new Array();
function fade(el, fadeIn, steps, msec) {
if (steps == null) steps = fadeSteps;
if (msec == null) msec = fademsec;
if (el.fadeIndex == null)
el.fadeIndex = fadeArray.length;
fadeArray[el.fadeIndex] = el;
if (el.fadeStepNumber == null) {
if (el.style.visibility == "hidden")
el.fadeStepNumber = 0;
else
el.fadeStepNumber = steps;
if (fadeIn)
el.style.filter = "Alpha(Opacity=0)";
else
el.style.filter = "Alpha(Opacity=80)";
}
window.setTimeout("repeatFade(" + fadeIn + "," + el.fadeIndex + "," + steps + "," + msec + ")", msec);
}
function repeatFade(fadeIn, index, steps, msec) {
el = fadeArray[index];

c = el.fadeStepNumber;
if (el.fadeTimer != null)
window.clearTimeout(el.fadeTimer);
if ((c == 0) && (!fadeIn)) {
el.style.visibility = "hidden";
return;
}
else if ((c==steps) && (fadeIn)) {
el.style.filter = "Alpha(Opacity=80);";
el.style.visibility = "visible";
return;
}
else {
(fadeIn) ? c++ : c--;
el.style.visibility = "visible";
el.style.filter = "Alpha(Opacity=" + 80*c/steps + ")";
el.fadeStepNumber = c;
el.fadeTimer = window.setTimeout("repeatFade(" + fadeIn + "," + index + "," + steps + "," + msec + ")", msec);
}
}

function stoperror(){
return true;
}
window.onerror=stoperror;
function mpopOut() {
mpopTimer = setTimeout('mallhide()', 500);
}
function getReal(el, type, value) {
temp = el;
while ((temp != null) && (temp.tagName != "BODY")) {
if (eval("temp." + type) == value) {
el = temp;
return el;
}
temp = temp.parentElement;
}
return el;
}

function mMenuRegister(menu)
{
mmenus[mmenus.length] = menu
return (mmenus.length - 1)
}
function mMenuItem(caption,command,target,isline,statustxt,img,sizex,sizey,pos){
this.caption=caption;
this.command=command;
this.target=target;
this.isline=isline;
this.statustxt=statustxt;
this.img=img;
this.sizex=sizex;
this.sizey=sizey;
this.pos=pos;
}
function mMenu(caption,command,target,img,sizex,sizey,pos){
this.items = new Array();
this.caption=caption;
this.command=command;
this.target=target;
this.img=img;
this.sizex=sizex;
this.sizey=sizey;
this.pos=pos;
this.id=mMenuRegister(this);
}
function mMenuAddItem(item)
{
this.items[this.items.length] = item
item.parent = this.id;
this.children=true;
}

2. **数据操作**：通过ADO（ActiveX Data Objects）与ASP交互，实现对数据库的增删改查操作。 3. **表和查询**：在ACCESS中，数据通常被组织成表格，可以通过SQL查询语句进行数据检索和分析。车辆管理系统的功能...

2. 性能优化：避免在ASP脚本中执行大量数据库查询，合理设计数据库结构，使用存储过程等方法提高效率。 3. 错误处理：添加错误捕获和日志记录机制，以便快速定位和解决问题。 4. 代码组织：遵循良好的编程习惯，保持...

大家好，今天给大家介绍基于asp+access的WEB网上留言板设计与实现，文章末尾附有本毕业设计的论文和源码下载地址哦。文章目录：本论文概述了ACCESS数据库及其相关的一些知识，着重论述ACCESS数据库和ASP的中间技术...

ASP.NET提供了丰富的数据展示控件，如GridView、ListView等，它们支持使用模板字段来自定义数据的展示方式。模板字段允许开发者使用HTML标记和服务器端代码来创建数据项的自定义布局。通过这种方式，可以将数据显示...

1.2 系统的实现任务 7 2 系统概述及实现技术介绍 8 2.1 网上商城简介 8 2.2 相关实现技术介绍 10 2.2.1 JSP语言及其特点 10 2.2.2 DreamweaverMX知识介绍 12 2.2.3 数据库基础知识介绍 13 2.2.4 JDBC基础知识介绍 15...