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

在不刷新页面的情况下调用远程asp脚本 (转)[@more@]

 

1.请在 sql SERVER 中建一 数据库 name:house 在house中运行下列脚本

if exists ( select * from sys objects 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
vbscript %>




建立文件jsconn.asp



建立文件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


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


%>



Untitled Document






RM method="post" name="select">
 
 
  --选择城市--
                          TmpStr = "                          TmpStr = TmpStr & ">" & arrCity(0,i) & ""                                                   
                          Response.Write(TmpStr)                                                   
                      Next                                                   
                %>



  --选择镇区--
                            if arrArea(1,i)<>0 then
                      %>
  >
                          Next%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-989145/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-989145/