access labsql 出错_一段由ACCESS转为SQL SERVER后出现的CINT错误

你的位置:

问答吧

-> 网络编程

-> 问题详情

一段由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, "") = 0 Then

St_level = 0

Else

user_array = Split(User_List, "")

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, "") = 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))

作者: 流星若梦

发布时间: 2005-08-14

1.数据库字段属性

2.把Cint去掉算了！

作者: sHARP

发布时间: 2005-08-14

user_array2(8)不是数字使用cint会出错的!

作者: fdipzone

发布时间: 2005-08-15

把那个函数去掉的话.在其他的页面也是会出错的啊.

St_level =user_array2(8)

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: '[string: ""]'

/stchat/chat.asp，行10

去掉的话就是这个错误.

3楼

user_array2(8)不是数字使用cint会出错的!

这个我知道啊.可我用ACCESS数据库的时候.都不会有错误.

自从转成了SQL SERVER数据库后就有这个错误了.

我不知道那个东西要怎么办好.

望高手再给以解决!

作者: 流星若梦

发布时间: 2005-08-16

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: '[string: ""]'

/stchat/chat.asp，行10

去掉的话就是这个错误.

下面是CHAT.ASP的相关代码.

主要是 If St_level = 0  Then 这个出错

St_level =getLevel(Application(StConstStr & "_user_list"), Application(StConstStr & "_room_list"))

If St_level = 0  Then

ChatFrame = ""

Response.end

End If

作者: 流星若梦

发布时间: 2005-08-16

asp的cint好像很小吧？你的那个数字大概有多大？以前碰到过用Cint不行改用CLng就好了…………不知道能不能解决你的问题…………

作者: donothing.net

发布时间: 2005-08-16

我上网的时候找了很多种方法试过了.有像你说的那种方法.试了还是无效的.

作者: 流星若梦

发布时间: 2005-08-17

无人问津.

作者: 流星若梦

发布时间: 2005-08-18

将user_array2(8)内容输出看看

作者: bqrm_521

发布时间: 2005-08-18