在不重新整理頁面的情況下調用遠程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>
<!--#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;