UC知道ASP地址栏传递数据出错
来源：百度知道 编辑：UC知道 时间：2024/07/03 02:42:50
错误类型：Provider (0x8002000A)超出当前范围。/User_Sendjl.asp, 第 67 行（也就是TID这个字段）
Dim KSCls
Set KSCls = New User_Sendjl
KSCls.Kesion()
Set KSCls = Nothing
Class User_Sendjl
Private KS,KSUser
Private CurrentPage,totalPut
Private RS,MaxPerPage
Private ChannelID
Private TempStr,SqlStr
Private InfoIDArr,InfoID
Private TID
Private Sub Class_Initialize()
MaxPerPage =10
Set KS=New PublicCls
Set KSUser = New UserCls
End Sub
Private Sub Class_Terminate()
Set KS=Nothing
Set KSUser=Nothing
End Sub
Public Sub Kesion()
IF Cbool(KSUser.UserLoginChecked)=false Then
Response.Write "<script language=javascript>alert('您还未登录，请先登录！');top.location.href='Login.asp';window.close();</script>"
Exit Sub
End If
If KSUser.UserType=1 Then
Response.Write("<script language=javascript>alert('企业会员不能使用该功能！');top.location.href='Lo
Dim KSCls
Set KSCls = New User_Sendjl
KSCls.Kesion()
Set KSCls = Nothing
Class User_Sendjl
Private KS,KSUser
Private CurrentPage,totalPut
Private RS,MaxPerPage
Private ChannelID
Private TempStr,SqlStr
Private InfoIDArr,InfoID
Private TID
Private Sub Class_Initialize()
MaxPerPage =10
Set KS=New PublicCls
Set KSUser = New UserCls
End Sub
Private Sub Class_Terminate()
Set KS=Nothing
Set KSUser=Nothing
End Sub
Public Sub Kesion()
IF Cbool(KSUser.UserLoginChecked)=false Then
Response.Write "<script language=javascript>alert('您还未登录，请先登录！');top.location.href='Login.asp';window.close();</script>"
Exit Sub
End If
If KSUser.UserType=1 Then
Response.Write("<script language=javascript>alert('企业会员不能使用该功能！');top.location.href='Lo
一定是TID的数据类型与传递的数据类型不一致所造成的，建议你检查下数据库这两个数据的类型设置是否一样。
TID在提交页面里设置的数据类型是什么?
RSAdd(5)对应数据库里的数据类型是什么?
试着转换一下数据类型
RSAdd(5)里面的字段长度不过或类型不匹配
可能是数据类型不一样，你强制转换一下数据类型试试