ajax二级联动菜单

<%
response.charset = "gb2312"
dim outstr,ors,osql
oid = request("oid")
sid = request("sid")
if (oid = "" or isnull(oid)) then
 outstr = ""
else
 outstr = ""
 outstr = outstr &"不指定小类"
 osql = "select id,otitle,opx,oid from news_cls where oid = "&oid&" "
 osql = osql &" order by opx asc"
 set ors = conn.execute(osql)
 if (ors.eof and ors.bof) then
  outstr = outstr &"暂无小类"
 else
  do while not ors.eof
   if trim(sid) = trim(ors(0)) then
    outstr = outstr &""&ors(1)&""
   else
    outstr = outstr &""&ors(1)&""
   end if
  ors.movenext
  loop
 end if
 outstr = outstr &""
 set ors = nothing
end if
response.write(outstr)
''数据库教程连接文件

dim mdb,conn,connstr
mdb="database/adsl.mdb"
set conn = server.createobject("adodb.connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(mdb) & " "
conn.open connstr
sub closeconn()
    if isobject(conn) then
        conn.close
        set conn = nothing
    end if
end sub

''表结构

id otitle oid opath ofile opx
1 云南线路 0 yunnanxianlu index.shtml 1
2 云南省旅游 1 yunnanshenglvyou index.shtml 2
3 国内旅游 1 guonalvyou index.shtml 1
4 出境旅游 1 chujinglvyou index.shtml 3
5 走进云南 0 zoujinyunnan index.shtml 2
6 云南土特名产 5 yunnantutemingchan index.shtml 1
7 云南少数民族 5 yunnanshaoshuminzu index.shtml 2
8 云南十八怪查 5 yunnanshibaguaicha index.shtml 3
%>

源码下载地址

http://down.111com.net/down/code/asp/2010/0927/20955.html