×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
软件安装教程 远程服务 超值!手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 150381|回复: 11

[asp.net] asp结合javascript,xml,sqlserver制作的无刷新二级select

[复制链接]
发表于 2006-2-15 14:54:22 | 显示全部楼层 |阅读模式
源代码:<%@ LANGUAGE="vbscript" %>
<%
strPathInfo = Request.ServerVariables("PATH_INFO")
strPathInfo = "http://" & Request.ServerVariables("SERVER_NAME") & Left(strPathInfo,InstrRev(strPathInfo,"/"))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "sqloledb"
Conn.Open "Data Source=192.168.1.114;Initial Catalog=pubs;", "sa", "hans"
Set RS = Conn.Execute("SELECT DISTINCT sheng FROM test")
arrPr = RS.GetRows()
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<TITLE></TITLE>
<SCRIPT language=javascript>
<!--
function ChooseCity()
{
//Clear City List
for(var i=form1.SelCity.options.length-1;i>=0;--i)
{
form1.SelCity.options.remove(i)
}
var sState = form1.SelState.options(form1.SelState.selectedIndex).value;
var oXMLDoc = new ActiveXObject('MSXML');
sURL = '<%=strPathInfo%>XMLCity.asp?State=' + sState;
oXMLDoc.url = sURL;
var oRoot=oXMLDoc.root;
if(oRoot.children != null)
{
for(var i=0;i<oRoot.children.length;++i)
{
oItem = oRoot.children.item(i);
sName = oItem.text;
var oOption = document.createElement('OPTION');
oOption.text = sName;
oOption.value = sName;
form1.SelCity.options.add(oOption);
}
}
}
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM action="" method="post" id="form1" name="form1">
<SELECT name="SelState" id="SelState" onchange="ChooseCity()">
<%For i = LBound(arrPr,2) To UBound(arrPr,2)%>
<OPTION value="<%=arrPr(0,i)%>"><%=arrPr(0,i)%></OPTION>
<%Next%>
</SELECT>
<SELECT name="SelCity" id="SelCity">
</SELECT>
</FORM>
</BODY>
</HTML>
第二个页面,用来生成xml文件
<%@ LANGUAGE="VBSCRIPT" %>
<%
sState = Request.QueryString("State")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "sqloledb"
Conn.Open "Data Source=192.168.1.114;Initial Catalog=pubs;", "sa", "hans"
Set RS = Conn.Execute("SELECT city FROM test WHERE sheng='" & sState & "'")
arrCity = Rs.GetRows()
%>

<?xml version="1.0" encoding="gb2312"?>
<citys>
<%For i = LBound(arrCity,2) To UBound(arrCity,2)%>
<city><%=arrCity(0,i)%></city>
<%Next%>
</citys>
使用时注意修改数据库相关信息
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=7630
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2006-2-19 08:37:00 | 显示全部楼层
酷素材
好!
发表于 2017-9-13 20:33:10 | 显示全部楼层
很不错。。。
回复 支持 反对

使用道具 举报

发表于 2017-9-13 20:07:21 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

发表于 2017-9-13 20:07:22 | 显示全部楼层
酷素材
LZ真是人才
回复 支持 反对

使用道具 举报

发表于 2017-9-13 20:02:25 | 显示全部楼层
酷素材
果断收藏了
回复 支持 反对

使用道具 举报

发表于 2017-9-13 20:54:01 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

发表于 2017-11-1 14:19:03 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

发表于 2017-11-1 14:06:04 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

发表于 2017-11-1 14:20:45 | 显示全部楼层
说的非常好
回复 支持 反对

使用道具 举报

发表于 2017-11-1 13:38:41 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

发表于 2017-11-1 14:11:42 | 显示全部楼层
教程网我挺你
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345