求两级下拉框的js代码@@@!!!

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:33:52
想要实现两级的下拉框,第二级直接跳到链接

如:

一级:A\ B\ C

二级:1\\2\3

选择a1 跳到 a1.htm

A2 跳到 a1.htm

B3 跳到b3.htm
不这要这种,普通网页那种

'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>")