AJAX二级动联下拉列表

最新推荐文章于 2021-08-05 15:42:26 发布

最新推荐文章于 2021-08-05 15:42:26 发布 · 118 阅读

·

0

·

文章标签：

#Ajax #ASP #SQL Server #XP #VBScript

本文介绍了一个使用ASP实现的动态下拉列表示例，包括数据库连接、前端显示及后台数据获取等部分。该示例可在XP系统下通过IE6、7或Firefox浏览器进行测试。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

数据库连接文件conn.asp

<%

dimstrconnection,conn,strquery

strconnection="PROVIDER=SQLOLEDB;DATASOURCE=(local);UID=sa;PWD=;DATABASE=SelectTest"

setconn=server.createobject("adodb.connection")

conn.openstrconnection

%>

前台显示文件ShowSelect.asp

<%...@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<htmlxmlns="http://www.w3.org/1999/xhtml">

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>

<title>无刷新动联下拉列表</title>

<scripttype="text/javascript">...

<!--

varxmlhttp;

varcache=[];//用于存储已经获取的数据，避免每次一级列表变化都要从服务器下载数据，加快显示速度

//建立XMLHttpRequest对象

try...{

xmlhttp=newActiveXObject('Msxml2.XMLHTTP');

}catch(e)...{

try...{

xmlhttp=newActiveXObject('Microsoft.XMLHTTP');

}catch(e)...{

try...{

xmlhttp=newXMLHttpRequest();

}catch(e)...{}

}

}

functiongetClass2()

...{

varobj;

varobj2

obj=document.getElementById("class1");

obj2=document.getElementById("class2");

if(!cache[obj.selectedIndex])...{

xmlhttp.open("get","getClass2.asp?id="+obj.value);

xmlhttp.onreadystatechange=function()...{

if(xmlhttp.readyState==4)...{

if(xmlhttp.status==200)...{

cache[obj.selectedIndex]=eval("("+unescape(xmlhttp.responseText)+")");

getClass2();

}

else...{

alert("网络故障");

}

}

}

xmlhttp.setRequestHeader("If-Modified-Since","0");

xmlhttp.send(null);

return;

}

var_Arr=cache[obj.selectedIndex];

obj2.length=1;

for(vari=0;i<_Arr.length-1;i+=2)...{

with(obj2)...{

options[options.length]=newOption(_Arr[i],_Arr[i+1]);

}

}

}

//-->

</script>

</head>

<body>

<selectname="class1"id="class1"onchange="javascript:getClass2();">

<optionvalue="0">一级</option>

<%...

dimrs

dimsql

Setrs=Server.CreateObject("ADODB.Recordset")

sql="select*fromclass1"

rs.opensql,conn,1,1

dowhilenotrs.eof

%>

<optionvalue="<%=rs("id")%>"><%=rs("class1")%></option>

<%...

rs.Movenext()

loop

rs.close

Setrs=nothing

conn.close()

SetConn=Nothing

%>

</select>

<selectname="class2"id="class2">

<optionvalue="0">二级</option>

</select>

</body>

</html>

后台获取二级数据文件getClass.asp

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<%

dimrs

dimsql

dimid

id=Trim(Request.QueryString("id"))

Setrs=Server.CreateObject("ADODB.Recordset")

sql="select*fromclass2whereclass1id="&id

rs.opensql,conn,1,1

Response.Write("[")

dowhilenotrs.eof

Response.Write("'"&escape(rs("class2"))&"',")

Response.Write(rs("id")&",")

rs.movenext

loop

Response.Write("0]")

rs.close

Setrs=nothing

conn.close()

SetConn=Nothing

%>

本系统在XP + IE6,7 XP+firefox测试通过

今天就写个一个吧,有什么问题欢迎给我留言.

明天再写一个自定对话框的例子.

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。