乱闪Blog--ASP+JavaScript+数据库级联下拉菜单

隱藏左欄全部展開全部合上 W3CHINA Blog首頁 管理頁面寫新日志退出

首页(267)　SQL+数据库(20)　ASP技朮(82)　Script脚本(24)　網文精選(72)　C#(2)　.NET編程(23)　Flash教程(7)　其它網頁技朮(35)　

===亂閃Blog===

针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。

鏈接

闾丘露薇的BLOG
鹤山热线(我的网站)
欢乐论坛(原创论坛)
乱闪文章系统(原创)
CSDN
MSDN 中文網站
中国XML论坛
闪盟论坛
中国鹰派联盟
凤凰论坛
Flash神魂顛倒論壇
经典论坛
鬼故事专栏

回復

回复:孙悟空大闹天宫失败的主要原因
回复:欠扁问答题44题
回复:ASP+JavaScript+数据
回复:ASP+JavaScript+数据
回复:ASP+JavaScript+数据
回复:Flash MX 认证考试(样题)
回复:ASP.NET 2.0无刷新页面新
回复:Google搜索从入门到精通v4.
回复:ASP+JavaScript+数据
回复:ASP+JavaScript+数据

留言

签写新留言

pp
生生世世生生世世事实
文章展开不了……
请教DataGrid分页的子窗口关闭时刷
能不能教些诀窍
生日快乐！
RE:RE:请问可不以让某个日志长期置顶
RE:请问可不以让某个日志长期置顶啊？
请问可不以让某个日志长期置顶啊？
RE：RE：你的Blog太棒了

信息

blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2669441
建立时间:2005年1月1日

ASP+JavaScript+数据库级联下拉菜单

展開內容 |

阅读全文(41019) | 回复(25) | 编辑 | 精华

<%'option explicitdim conn,connstr,dbdb="test.mdb" '测试数据库Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")conn.Open connstr%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>ASP+JavaScript+数据库级联下拉菜单</title><style>table{border: #00215a 1px dashed;}td{font-size:12px;}input,select{ font-size:9pt; border-style:solid; border-width:1; cursor:default; color:#03326B; background-color:#FFFFFF; height:16px;}a:link,a:visited{color: #000000;text-decoration: none;}a:hover {color: #ff0000;text-decoration: none;FILTER: glow(color=ffffff,strength=0) shadow(color=aaaaaa,direction:135); POSITION: relative; WIDTH: 100%;}</style><script language="JavaScript">function addbig(){document.all.a.style.display="block";document.all.b.style.display="none";document.all.c.style.display="none";}function addsmall(){document.all.b.style.display="block";document.all.a.style.display="none";document.all.c.style.display="none";}function viewmenu(){document.all.a.style.display="none";document.all.b.style.display="none";document.all.c.style.display="block";}</script><%'从小类表中取出数据 set rs=server.CreateObject("adodb.recordset") sql="select * from small_class " rs.open sql,conn,1,1%><script language="JavaScript">var num;//定义数组var calArray=new Array();<%dim jj=0do while not rs.eof%>//将小类表中的所有相关记录存到数组calArray的对应元素中。calArray[<%=j%>]=new Array("<%=rs("small_class_id")%>","<%=rs("small_class_name")%>","<%=rs("belongto_big_class")%>");<%j=j+1rs.movenextlooprs.closeset rs=nothing%>//给num赋值为记录总数num=<%=j%>function givevalue(myvalue){/*当选择大类列表的值不为空时首先清空小类下拉列表的所有项目。不然小类列表中的项目会叠加的。同时也是初始化 options 的值为0 */document.form3.small_class_select.length = 0;//循环写出请求的大类所对应的小类。 for (i=0;i < num; i++) { if (calArray[i][2] == myvalue) { document.form3.small_class_select.options[document.form3.small_class_select.length] = new Option(calArray[i][1], calArray[i][0],"",""); /*定义新的Option对象并赋值。options的索引值从0开始。new Option对象有4个属性，对应分别是：文本串、value、defaultSelect、selected。在这里只用了第一个和第二个。*/ } }}</script><script language="JavaScript">function chk1(){if (form1.big_class_name.value=="") { alert("请输入大类名称！"); form1.big_class_name.focus(); return false; }}function chk2(){if (form2.small_class_name.value=="") { alert("请输入小类名称！"); form2.small_class_name.focus(); return false; }} </script></head> <body background="background.jpg"><%dim rs,sql,noclassselect case request("action") case "addbigclass" addbigclass case "addsmallclass" addsmallclassend select%><div align="center"></div><table width="60%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr valign="middle"> <td height="48" colspan="3"> <div align="center"><font color="#999900"><b><font color="#FF0000">ASP</font>+<font color="#FF0000">JavaScript</font>+<font color="#FF0000">数据库</font> 级联下拉菜单</b></font></div></td> </tr> <tr> <td width="22%" height="21" valign="bottom"><a href="#" onClick="addbig()">添加大类</a> </td> <td width="22%" valign="bottom"><a href="#" onClick="addsmall()">添加小类</a></td> <td width="56%" valign="bottom"><a href="#" onClick="viewmenu()">预览效果</a></td> </tr> <tr> <td height="33" colspan="3" valign="top"> <hr align="left" width="60%" size="1" color="#999900"> </td> </tr> <tr> <td colspan="3" valign="top"> <div id="a" style="display:none"> <form name="form1" method="post" action="?action=addbigclass" onSubmit="return chk1()"> 大类名称： <input name="big_class_name" type="text" id="big_class_name" size="16"> <input type="submit" name="Submit" value=" 添加 "> </form> </div> <div id="b" style="display:none"> <form name="form2" method="post" action="?action=addsmallclass" onSubmit="return chk2()"> 选择大类后添加小类： <select name="addselect"> <% set rs=server.CreateObject("adodb.recordset") sql="big_class" rs.open sql,conn,1,1 if rs.eof or rs.bof then %> <option selected>还没有添加大类</option> <% else do while not rs.eof %> <option value="<%=rs("big_class_id")%>"><%=trim(rs("big_class_name"))%></option> <% rs.movenext loop end if rs.close set rs=nothing %> </select> 小类名称： <input name="small_class_name" type="text" id="small_class_name" size="16"> <input type="submit" name="Submit2" value=" 添加 "> </form> </div> <div id="c" style="display:block"> <form name="form3" method="post" action=""> <select name="big_class_select" onChange="givevalue(document.form3.big_class_select.options[document.form3.big_class_select.selectedIndex].value)"> <% dim firstid set rs=server.CreateObject("adodb.recordset") sql="select * from big_class order by big_class_id" rs.open sql,conn,1,1 if rs.eof or rs.bof then noclass=1 %> <option selected>还没有添加大类</option> <% else rs.movefirst firstid=rs("big_class_id") '在没有选择大类（页面刚载入）时要载入的大类。 %> <option value="<%=rs("big_class_id")%>" selected><%=trim(rs("big_class_name"))%></option> <% rs.movenext do while not rs.eof %> <option value="<%=rs("big_class_id")%>"><%=trim(rs("big_class_name"))%></option> <% rs.movenext loop end if rs.close set rs=nothing %> </select> <select name="small_class_select"> <%if noclass=1 then%> <option value="" selected>没有小类</option> <% else '在没有选择大类（页面刚载入）时要载入的小类，要跟默认的大类对应。 set rs=server.CreateObject("adodb.recordset") sql="select * from small_class where belongto_big_class="&firstid rs.open sql,conn,1,1 if rs.eof or rs.bof then %> <option value="" selected>没有小类</option> <% else do while not rs.eof %> <option value="<%=rs("small_class_id")%>"><%=trim(rs("small_class_name"))%></option> <% rs.movenext loop end if rs.close set rs=nothing end if %> </select> </form> </div></td> </tr></table><%sub addbigclass() set rs=server.CreateObject("adodb.recordset") sql="select * from big_class where big_class_name='"&trim(request("big_class_name"))&"'" rs.open sql,conn,1,3 if not(rs.eof and rs.bof) then response.Write("<script>alert('该大类已经存在！');</script>") else rs.addnew rs("big_class_name")=trim(request("big_class_name")) rs.update response.Write("<script>alert('大类添加成功！');self.location='test.asp?action=viewmenu';</script>") end if rs.close set rs=nothingend subsub addsmallclass() set rs=server.CreateObject("adodb.recordset") sql="select * from small_class where small_class_name='"&trim(request("small_class_name"))&"' and belongto_big_class="&request("addselect") rs.open sql,conn,1,3 if not(rs.eof and rs.bof) then response.Write("<script>alert('该小类已经存在！');</script>") else rs.addnew rs("belongto_big_class")=request("addselect") rs("small_class_name")=trim(request("small_class_name")) rs.update response.Write("<script>alert('小类添加成功！');self.location='test.asp?action=viewmenu';</script>") end if rs.close set rs=nothingend subconn.closeset conn=nothing%><table width="60%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="48%"> <div align="right">Copyright © </div></td> <td width="1%"> </td> <td width="11%"><b><a href="http://cooleasy.xicp.net/">酷易在线</a></b> </td> <td width="40%"><a href="mailto:xljxlj279@126.com">联系站长</a></td> </tr></table></body></html>

电脑与网络乱闪发表于 2005/1/28 20:37:12

回复:ASP+JavaScript+数据库级联下拉菜单

展開內容 |

个人主页 | 引用回复 | 主人回复 | 返回 | 编辑 | 删除

回复:ASP+JavaScript+数据库级联下拉菜单