<%
db="../data/fy2sc.mdb"'这里修改数据库路径或名称
Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open dbpath

Response.CharSet = "gb2312"
area=""
'--------------得到地区参数
objstr=request("objstr")
'--------------根据参数读取相应的下级地区
set rs=server.createobject("adodb.recordset")
rs.open "select * from area where fmc='"&objstr&"' order by px desc",conn,3,3
'--------------循环得到数组并返回客户端
for i=1 to rs.recordcount
	if i=1 then
	area=rs("mc")
	else
	area=area&"|"&rs("mc")
	end if
rs.movenext
next
'--------------返回数据
response.write area
%>