ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
在不刷新页面的情况下调用远程asp脚本

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

 

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>
<!--#INCLUDE VIRTUAL="/_ScriptLibrary/RS.ASP"-->
<!--#INCLUDE VIRTUAL="/jsconn.asp"-->

    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%>
<!--#include VIRTUAL="pub.asp"-->
<!--#include VIRTUAL="Sql_pub.asp"-->
<%
  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>



相关文章

相关软件