Microsoft JET Database Engine '80040e14'语法错误 (操作符丢失) 在查询表达式

[路大侠的领地]

Microsoft JET Database Engine '80040e14'
语法错误 (操作符丢失) 在查询表达式 'title='小程序中 支持 \'企业转账\'和\'现金红包\'的功能吗'' 中。
\adminlufeng\Sdcms_Coll_Coll.asp, line 414

程序是Asp+Access 一个采集功能出问题，有的可以采有的出行上述问题。



Function SaveData
Dim Sql,Rs
SaveData=False
IF IsArray(Get_Coll_Filters_Config) Then
Coll_Filters(Get_Coll_Filters_Config)
End IF
Sql="Select title,classid,Topic,pic,ispic,author,comefrom,hits,keyword,content,jj,ispass,lastupdate,iscomment,ID,adddate From Sd_info Where title='"&FilterText(title,1)&"'"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open Sql,Conn,1,3 414行行414行行414行行414行行414行行414行行414行行
IF Rs.Eof Then
IF SaveFiles=1 Then
Dim New_file
New_file=GetRndFileName(Get_Filetxt(PhotoUrl))
PhotoUrl=SaveRemoteFile(New_file,PhotoUrl,Get_Coll_Configs(2),Get_Coll_Configs(3),Get_Coll_Configs(1),Thumb_WaterMark,False)
Content=ReplaceRemoteUrl(Content,Get_Coll_Configs(2),Get_Coll_Configs(3),Get_Coll_Configs(1),Thumb_WaterMark)
End IF
Rs.Addnew
Rs(0)=Left(Trim(Title),255)
Rs(1)=Classid
Rs(2)=SpecialID
Rs(3)=Left(FilterText(PhotoUrl,0),255)
Rs(4)=Check_ispic(PhotoUrl)
Rs(5)=Left((author),50)
Rs(6)=Left((copyfrom),50)
Rs(7)=Hits
Rs(8)=Left((keyword),255)
Rs(9)=Content
Rs(10)=CloseHtml(CutStr(Content,Sdcms_Length))
Rs(11)=IsPass
Rs(12)=Now()
Rs(13)=Sdcms_Comment_Pass
IF Len(AddDate)>0 Then
Rs(15)=AddDate
Else
Rs(15)=Dateadd("h",Sdcms_TimeZone,Now())
End IF
Rs.Update
Rs.MoveLast
Dim Info_ID
Info_ID=Rs(14)
Custom_HtmlName Sdcms_Filename,"sd_Info",Title,Info_ID
SaveData=True
End IF

[路大侠的领地]

木有人啊///