【www.gdgbn.com--js教程】

category.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
"用于从数据库中获取数据的sql语句
sqlcmd="select id,name from category where level=0"
"创建数据集对象
set rs=conn.execute(sqlcmd)
%>

 
  请选择一级分类：
  <%
   "遍历记录集生成下拉菜单选项
   while not rs.eof
    response.write("")
    response.write(rs("name"))
    response.write("")
    rs.movenext
   wend
   "关闭数据库连接及记录集，释放资源www.111cn.net
   rs.close
   conn.close
   set rs=nothing
   set conn=nothing
  %>
 
 
  请选择二级分类：
 

<script language="网页特效" type="text/javascript">

</script>

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]")
%>

本文来源：http://www.gdgbn.com/wangyezhizuo/27854/