📄 ajax.asp
字号:
<%
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]")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -