谁能给一个三级联动菜单的代码(asp)的

∞虛╋僞ミ 2023-03-21 09:16

• 

  ①辈孓宠你‰

  2023-03-21 10:09

  *联动菜单asp代码： <%@ Language=VBscript %> <% '************************************************************************************************************ ' ' 单一文件版本Select下拉联动的数据库版本的实现 ' ' '************************************************************************************************************ %>

  
  --请选择-- --请选择--

  <% '本程序分2部分，一个用来进行提交生成新数据的，一个用来初始化的， '其实，这样对于理解并不是很有利，暂且这样实现，希望您能看的明白哦，放在两个文件里比较好理解啊 '1,初始化部分开始，主要工作： 'a,初始化第一个下拉列表 Dim sql,rs,cn,i i = 0 Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("MultiSelect.mdb") If Request.QueryString("pid") = "" Then '初始化部分 Set rs = cn.Execute("SELECT * FROM Area Where pid=0") Response.Write "" & vbCrLf Else '处理数据的提交 strTreeId = Request.QueryString("pid") If strTreeId = "" Then strTreeId = 0 If IsNumeric(strTreeId) = False Then strTreeId = 0 Response.Clear Response.Write "" & vbCrLf End If rs.Close Set rs = Nothing cn.Close Set cn = Nothing %> 数据库 http://sz.luohue.net/xml/Exam/MultiSelect.mdb asp文件名字为 MultiSelect.asp/////////////这个也可以参考/////////////////http://zhengyaohua.bokee.com/1049287.html

  多级关联菜单：

  省份地级市市、县级市、县
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...