|
Param=Param & ")"
Case 2:Param=Param & " And ArticleContent Like '%" & KeyWord & "%'"
Case 3:Param=Param & " And Author Like '%" & KeyWord & "%'"
Case 4:Param=Param & " And ArticleInput Like '%" & KeyWord & "%'"
Case 5:Param=Param & " And KeyWords Like '%" & KeyWord & "%'"
Case else
if (FuzzySearch=1) Then
For I=0 To Ubound(KeyWordArr)
If I=0 Then
Param=Param & " And (Title Like '%" & KeyWordArr(i) & "%'"
Else
Param = Param & " or Title Like '%" & KeyWordArr(i) & "%'"
End If
Next
Else
Param=Param & " And (Title Like '%" & KeyWord & "%' or Author Like '%" & KeyWord & "%'"
End If
Param=Param & ")"
End Select
If ClassID<>"0" Then Param=Param & " And Tid In(" & KS.GetFolderTid(ClassID) & ")"
If ChannelID=110 Then
Param= Param & " and KS_ZWLX='" & KS.S("KS_ZWLX") & "' and KS_GZD='" & KS.S("KS_GZD") & "'"
End If
SqlStr="Select * From " & KS.C_S(ChannelID,2) & Param & " Order By ID Desc"
Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open SqlStr,Conn,2,1
上面加赤色代码就是我们按照自界说搜刮增补的前提。信托有点sql基本的伴侣，对这条语句能一览无余吧,不清晰的伴侣欠好紧。
自界说模子前提对
if channelid=110 then
....
end if
请必然要加上if channelid=110 ....这样对原体系成果的搜刮就不会影响。您假若有多个自界说模板都想要本身写搜刮表单，就在下面接下去写if then end if 前提对吧
搜刮功效的模板页就不消我多说了，只需留意在搜刮模板页里挪用自界说字段名目是{$KS_自界说字段名称}即可.
但愿以上的教程能对初学者起到抛砖引玉的浸染。很是感激谢各人一向以来对科汛的支持！真心但愿我们的事变能给您带来利便。 （编辑：湖南网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
