ajax.asp

来自「《精通AJAX》光盘 要求： JDK1.4.2 以上版本 数据库采用M」· ASP 代码 · 共 27 行

<%
Dim conn,rs
Dim connstr
Dim sqlCmd

'创建数据库连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("data.mdb")
conn.open connstr

'获取相应的二级目录数据
sqlCmd="select id,name from category where level=1 and parentId=" & Request.querystring("id")
set rs=conn.execute(sqlCmd)

'返回JavaScript格式的数组
Response.write("[")
while not rs.eof
	'使用escape避免乱码问题
	Response.write("'" & escape(rs("name")) & "', ")
	Response.write(rs("id"))
	Response.write(",")
	rs.movenext
wend
'为了避免最后一个逗号的问题，最后一个数组元素不使用
Response.write("0]")
%>