这段代码好象有点问题谁帮助修改一下！

[e6t]

<form name=f1 METHOD="POST">
<%
OpenDB objConn, "xxxx"
Set RSClass = objConn.Execute("SELECT * FROM class Order by fldClass")
If RSClass.EOF Then
Response.Write "噢,没有记录!<BR>"
Else
Response.Write "<SELECT NAME=""class"" style=""FONT-SIZE: 9pt"" SIZE=10"
" ONCHANGE=""classselected(this);"" >"
sJavaScript = "function classselected(elem){" &_
vbCrlf
"for (var i = document.f1.sort.options.length; i >= 0; i--){"
"document.f1.sort.options[i] = null;"
vbCrlf
Do Until RSClass.EOF
If sLastClass <> RSClass("fldClass") Then
sLastClass = RSClass("fldClass")
Response.Write "<OPTION VALUE=" & RSClass("fldID") & ">" & sLastClass & "</OPTION>"
sJavaScript = sJavaScript & "}"
"if (elem.options[elem.selectedIndex].value=="
RSClass("fldID") & "){"
End If
sJavaScript = sJavaScript
"document.f1.sort.options[document."
"f1.sort.options.length] = new Option('"
RSClass("fldSort") & "','" & RSClass("fldID") & "');"
vbCrlf
RSClass.MoveNext
Loop

Response.Write "</SELECT>"
Response.Write "<SELECT NAME=""sort"" style=""FONT-SIZE: 9pt"" SIZE=10>"
Response.Write "<OPTION>请选择</OPTION>"
Response.Write "</SELECT>"
　
sJavaScript = sJavaScript & "}" & "}"

Response.Write "<SCR" & "IPT LANGUAGE=""JavaScript"">"
Response.Write sJavaScript & "</SCR" & "IPT>"

End If
RSClass.Close
Set RSClass = Nothing
%>
</form>

[美丽心情]

把报错提示贴出来~

[cdsun]

具体错误写出来

具体行写出来

[xzq686]

楼主人到哪去了。

[e6t]

哪位高手帮我一下好吗。

[e6t]

错误提示是：

缺少语句

"for (var i = document.f1.sort.options.length; i >= 0; i--){"

[e6t]

现在我把他修改成这个样子之后我想实现连动选择，但是要进行二次查询：
Set Rs1 = Conn.Execute("SELECT ClassID,ClassType,ParentID,Depth from Class_ware where ParentID=" & Rs("ClassID") & " Order by ClassID")
然后根据查询结果显示二级菜单的内容即Rs1(ClassType)
请问怎样才能实现?

<!--数据库连接-->
<form name=f1 METHOD="POST">
<%
dim temp,Rs,sJavaScript,sLastClass,Rs1
Set Rs = Conn.Execute("SELECT ClassID,ClassType,ParentID,Depth from Class_ware where Depth=0 Order by ClassID")
If Rs.EOF Then
Response.Write "噢,没有记录!<BR>"
Else
Response.Write "<SELECT NAME=""class"" " &_
" ONCHANGE=""classselected(this);"" >"
sJavaScript = "function classselected(elem){" &_

"for (var i = document.f1.sort.options.length; i >= 0; i--){" &_
"document.f1.sort.options[i] = null;"

Do Until Rs.EOF
If sLastClass <> Rs("ClassType") Then
sLastClass = Rs("ClassType")
Response.Write "<OPTION VALUE=" & Rs("ClassID") & ">" & sLastClass & "</OPTION>"

sJavaScript = sJavaScript & "}" &_
"if (elem.options[elem.selectedIndex].value==" &_
Rs("ClassID") & "){"
End If
sJavaScript = sJavaScript & "document.f1.sort.options[document." &_
"f1.sort.options.length] = new Option('" &_
RS("ClassType") & "','" & RS("ClassID") & "');"

Rs.MoveNext
Loop

Response.Write "</SELECT>"
Response.Write "<SELECT NAME=""sort"" >"
Response.Write "<OPTION>请选择</OPTION>"
Response.Write "</SELECT>"

sJavaScript = sJavaScript & "}" & "}"

Response.Write "<script LANGUAGE=""JavaScript"">"
Response.Write sJavaScript & "</script>"

End If
Rs.Close
Set Rs = Nothing
%>
</form>