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

原创 2004年09月28日 20:32:00
 

源代码:<%@ 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>
使用时注意修改数据库相关信息

AJAX+ASP.NET无刷新二级联动省市下拉列表

TwoDropDownList.aspx 中的代码如下:asp:ScriptManager ID="ScriptManager1" runat="server">asp:ScriptManager>d...
  • zhangyj_315
  • zhangyj_315
  • 2008年05月27日 11:12
  • 3287

Javascript+ASP打造无刷新新闻列表

如上图所示的新闻列表在各大网站中并不少见,有了新闻列表就少不了分页,今天我们要谈的就是各分页间的切换方式。传统的方法是将页码以URL参数的形式传到列表页,列表页内程序根据传入的参数来显示不同的内容,这...
  • JOHNCOOLS
  • JOHNCOOLS
  • 2007年01月22日 15:32
  • 786

实现无刷新加载数据(asp+ajax)

数据载入中…… function getXML(URL){          if (window.XMLHttpRequest)         {             var xmlh...
  • shunzi110
  • shunzi110
  • 2007年03月21日 16:55
  • 2419

SQL FOR XML子句的各种用法

FOR XML子句有四种最基本的模式  1、AUTO模式:返回数据表为起表名的元素,每一列的值返回为属性; 2、RAW模式:返回数据行为元素,每一列的值作为元素的属性;  3、PATH模式:通过...
  • a497785609
  • a497785609
  • 2011年12月19日 15:58
  • 5823

asp结合javascript,xml,sqlserve…

http://www.alixixi.com/WebScript/subject14/200512134141885.html  咨询这个界面
  • dongzi502
  • dongzi502
  • 2014年01月15日 16:11
  • 205

用js解析xml实现省市二级联动

html页面表单部分                请选择                                 请选择                      ...
  • jianan19860
  • jianan19860
  • 2012年03月21日 15:32
  • 52761

JS实现无刷新联动菜单(select)的方法

所谓联动菜单,就是后一个下拉框的选项是根据前一个下拉框被选中的值来决定的,一个典型的应用就是省市联动菜单了,市的下拉选项是根据你选了哪个省来决定的,类似的需求我们经常遇到,相信许多新手都被这个问题困扰...
  • neubuffer
  • neubuffer
  • 2013年11月23日 14:30
  • 421

ASP+JAVASCRIPT 的数据库调用方法

...var connStr=""Provider=SQLOLEDB; Data Source=localhost; Initial Catalog=jiaojingdb; User ID=sa; P...
  • fengyun14
  • fengyun14
  • 2006年10月11日 15:39
  • 2192

Asp.net无刷新二级联动

Asp.net无刷新二级联动数据库建立表provinceid provinceName1 陕西3 山东8 河南表cityid cityname provinceid1 西安 12 济南 33 郑州 8...
  • wengman
  • wengman
  • 2009年04月20日 22:35
  • 2707

Ajax的无刷新技术实例详解

下载一个.net Ajax开发包,该开发包包括ASP2.0和目前ASP1.1版使用的Ajax,详细地址参见http://ajax.schwarz-interactive.de/,接下来,开始。 1. ...
  • lingfeng0626
  • lingfeng0626
  • 2006年04月06日 16:21
  • 1318
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp结合javascript,xml,sqlserver制作的无刷新二级select
举报原因:
原因补充:

(最多只允许输入30个字)