End Sub Sub Check3G() Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET") RS.Open "Select WapSetting From KS_Config",conn,1,3 Dim SetArr,SetStr,I SetArr=Split(RS(0),"^%^") For I=0 To Ubound(SetArr) If I=0 Then SetStr=0 Else SetStr=SetStr & "^%^" & SetArr(I) End If Next RS(0)=SetStr RS.Update RS.Close:Set RS=Nothing Call KS.DelCahe(KS.SiteSn & "_Config") Call KS.DelCahe(KS.SiteSn & "_Date") End Sub End Class %>

出现这个错误提示，是什么意思？

之前不是，是一个别人修改的大河信息版，用了二年才知道原来是盗版（还是用钱买的）。

上个月才直接升到9。5版，1104，但不是用官方的升程式升的，因为改动太多，升级不了，我是直接修改数据库的数据升级的（也不算升级，只是硬套进9。5版）。

在本地测试过正常才开始使用的（如果再出新版本，我也不知现在这个数据库能不能升级）。

本来用了一个月都没事(用1104版没事，可以正常），今天升级1216才出现问题。楼上说的问题，我自已解决了，但有一个新的问题，就是编辑器里面的键全是灰色的，不能粘贴和复制，手动打字是可以。这个有什么解决办法吗？

注：我本来想用全新的数据库去做站的，但是用采集的方法无法采集旧站的内容分页（只能采集到第二页，第二页以后的采集不了），只能是修改数据表，把原来的文章连结构一起转了过9。5。会和这个有关系吗？

另，我站现在的文档基本正常：http://www.jadya.com，有时间可以帮看看（起码我觉得是正常，哎）

还有一个要说明一下：就是站内有些文章显示时间是刚发的，那不是说现在后台编辑器正常（还是灰色），那也是我直接在数据库里加的，主要是怕长期不更新，搜索引擎不鸟我了。如果每天都要下载数据库去新添文章，我想我会累死的，大哥好心帮帮我吧。

用正版程序！