Syntax errors (operator lost) in the query expression "title=" small program support \ 'enterprise transfer \' and \ 'cash bonus \' function? ',
\ adminlufeng \ Sdcms_Coll_Coll asp, line 414
Application is Asp + Access a gathering function problems, some can adopt some travel the above problem,
The 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 the IF
Sql="Select title, every Topic, PIC, ispic, author, comefrom, hits, keyword, the content, jj, ispass, lastupdate, iscomment, ID, adddate From Sd_info Where the title='" & amp; FilterText (title, 1) & amp;" '
"Set the Rs=Server. CreateObject (" adodb. You ")
Rs. The Open Sql, Conn, 1, 3, 414 line, 414 line, 414 line, 414 line, 414 line, 414 line, 414 line
IF the 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)
The Content=ReplaceRemoteUrl (Content, Get_Coll_Configs (2), Get_Coll_Configs (3), Get_Coll_Configs (1), Thumb_WaterMark)
End the IF
Rs. Addnew
Rs (0)=Left (Trim (Title), 255)
Rs (1)=every
Rs (2)=SpecialID
Rs (3)=Left (FilterText (PhotoUrl, 0), 255)
Rs (4)=Check_ispic (PhotoUrl)
Rs (5)=Left (50) (author),
Rs (6)=Left (50) (copyfrom),
Rs (7)=Hits
Rs (8)=Left (255) (keyword),
Rs (9)=Content
Rs (10)=CloseHtml (CutStr (Content, Sdcms_Length))
Rs (11)=IsPass
Rs (12)=Now ()
Rs (13)=Sdcms_Comment_Pass
IF Len (AddDate) & gt; 0 Then
Rs (15)=AddDate
The Else
Rs (15)=Dateadd (" h ", Sdcms_TimeZone, Now ())
End the IF
Rs. Update
Rs. MoveLast
Dim Info_ID
Info_ID=Rs (14)
Custom_HtmlName Sdcms_Filename, "sd_Info", the Title, Info_ID
SaveData=https://bbs.csdn.net/topics/True
End the IF
CodePudding user response:
No one ah///