遵义机场二期总投资:ODBC 驱动程序不支持所需的属性。

Set Rs = server.CreateObject(G_FS_RS)
If Keyword<>"" then
If Types = "News" then
Dim N1
If Condition = "title" Then
N1 = " and Title like '%"& Keyword &"%'"
ElseiF Condition = "content" Then
N1 = " and Content like '%"& Keyword &"%'"
Else
N1 = " and Author like '%"& Keyword &"%'"
End if
ReSQL = "select * from FS_News where DelTF=0 and AuditTF=1 "& N1 &" Order by Id desc"
调这句
ElseIf Types="DownLoad" then
Dim k1
If Condition = "title" Then
k1 = " and Name like '%"& Keyword &"%'"
ElseiF Condition = "content" Then
k1 = " and description like '%"& Keyword &"%'"
Else
k1 = " and Provider like '%"& Keyword &"%'"
End if
ReSQL = "select * from FS_Download where AuditTF=1 "& k1 &" Order by Id desc"
ElseIf Types="Mall" then
Dim M1
If Condition = "title" Then
M1 = " and Product_Name like '%"& Keyword &"%'"
ElseiF Condition = "content" Then
M1 = " and Products_description like '%"& Keyword &"%'"
Else
M1 = " and Products_MakeCompany like '%"& Keyword &"%'"
End if
ReSQL = "select * from FS_Shop_Products where IsLock=0 "& M1 &" Order by Id desc"
End if
Else
Response.Write("<script>alert(""请输入关键字!!!!\n\nPowered By MorecnCMS"");location=""javascript:history.back()"";</script>")
Response.End
End if
Rs.Open ReSQL,Conn,1,1