在不刷新页面的情况下调用远程asp脚本

1.请在sql server 中建一数据库 name:house 在house中运行下列脚本 if exists (select * from sysobjects where id = object_id(N´[dbo].[City]´) and OBJECTPROPERTY(id, N´IsUserTable´) = 1) drop table [dbo].[City] GO if exists (select * from sysobjects where id = object_id(N´[dbo].[Area]´) and OBJECTPROPERTY(id, N´IsUserTable´) = 1) drop table [dbo].[Area] GO CREATE TABLE [dbo].[City] ( [id] [int] IDENTITY (1, 1) NOT NULL , [name] [nvarchar] (10) NULL ) ON [PRIMARY] GO CREATE TABLE [dbo].[Area] ( [id] [int] IDENTITY (1, 1) NOT NULL , [CityId] [int] NULL , [name] [nvarchar] (20) NULL ) ON [PRIMARY] GO INSERT INTO City (id,name) Values(1,"广州") INSERT INTO City (id,name) Values(2,"上海") INSERT INTO City (id,name) Values(3,"北京") INSERT INTO Area (id,CityId,name) Values(1,1,"天河") INSERT INTO Area (id,CityId,name) Values(2,1,"白云") INSERT INTO Area (id,CityId,name) Values(3,2,"虹口") INSERT INTO Area (id,CityId,name) Values(4,2,"宝山") INSERT INTO Area (id,CityId,name) Values(5,2,"静安") INSERT INTO Area (id,CityId,name) Values(6,3,"海淀") INSERT INTO Area (id,CityId,name) Values(7,3,"朝阳") 2.建立文件建立文件CityData.asp <%@ LANGUAGE=VBSCRIPT %> <% RSDispatch %> <SCRIPT RUNAT=SERVER Language=javascript>   function Description() { this.GetAreaAsArray = DoGetData; } public_description = new Description(); function DoGetData(cityId) { var sql,rst,strText,conn,i,j conn = new ActiveXObject("ADODB.Connection"); conn.ConnectionString = connstr; conn.ConnectionTimeout = 30; conn.Open(); sql = "Select name,id from area where cityid=´" + cityId + "´"; rst = new ActiveXObject("ADODB.Recordset"); rst.CursorLocation = 3; rst.Open(sql,conn); i = 0; j = 0; strText = new Array(); if (rst.RecordCount >= 1) { for(var i=0;i<rst.RecordCount;++i) { strText[j++] = rst.Fields("name").Value; strText[j++] = rst.Fields("id").Value; rst.movenext(); } } else { strText[j++] = "没有"; strText[j++] = 1; } rst.close(); conn.close(); return strText; } </SCRIPT> 建立文件jsconn.asp <SCRIPT RUNAT=SERVER Language=javascript> var connstr = "driver={SQL Server}; server=202.0.0.108;uid=sa;pwd=;database=house"; </SCRIPT> 建立文件pub.asp <% Function OpenOrGet_Database Dim SessionName, conn const connstr = "driver={SQL Server}; server=202.0.0.108;uid=sa;pwd=;database=house" SessionName = "House" If Not IsObject(Session(SessionName)) Then Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr Set Session(SessionName) = conn End If Set OpenOrGet_Database = Session(SessionName) End Function %> 建立文件sql_pub.asp <% ´取出城市资料 Function SelectCity() Dim Conn, Sql, Rs, ArrCity, TmpArr(1,0) Set Conn = OpenOrGet_Database Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select distinct name,id from City" Rs.Open Sql,Conn,3 if Rs.Eof then TmpArr(0,0) = "城市" TmpArr(1,0) = 0 Rs.Close SelectCity = TmpArr else ArrCity = RS.GetRows() Rs.Close SelectCity = ArrCity end if End Function ´根据传来的CityId取出相应的地区资料 Function SelectArea(CityId) Dim Conn, Sql, Rs, ArrArea, TmpArr(1,0) Set Conn = OpenOrGet_Database Set Rs = Server.CreateObject("ADODB.Recordset") Sql =" Select name,id from Area where CityId=" & CityId & " order by id " Rs.Open Sql,Conn,3 if Rs.Eof then TmpArr(0,0) = "地区" TmpArr(1,0) = 0 Rs.Close SelectArea = TmpArr else ArrArea = RS.GetRows() Rs.Close SelectArea = ArrArea end if End Function %> 建立文件test.asp <%@ LANGUAGE="VBSCRIPT" %> <%option explicit%>   <% Dim arrCity, arrArea, strPathInfo, strServerName, strServerPort, i, TmpStr strPathInfo = Request.ServerVariables("PATH_INFO") strServerName = Request.ServerVariables("SERVER_NAME") strServerPort = Request.ServerVariables("SERVER_PORT") if len(strServerPort) = 0 then strServerPort = "" else strServerPort = ":" + strServerPort end if strPathInfo = "http://" & strServerName & strServerPort & "" arrCity = SelectCity() arrArea = SelectArea(arrCity(1,0)) %> <html> <head> <title>Untitled Document</title> <meta http-equiv="目录类型" content="文本/html; 字符集=gb2312"> </head> <script language="JavaScript" src="<%=strPathInfo%>/_ScriptLibrary/rs.htm"></script> <script language="JavaScript"> RSEnableRemoteScripting("<%=strPathInfo%>/_ScriptLibrary"); </script> <body bgcolor="#FFFFFF"> <form method="post" name="select"> <font color="#222200"> <select name="City" size="1" onChange="JavaScript: Choosesection(this.form.Area,this.form.City)"> <option value=0 selected>--选择城市--</option> <%for i = LBound(arrCity,2) To UBound(arrCity,2) TmpStr = "<option value=" & arrCity(1,i) & "" TmpStr = TmpStr & ">" & arrCity(0,i) & "</option>" Response.Write(TmpStr) Next %> </select> </font><font color="#222200"> <select name="Area" size=1> <option value=0>--选择镇区--</option> <%For i = LBound(arrArea,2) To UBound(arrArea,2) if arrArea(1,i)<>0 then %> <option value=<%=arrArea(1,i)%>><%=arrArea(0,i)%></option> <% end if Next%> </select> </font> </form> <script language="JavaScript"> var serverURL = "<%=strPathInfo%>"; var pageURL = "/CityData.asp"; function Choosesection(oArea,oCity) { for(var i=oArea.options.length-1;i>0;--i) {oArea.options.remove(i) } var CityId = oCity.options(oCity.selectedIndex).value; var objResult = RSExecute(serverURL+pageURL, "GetAreaAsArray", CityId); var j=0 if (objResult.return_value.length>0) { for (var i=0; i<objResult.return_value.length/2;++i) { sName = objResult.return_value[j++]; sId = objResult.return_value[j++]; var oOption = document.createElement(´OPTION´); oOption.text = sName; oOption.value = sId; oArea.options.add(oOption); } } } </script> </body> </html>

　　推荐阅读

　　使用ASP在IIS创建WEB站点的函数

============================================================= ' 感谢您使用ASP001工作室开发的实用函数程序 ' HTTP://WWW.ASP001.NET '================================================>>>详细阅读

本文标题：在不刷新页面的情况下调用远程asp脚本

地址：http://www.17bianji.com/kaifa2/ASP/32826.html

1/2 1