在关键字 'Order' 附近有语法错误..急!

来源:百度知道 编辑:UC知道 时间:2024/09/28 13:33:21
如下代码:<%
Dim SQL,Rs,i,TypeName,Typeid,N_TypeName
Dim Title,FileName,Path,DateAndTime
Dim Class1,Key
'//跨站检测
Check_Url()
'//获取参数值
Class1 = Replace_Text(Request("class"))
Key = Replace_Text(Request("key"))
'//开始从数据库中获取某类别的新闻
SQL = "Select Title,FileName,Path,DateAndTime,t_Color From [pH_New_Info]

Where Flag=1 And (Title Like '%"&Key&"%' or Content Like '%"&Key&"%')"
If Class1 <> "0" Then
SQL = SQL&" And Typeid="&Cstr(Class1)
End if
SQL = SQL&" Order By DateAndTime Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,Conn,1,1

Rs.Pagesize = 20
Psize = Rs.PageSize
PCount = Rs.PageCount
RCount = Rs.RecordCount

PageNo = Cint(Request.QueryString("PageNo"))
If PageNo < 1 Then
PageNo

SQL = "Select Title,FileName,Path,DateAndTime,t_Color From [pH_New_Info]

Where Flag=1 And (Title Like '%"&Key&"%' or Content Like '%"&Key&"%')"

注意在最后加空格,也就是)"的引号前面,括号后面多加几个空格,因为你后面还有AND语句连接
把SQL语句RESPONSE一下,在后台执行一下看看
那你把response.write sql;的内容给我看看!