jQ 二级类别联动
<script src="jquery.js" type="text/javascript"></script>
<script src="selectJx.js" type="text/javascript"></script>
<title>二级联动ajax</title>
<%
'++++++++++++++++++++++++++++++++数据库链接 Start +++++++++++++++++++++++++++++++++++++++
response.Buffer = true
db="diqu.mdb"
set Conn = server.CreateObject("adodb.connection")
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.open cnnstr
if err then
err.clear
set Conn = nothing
response.Write ""
response.End()
end if
sub closecnn()
set Conn = nothing
end sub
'++++++++++++++++++++++++++++++++数据库链接 End +++++++++++++++++++++++++++++++++++++++
%>
<%Session.CodePage=936%>
</head>
<body>
<div >
<table class='itable' width='100%' id='timetable' >
<tr>
<td class="test_c" id="one">
<select id="region" name="region" onchange="getarea('Gbk.asp?ac=1','region','area');">
<option value="">请选择</option>
<%
sql="select * from class1 order by id"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
for i=1 to rs.recordcount
%>
<option value="<%=rs("class1")%>"><%=rs("class1")%></option>
<%
rs.movenext
next
end if
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td>
<select id="area" name="area" onchange="getarea('Gbk.asp?ac=2','area','xiaoqu');">
</select>
<select id="xiaoqu" name="xiaoqu">
</select>
</td>
</tr>
</table>
</div>
提交页
// JavaScript Document
function getarea(pages,class1,class2){
var cityid = $("#"+class1).val();//获得下拉框中大区域的值
if(cityid != ''){
$.ajax({
type: "post",
url: pages,//AJAX 异步页面 如：b.asp
data:"city="+cityid, //页面参数 如：region_id=region_id
contentType: "application/x-www-form-urlencoded; charset=utf-8",
//contentType: "application/x-www-form-urlencoded; charset=gb2312",
cache:false,
beforeSend: function(XMLHttpRequest){},
success: function(data, textStatus){
//alert(data);
$("#"+class2).empty();//清空area下拉框
$("#"+class2).append(data);//给area下拉框添加option
},
complete: function(XMLHttpRequest, textStatus){},
error: function(){
//请求出错处理
}
});
}
}
ajax 跳转接受
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001
city=trim(request("city"))
ac=trim(request("ac"))
if city<>"" then
'++++++++++++++++++++++++++++++++数据库链接 Start +++++++++++++++++++++++++++++++++++++++
response.Buffer = true
db="diqu.mdb"
set Conn = server.CreateObject("adodb.connection")
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.open cnnstr
if err then
err.clear
set Conn = nothing
response.Write ""
response.End()
end if
sub closecnn()
set Conn = nothing
end sub
'++++++++++++++++++++++++++++++++数据库链接 End +++++++++++++++++++++++++++++++++++++++
if ac=1 then
sql="select * from class2 where class1='"&city&"' order by id"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
for i=1 to rs.recordcount
response.Write("<option value='"&rs("class2")&"'>"&rs("class2")&"</option><br/>")
rs.movenext
next
end if
rs.close
set rs=nothing
elseif ac=2 then
sql="select * from class3 where class2='"&city&"' order by id"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
for i=1 to rs.recordcount
response.Write("<option value='"&rs("class3")&"'>"&rs("class3")&"</option><br/>")
rs.movenext
next
end if
rs.close
set rs=nothing
end if
else
response.Write("<option value='0'>错误</option>")
end if
%>
接受。。查询。返回页
