动网论坛出错：Microsoft VBScript 运行时错误 错误 '800a000d'类型不匹配: 'Ccur'

问题描述：

错误信息：错误代号undefined

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

类型不匹配: 'Ccur'

/bbs/SavePost.asp，行 1468

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

bbs/SavePost.asp1450－1480行

updateboard).documentElement.selectSingleNode("information/@lastpost_"& i &"").text=LastPost_1(i)
Next
End If
Next
End Sub
Public Sub UpDate_ForumInfoAndCache()
Dim updateinfo,LastPostTime
Dim Forum_LastPost,Forum_TodayNum,Forum_MaxPostNum
Forum_LastPost=Dvbbs.CacheData(15,0)
Forum_TodayNum=Dvbbs.CacheData(9,0)
Forum_MaxPostNum=Dvbbs.CacheData(12,0)
LastPostTimes=split(Forum_LastPost,"$")
LastPostTime=LastPostTimes(2)
If Not IsDate(LastPostTime) Then LastPostTime=Now()
If datediff("d",LastPostTime,Now())=0 Then
If CLng(Forum_TodayNum)+1 > CLng(Forum_MaxPostNum) Then
updateinfo=",Forum_MaxPostNum=Forum_TodayNum+1,Forum_MaxPostDate="&SqlNowString&""
Dvbbs.ReloadSetupCache Now(),13
Dvbbs.ReloadSetupCache CLng(Forum_TodayNum)+1,12
End If
Dvbbs.ReloadSetupCache CLng(Forum_TodayNum)+1,9
If Action = 6 Then
SQL="update Dv_setup set Forum_PostNum=Forum_PostNum+1,Forum_TodayNum=Forum_TodayNum+1,Forum_LastPost='"&LastPost&"' "&updateinfo&" "
Else
SQL="update Dv_setup set Forum_TopicNum=Forum_TopicNum+1,Forum_PostNum=Forum_PostNum+1,Forum_TodayNum=Forum_TodayNum+1,Forum_LastPost='"&LastPost&"' "&updateinfo&" "
End If
Else
If Action = 6 Then
只是新注册用户发主题帖才会出现这样的错误，发回复帖正常，
论坛网址：http://www.52laiyang.com/bbs

问题解答：

动网论坛出错：Microsoft VBScript 运行时错误 错误 '800a000d'类型不匹配: 'Ccur'这个旅游问答期待您的解答，请登录账号或关注微信公众号回答这个问题。