Question

高分求关于asp无限分类调用,总是出错.请高手解答!

代码如下:
Class class_sys
Public Function show_class
Dim rsClass, sqlClass, strTemp, tmpDepth, i
Dim arrShowLine(20)
For i = 0 To UBound(arrShowLine)
arrShowLine(i) = False
Next
sqlClass = "select * From f_class order by RootID,OrderID"
Set rsClass = execute(sqlClass)
If rsClass.bof And rsClass.EOF Then
show_class = "<option value='0'>请选择类别</option>"
Else
show_class = "<option value='0'>请选择类别</option>"
Do While Not rsClass.EOF
tmpDepth = rsClass("Depth")
If rsClass("NextID") > 0 Then
arrShowLine(tmpDepth) = True
Else
arrShowLine(tmpDepth) = False
End If
strTemp = "<option value='" & rsClass("id") & "'"
If CurrentID > 0 And rsClass("id") = CurrentID Then
strTemp = strTemp & " selected"
End If
strTemp = strTemp & ">"

If tmpDepth > 0 Then
For i = 1 To tmpDepth
strTemp = strTemp & "  "
If i = tmpDepth Then
If rsClass("NextID") > 0 Then
strTemp = strTemp & "├ "
Else
strTemp = strTemp & "└ "
End If
Else
If arrShowLine(i) = True Then
strTemp = strTemp & "│"
Else
strTemp = strTemp & " "
End If
End If
Next
End If
strTemp = strTemp & rsClass("classname")
strTemp = strTemp & "</option>"
show_class = show_class & strTemp
rsClass.movenext
Loop
End If
rsClass.Close
Set rsClass = Nothing
End Function
End Class

调用
<%=show_class%>
asp+sqlserver
Microsoft VBScript 编译器错误 (0x800A03FD)
Set rsClass = execute(sqlClass)
缺少 'Case'

Answer 1

Set rsClass = execute(sqlClass)
你用什么执行？根本没有打开连接嘛
Set rsClass = conn.execute(sqlClass)

Answer 2

show_class = "<option value='0'>请选择类别</option>"
Else
show_class = "<option value='0'>请选择类别</option>"
你这个option的case在哪啊？？
你好像没有写啊？？
补上试试！！

Answer 3

等我毕业工作半年告诉你

Answer 4

我睡一觉明天告诉你

Answer 5

我有ASP.NET的，改改就可以

Answer 6

。。。。貌似完全不懂。。。