网上用的比较多的asp级联菜单效果代码

!--#include file="conn.asp"--> 
html> 
head> 
meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
meta name="GENERATOR" content="Microsoft FrontPage 4.0"> 
meta name="ProgId" content="FrontPage.Editor.Document"> 
title>New Page 1/title> 
/head> 
body> 
% 
dim rs 
dim sql 
dim count 
set rs=server.createobject("adodb.recordset") 
sql = "select * from shiinfo order by id asc" 
rs.open sql,conn,1,1 
%> 

SCRIPT language="JavaScript"> 
var onecount; 
onecount=0; 
subcat = new Array(); 
% 
count = 0 
do while not rs.eof  
%> 
subcat[%=count%>] = new Array("%= trim(rs("shiname"))%>","%= trim(rs("shengcode"))%>","%= trim(rs("id"))%>"); 
% 
count = count + 1 
rs.movenext 
loop 
rs.close 
%> 
onecount=%=count%>; 
function changelocation(locationid) 
{ 
document.form1.cid.length = 0;  
var locationid=locationid; 
var i; 
for (i=0;i  onecount; i++) 
{ 
if (subcat[i][1] == locationid) 
{  
document.form1.cid.options[document.form1.cid.length] = new Option(subcat[i][0], subcat[i][2]); 
}  
} 
}  

/SCRIPT> 
SCRIPT language="javascript"> 
!-- 
function CheckForm() 
{ 
document.form1.txtcontent.value=document.form1.doc_html.value; 
return true 
} 
//--> 
/SCRIPT> 
form name=form1 onsubmit="check()"> 
省份 % 
sql = "select * from shenginfo" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write "请先添加省份。" 
response.end 
else 
%> 
Select name="sid" onChange="changelocation(document.form1.sid.options[document.form1.sid.selectedIndex].value)" >%  
do while not rs.eof 
%>OPTION selected value="%=trim(rs("id"))%>">%=trim(rs("shengname"))%>/OPTION> 
% 
rs.movenext 
loop 
end if 
rs.close 
%> 
/Select>  
城市：Select name="cid"> 
OPTION selected value="">==请选城市==/OPTION> 
/Select> 
/form> 
/body> 
/html>