参考
<!--#include file="conn.asp"-->
<%
Response.CharSet = "gb2312" //加这句话了没有服务器端
area=""
'--------------得到地区参数
objstr=request("objstr")
'--------------根据参数读取相应的下级地区
set rs=server.createobject("adodb.recordset")
rs.open"select * from area where fmc='"&objstr&"' order by id",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
%>