连动列表栏[asp+access数据库版]

1.先建一名 Test.mdb 的 Access2000 数据库，建立两个表 Type，Title，结构如下：
Type
******************
ID    自动编号，主键
名称  文本，长度合适

Title
********************
ID    自动编号，主键
类别  长整形数字，并联 Type 表的 ID 字段
标题  文本，长度合适

2.

HTML代码

‘********************************************************<br /> ‘ conn.asp  连接数据库，这里用 test.mdb 来作测试<br /> ‘********************************************************<br /> <%<br />  dim conn  <br />  dim connstr</p> <p>  connstr="DBQ="+server.mappath("test.mdb")+";DefaultDir=;DRIVER={<a title="Microsoft" href="http://www.looooking.cn/2009/08/tag/microsoft">Microsoft</a> Access Driver (*.mdb)};"<br />  set conn=server.createobject("ADODB.CONNECTION")<br />  conn.open connstr<br /> %>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

3.

HTML代码

‘********************************************************<br /> ‘ A.asp  主页面，内嵌 B.asp（第二列表框在B.asp页面）<br /> ‘********************************************************<br /> <!--#include file="conn.asp"--></p> <table> <tr> <td> <form method="POST" action=""> <%<br /> Dim I,FirstID<br /> I=1<br /> Set Rs= Server.CreateObject("ADODB.Recordset")<br /> SQL="Select * FROM Type;"<br /> RS.Open SQL,Conn,1,1<br /> Response.Write "第一列表框 <select size='1' ID='A' name='A' OnChange='VBScript:ChangType'>”<br /> DO While Not RS.Eof<br /> Response.Write ”<option value='" & RS("ID") & "'>“ & RS(“名称”) & ”</option>”<br /> RS.MoveNext<br /> Loop<br /> Response.Write ”</select>”<br /> %><br /> <P><br /> <IFRAME HEIGHT="40" WIDTH="500" FRAMEBORDER=NO MARGINHEIGHT=0 SRC="B.asp?ID=1" ID="TitleFrame"><br /> </IFRAME><br /> </P><br /> <P></p> <input type='button' onclick='vbscript:Show.innerText="选择的值是:" & Document.Frames(0).Document.All.H.value' value='查看第二列表框所选值'> </P><br /> </Form> </td> </tr> <tr> <td ID="Show"> </td> </tr> </table> <p><Script Language=VBScript><br /> Sub ChangType<br /> TitleFrame.Location.Replace(“B.asp?ID=” & Document.All.A.Value)<br /> End Sub<br /> </Script><br /> <%<br /> RS.Close<br /> Set RS=Nothing<br /> Conn.Close<br /> Set Conn=Nothing<br /> %>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

4.

HTML代码

‘********************************************************<br /> ‘ B.asp  第二列表框所在页面，内嵌于 A.asp<br /> ‘********************************************************<br /> <!--#include file="Conn.asp"--><br /> <%<br />  TypeID=Trim(Request.QueryString("ID"))<br />  Dim RS<br />  Set RS= Server.CreateObject("ADODB.Recordset")<br />  SQL="Select * FROM Title Where 类别=" & TypeID & ";"<br />  RS.Open SQL,Conn,1,1<br />  Response.Write "第二列表框 <select size='1' name='B' ID='B' OnChange='H.value=this.options[this.selectedIndex].value'>”<br />  Do While Not RS.Eof<br /> Response.Write ”<option value='" & RS("ID") & "'>“ & RS(“标题”) & ”</option>”<br /> RS.MoveNext<br />  Loop<br /> Response.Write ”</select>”<br />  RS.Close<br />  Set RS=Nothing<br />  Conn.Close<br />  Set Conn=Nothing<br /> %></p> <input type="hidden" name="H"> <script Language="vbscript"> H.value=B.options(B.selectedIndex).value </script>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

RssFeed不幸被删~~易于动态调用的 javascript下拉菜单~