newasp中main类(56)

                If Trim(Request("sortid")) <> "" Then
                    If CLng(Request("sortid")) = Rs1("classid") Then CacheJumpMenu = CacheJumpMenu & " selected"
                End If
                CacheJumpMenu = CacheJumpMenu & ">"
                If Rs1("depth") = 1 Then CacheJumpMenu = CacheJumpMenu & "　├ "
                If Rs1("depth") > 1 Then
                    For i = 2 To Rs1("depth")
                        CacheJumpMenu = CacheJumpMenu & "　"
                    Next
                    CacheJumpMenu = CacheJumpMenu & "　├ "
                End If
                CacheJumpMenu = CacheJumpMenu & Rs1("ClassName") & "</option>" & vbCrLf
                Rs1.MoveNext
            Loop
            Rs1.Close
            Set Rs1 = Nothing
            Value = CacheJumpMenu
        End If
        ClassJumpMenu = Value
    End Function
    '================================================
    '函数名：GetRandomCode
    '作  用：系统分配随机代码
    '================================================