Microsoft JET Database Engine '80040e14'
語法錯誤 (運算子丟失) 在查詢運算式 'title='小程式中 支持 \'企業轉賬\'和\'現金紅包\'的功能嗎'' 中。
\adminlufeng\Sdcms_Coll_Coll.asp, line 414
程式是Asp+Access 一個采集功能出問題，有的可以采有的出行上述問題。
Function SaveData
Dim Sql,Rs
SaveData=https://bbs.csdn.net/topics/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=https://bbs.csdn.net/topics/True
End IF
uj5u.com熱心網友回復：
木有人啊///轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/62351.html
標籤：Access
上一篇：4個表的復雜聯合查詢，求助！