Public Function getLevel (User_List,room_list) Dim St_level Stname = LTrim(Session("Stname")) If Stname = "" Then St_level = 0 ElseIf InStr(User_List, "<$" & Stname & "$>") = 0 Then St_level = 0 Else user_array = Split(User_List, "<$" & Stname & "$>") user_array2 = Split(user_array(1), "$>") If user_array2(0) <> Session("mytemp") Then St_level = 0 Else St_level=cint(user_array2(8)) End If room_id = CLng(user_array2(4)) If InStr(room_list, "<$" & room_id & "$>") = 0 Then St_level = 0 End If End If getLevel = St_level End Function Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'cint' /stchat/StChat.inc，行74 就是这一段出错了.请问高手们要如何解决? St_level=cint(user_array2(8))

对于vb不是很熟悉，
但是发现搂住好像没有定义这个变量奥！

谢谢你的热心回复啊.
虽然还没得到解决.
但总算有人出来回复了.
这段只是其中的一段代码而已.
那个变量在前面就定义过了.
现在不是变量没定义的问题.
是类型不匹配:的问题.