饥荒单机人物mod:DVBBS SP7.1.0 Microsoft VBScript 运行时错误 错误 '800a000d'
来源:百度文库 编辑:神马品牌网 时间:2024/08/27 06:25:52
我安装了DVBBS SP7.1.0 在发贴或上传测试时,总出现以下错误信息:
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: "|0"]'
/SavePost.asp,行 510
相关部分代码如下:
Public Sub Savepost()
If Action = 5 Or Action = 7 Then
ilayer=1:iOrders=0:ParentID=0
MyLastPostTime=Replace(Replace(CSTR(NOW()+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","") <!--这就是510行代码-->
DateTimeStr=MyLastPostTime'Replace(Replace(CSTR(NOW()+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","")
If Action = 7 Then Insert_To_Vote()
Insert_To_Topic()
'更新总固顶和固顶的数据以及缓存数据
If MyIsTop=3 Then
'将总固顶ID插入总设置表
Dim iForum_AllTopNum
Set Rs=Dvbbs.Execute("Select Forum_AllTopNum From Dv_Setup")
If Trim(Rs(0))="" Or IsNull(Rs(0)) Then
iForum_AllTopNum = RootID
Else
iForum_AllTopNum = Rs(0) & "," & RootID
End If
Dvbbs.Execute("Update Dv_Setup Set Forum_AllTopNum='"&iForum_AllTopNum&"'")
Dvbbs.ReloadSetupCache iForum_AllTopNum,28
Set Rs=Nothing
ElseIf MyIsTop=1 Then
Dim BoardTopStr
Set Rs=Dvbbs.Execute("Select BoardID,BoardTopStr From Dv_Board Where BoardID="&Clng(Dvbbs.BoardID))
If Not (Rs.Eof And Rs.Bof) Then
If Rs(1)="" Or IsNull(Rs(1)) Then
BoardTopStr = RootID
Else
If InStr(","&Rs(1)&",","," & RootID & ",")>0 Then
BoardTopStr = Rs(1)
Else
BoardTopStr = Rs(1) & "," & RootID
End If
咨询高手帮助,万分感谢!
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: "|0"]'
/SavePost.asp,行 510
相关部分代码如下:
Public Sub Savepost()
If Action = 5 Or Action = 7 Then
ilayer=1:iOrders=0:ParentID=0
MyLastPostTime=Replace(Replace(CSTR(NOW()+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","") <!--这就是510行代码-->
DateTimeStr=MyLastPostTime'Replace(Replace(CSTR(NOW()+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","")
If Action = 7 Then Insert_To_Vote()
Insert_To_Topic()
'更新总固顶和固顶的数据以及缓存数据
If MyIsTop=3 Then
'将总固顶ID插入总设置表
Dim iForum_AllTopNum
Set Rs=Dvbbs.Execute("Select Forum_AllTopNum From Dv_Setup")
If Trim(Rs(0))="" Or IsNull(Rs(0)) Then
iForum_AllTopNum = RootID
Else
iForum_AllTopNum = Rs(0) & "," & RootID
End If
Dvbbs.Execute("Update Dv_Setup Set Forum_AllTopNum='"&iForum_AllTopNum&"'")
Dvbbs.ReloadSetupCache iForum_AllTopNum,28
Set Rs=Nothing
ElseIf MyIsTop=1 Then
Dim BoardTopStr
Set Rs=Dvbbs.Execute("Select BoardID,BoardTopStr From Dv_Board Where BoardID="&Clng(Dvbbs.BoardID))
If Not (Rs.Eof And Rs.Bof) Then
If Rs(1)="" Or IsNull(Rs(1)) Then
BoardTopStr = RootID
Else
If InStr(","&Rs(1)&",","," & RootID & ",")>0 Then
BoardTopStr = Rs(1)
Else
BoardTopStr = Rs(1) & "," & RootID
End If
咨询高手帮助,万分感谢!