急求一段ASP动态生成JS联动下拉菜单的代码

Question

给你一个参考一下是新闻大类带小类的
<%
Dim Rs_class
Set Rs_class = Server.CreateObject("ADODB.Recordset")
Rs_class.ActiveConnection = CM_unnamedDatabase
Rs_class.Source = "  SELECT class.fldauto, class.fldname FROM class WHERE 1=1 "
Rs_class.CursorType = 0
Rs_class.CursorLocation = 2
Rs_class.LockType = 1
Rs_class.Open()
%>
<script language="javascript">
function listoption(src){
var obj = document.class3.fldclass2 
removeoption(obj)
document.getElementById("list").src = "listup.asp?lfldno=" + src.value 
} 
function removeoption(obj){  
var len=obj.options.length
var i=len-1  
for(i;i>=0;i--){   
obj.options[i]=null   
}   
}   
function additem(i,val, txt){
document.class3.fldclass2.options[i] = new Option(txt,val);   
} 
</script><tr>
    <td colspan="0" width="" class="Table_InSide"><div align="left">新闻大类&nbsp;</div></td>
    <td colspan="0" width="" class="Table_InSide"><div align="left">
<select name="fldclass" onchange="listoption(this)">
<option value="">--请选择--</option>
<%While NOT Rs_class.EOF%>
<option value="<%=Rs_class.Fields.Item("fldauto").Value%>"><%=Rs_class.Fields.Item("fldname").Value%></option>
<%Rs_class.MoveNext()
Wend
%>
</select>
&nbsp;</div></td>
</tr>
<tr>
    <td colspan="0" width="" class="Table_InSide"><div align="left">新闻2类&nbsp;</div></td>
    <td colspan="0" width="" class="Table_InSide"><div align="left">
<select name="fldclass2">
<option value="">--请选择--</option>
</select>
&nbsp;</div></td>
</tr><iframe id="list" name="list" src ="" style="DISPLAY: none"></iframe>listup.asp
<%@ Language=VBScript %>
<!--#include file="../inc/pub.asp" -->
<!--#include file="../../Connections/cm_dbconn.asp" -->
<%
s_bh=cstr(request("lfldno"))
Dim Rs_class2
Set Rs_class2 = Server.CreateObject("ADODB.Recordset")
Rs_class2.ActiveConnection = CM_unnamedDatabase
Rs_class2.Source = "SELECT fldauto, fldname FROM class2 WHERE fldclass=" + s_bh
Rs_class2.CursorType = 0
Rs_class2.CursorLocation = 2
Rs_class2.LockType = 1
Rs_class2.Open()
i=1
%>
<Script language=JavaScript>
<%While NOT Rs_class2.EOF%>
parent.additem(<%=i-1%>,"<%=Rs_class2.Fields.Item("fldauto").Value%>","<%=Rs_class2.Fields.Item("fldname").Value%>");
<%i=i+1
Rs_class2.MoveNext()
Wend%>
</Script>
<%
Rs_class2.close()
Set Rs_class2 = Nothing
%>