文件一：1.asp
<%Response.Charset="GB2312"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open("select*from youm_type order by id asc"),conn,1,1
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<script language="javascript">
var http_request = false;
function send_request(url) {//初始化、指定处理函数、发送请求的函数
http_request = false;
//开始初始化XMLHttpRequest对象
if(window.XMLHttpRequest) { //Mozilla 浏览器
http_request = new XMLHttpRequest();
if (http_request.overrideMimeType) {//设置MiME类别
http_request.overrideMimeType("text/xml");
}
}
else if (window.ActiveXObject) { // IE浏览器
try {
http_request = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
http_request = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e) {}
}
}
if (!http_request) { // 异常，创建对象实例失败
window.alert("不能创建XMLHttpRequest对象实例.");
return false;
}
http_request.onreadystatechange = processRequest;
// 确定发送请求的方式和URL以及是否同步执行下段代码
http_request.open("GET", url, true);
http_request.send(null);
}
// 处理返回信息的函数
function processRequest() {
if (http_request.readyState == 4) { // 判断对象状态
if (http_request.status == 200) { // 信息已经成功返回，开始处理信息
//alert(http_request.responseText);
//alert(http_request.responseBody);
//document.write(http_request.responseText);
document.getElementById("smalltype").innerHTML=http_request.responseText;
} else { //页面不正常
alert("您所请求的页面有异常。");
}
}
}
</script>
<script language="javascript">
function userCheck() {
var f = document.form1;
var type = f.youmtype.value;
//window.alert('2.asp?class='+type);
send_request('2.asp?class='+type);
}
</script>
<body>
<form name="form1" action="" method="post">
<select name="youmtype" onChange="userCheck()">
<option value="" selected >选择大类别</option>
<%do while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("youm_type")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<div id="smalltype"></div>
</form>
</body>
</html>
文件二：2.asp
<%Response.Charset="GB2312"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
id=request("class")
rs.open("select*from youm_type_small where classid="&id&" order by id asc"),conn,1,1
%>
<%
Response.Write "<select name=""youmtype_small"">" & vbNewLine
Response.Write "<option value="""" selected>小类别</option>" & vbNewLine
Response.Write "" & vbNewLine
do while not rs.eof
Response.Write "<option value=""" & rs("id") & """ >" & rs("small") & "</option>" & vbNewLine
Response.Write "" & vbNewLine
rs.movenext
loop
rs.close
set rs=nothing
Response.Write "</select>" & vbNewLine
%>
Trackback: http://tb.donews.net/TrackBack.aspx?PostId=850816