``
html，，选项1，选项2，，，document.getElementById('first').onchange = function() {，var second = document.createElement('select');，second.id = 'second';，document.body.appendChild(second);，// 根据第一个选择框的值生成第二个选择框的选项，}，，``ASP二级联动源码
ASP（Active Server Pages）是一种服务器端脚本环境，用于创建动态交互式网页，我们将详细介绍如何利用ASP与AJAX实现一个稳定且实用的二级联动菜单，这个示例适用于后台系统，能够避免选择大类别后返回小类别为空的错误。
文件结构
1、index.asp：主页面，包含HTML和JavaScript代码。
2、getsubcategory.asp：处理AJAX请求的服务器端页面。
3、Conn.asp：数据库连接文件。
4、AdSl.mdb：Access数据库文件，包含分类数据。
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" content="text/html; charset=gb2312"/>
<title>Ajax的二级联动by啊峰</title>
<script language="javascript" src="js.js"></script>
</head>
<body>
<h2><a href="http://yeahdown.com/">Ajax的二级联动by啊峰</a></h2>
<!--#include file="iconn.asp"-->
<%
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
Set Conn = Nothing%>
</select>
</div>
<div id="subclass" style="float:left"><select name="select2">
<option value="0">选择二级分类</option>
</select>
</div>
</form>
</body>
</html>2. getsubcategory.asp
<%
Response.Charset="GB2312" '设置字符集 原默认为utf-8
'获取从客户端传递过来的值
dim bigclassid
bigclassid = request("q")
if bigclassid="" then
response.write "<option value='0'>选择二级分类</option>"
else
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select smallclassid,smallclassname from smallclass where bigclassid="&bigclassid
rs.Open sql,conn,1,1
do while not rs.eof
response.write "<option value="& rs("smallclassid") & ">" & rs("smallclassname") & "</option>"
rs.movenext
loop
rs.close
set rs=Nothing
end if
Set Conn = Nothing
%>Conn.asp
<%
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB;Data Source=" & Server.MapPath("AdSl.mdb")
Conn.Open ConnStr
Sub CloseConn()
On Error Resume Next
Conn.Close
Set Conn = Nothing
End Sub
%>AdSl.mdb
此文件是一个Access数据库，其中包含两个表：bigclass和smallclass，表结构如下：
bigclass
bigclassid (自动编号)
bigclassname (文本)
smallclass
smallclassid (自动编号)
smallclassname (文本)
bigclassid (数字)
通过上述步骤，我们实现了一个ASP与AJAX结合的二级联动菜单，用户在选择一级分类后，二级分类会根据所选项动态更新，无需刷新整个页面，提升了用户体验，这种实现方式不仅稳定实用，还能有效避免选择大类别后返回小类别为空的错误。
以上就是关于“asp二级联动源码”的问题，朋友们可以点击主页了解更多内容，希望可以够帮助大家!