1.请在sqlserver中建一数据库name:house在house中运行下列脚本
ifexists(select*fromsysobjectswhereid=object_id(N´[dbo].[City]´)andOBJECTPROPERTY(id,N´IsUserTable´)=1)
droptable[dbo].[City]
GO
ifexists(select*fromsysobjectswhereid=object_id(N´[dbo].[Area]´)andOBJECTPROPERTY(id,N´IsUserTable´)=1)
droptable[dbo].[Area]
GO
CREATETABLE[dbo].[City](
[id][int]IDENTITY(1,1)NOTNULL,
[name][nvarchar](10)NULL
)ON[PRIMARY]
GO
CREATETABLE[dbo].[Area](
[id][int]IDENTITY(1,1)NOTNULL,
[CityId][int]NULL,
[name][nvarchar](20)NULL
)ON[PRIMARY]
GO
INSERTINTOCity(id,name)Values(1,"广州")
INSERTINTOCity(id,name)Values(2,"上海")
INSERTINTOCity(id,name)Values(3,"北京")
INSERTINTOArea(id,CityId,name)Values(1,1,"天河")
INSERTINTOArea(id,CityId,name)Values(2,1,"白云")
INSERTINTOArea(id,CityId,name)Values(3,2,"虹口")
INSERTINTOArea(id,CityId,name)Values(4,2,"宝山")
INSERTINTOArea(id,CityId,name)Values(5,2,"静安")
INSERTINTOArea(id,CityId,name)Values(6,3,"海淀")
INSERTINTOArea(id,CityId,name)Values(7,3,"朝阳")
2.建立文件
建立文件CityData.asp
<%@LANGUAGE=VBSCRIPT%>
<%RSDispatch%>
<SCRIPTRUNAT=SERVERLanguage=javascript>
<!--#INCLUDEVIRTUAL="/_ScriptLibrary/RS.ASP"-->
<!--#INCLUDEVIRTUAL="/jsconn.asp"-->
functionDescription()
{
this.GetAreaAsArray=DoGetData;
}
public_description=newDescription();
functionDoGetData(cityId)
{
varsql,rst,strText,conn,i,j
conn=newActiveXObject("ADODB.Connection");
conn.ConnectionString=connstr;
conn.ConnectionTimeout=30;