食品安全小学内容资料:求两级下拉框的js代码@@@!!!

'sql1,sql2 数据库查询字符串sql 主类 sql2 子类
'con 数据库连接对象
'sql1ID,sql1Value 主类的 value 值 和 字面值
'sql2ID,sqlValue,sqlFrID 子类 的 value 值 和 字而值 及 相对于主类的外銉
'selname 主类名字 sel2name 子类名字
Function selClass(sql1,sql2,con,sql1ID,sql1Value,sql2ID,sql2Value,sql2FrID,smallid)
Set RsFind = Server.CreateObject("Adodb.RecordSet")
Set RsFinds = Server.CreateObject("Adodb.RecordSet")
RsFinds.Open sql2,con,1,1
RsFind.Open sql1,con,1,1
RsID = RsFinds.RecordCount
iRsID = 0
If smallid="" Or IsNumeric(smallid) = False Then smallid = 0
SmallShowID = Clng(smallid)
Response.Write(" <select name=selbigs OnChange=selChange(this.value)>")
'Response.Write("<option >请选择主类别</option>")
Do While Not RsFind.Eof
Response.Write("<option value=" & RsFind(sql1ID) & ">" & RsFind(sql1Value) & "</option>")
RsFind.MoveNext
Loop
Response.Write("</select> " & " <select name=selsmalls></select>")

ClsObj(RsFind)
%>
<script language="javascript">
var icount;
selsmall = new Array()
icount=0;
<%
do while not RsFinds.eof
%>
selsmall[<%=iRsID%>] = new Array("<%= trim(RsFinds(sql2ID))%>","<%=RsFinds(sql2Value)%>","<%= RsFinds(sql2FrID)%>");
<%
iRsID = iRsID + 1
RsFinds.movenext
loop
%>
onecount=<%=iRsID%>;
function selChange(str)
{
document.form1.selsmalls.length = 0;
var locationid=str;
var i;
for (i=0;i < onecount; i++)
{
if (selsmall[i][2] == locationid)
{
document.form1.selsmalls.options[document.form1.selsmalls.length] = new Option(selsmall[i][1], selsmall[i][0]);
}
}
}
selChange(document.form1.selbigs.value);
var sid;
sid=<%=SmallShowID%>;
if(sid!=0)
{
for (i=0;i < onecount; i++)
{
if (selsmall[i][0] == sid)
{
selChange(selsmall[i][2]);
document.form1.selsmalls.value=sid;
}
}
}
</script>
<%
ClsObj(RsFinds)
End Function

自己慢慢看吧?