[求助]一段由ACCESS转为SQL SERVER后出现的CINT错误
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))
