一個強健實用的asp+ajax二級聯動菜單(有演示和附源程序打包下載

2024-05-04 11:01:27

字體：大中小

來源：轉載

供稿：網友

一個強健實用的ajax二級聯動菜單(有演示和附源程序打包下載)

前些天在搞后臺的時候要用到二級聯動的菜單,到網上去找了半天也沒找到滿意的,不是這錯就是那錯,在選擇的時候有時候不能返回.真是郁悶.
后來就看到有人用ajax寫了無限級分類(牛,呵呵,本人看不懂.).就想到我那個后臺不也可以用ajax試試,雖然比用javascript的慢點,但我這個實用.強健..不會出錯,也不會選擇某個大類后再返回無選擇狀態小類為空的狀態.呵呵.
文件目錄:如圖

主要代碼如下:
index.asp
復制代碼代碼如下:
<%@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" c />
<title>Ajax的二級聯動by啊峰</title>
<script language="javascript" src="js.js"></script>
</head>
<body>
<h2><a >Ajax的二級聯動by啊峰</a></h2>

<%
Set afeng = Conn.Execute("select bigclassid,bigclassname from bigclass")
%>
<form id="form1" name="form1" method="post" action="">
  <div id="bigclass" style="float:left">
  <select name="select" >
     <option value="0">選擇一級分類</option>
      <%If Not afeng.Eof then
        Do While Not afeng.Eof
            bigclassid= afeng("bigclassid")
            bigclassname = afeng("bigclassname")%>
            <option value="<%=bigclassid%>"><%=bigclassname%></option>
        <%afeng.Movenext
        Loop
    End If
    afeng.Close
    Set afeng = Nothing
    Conn.Close
    Set Conn = Nothing%>
  </select>
  </div>
  <div id="subclass"  style="float:left"><select name="select2">
    <option value="0">選擇二級分類</option>

上一篇：asp 下用正則表達式檢測郵箱格式的函數

下一篇：asp 用InStr查找特定字符串的代碼