<%@ CODEPAGE=65001 %>
<%
'http:///////////////////////////////////////////////////////////////////////////////
'http:// Z-Blog
'http:// 作 者: 朱煊(zx.asd)
'http:// 版权所有: RainbowSoft Studio
'http:// 技术支持: rainbowsoft@163.com
'http:// 程序名称:
'http:// 程序版本:
'http:// 单元名称: search.asp
'http:// 开始时间: 2005.02.17
'http:// 最后修改:
'http:// 备 注: 站内搜索
'http:///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Call System_Initialize()
'plugin node
For Each sAction_Plugin_Searching_Begin in Action_Plugin_Searching_Begin
If Not IsEmpty(sAction_Plugin_Searching_Begin) Then Call Execute(sAction_Plugin_Searching_Begin)
Next
'检查权限
If Not CheckRights("Search") Then Call ShowError(6)
Dim strQuestion
strQuestion=TransferHTML(Request.QueryString("q"),"[nohtml]")
Dim objArticle
Set objArticle=New TArticle
objArticle.LoadCache
Dim i
Dim j
Dim s
Dim aryArticleList()
Dim objRS
Dim intPageCount
Dim objSubArticle
Dim cate
If IsEmpty(Request.QueryString("cate"))=False Then
cate=CLng(Request.QueryString("cate"))
End If
strQuestion=Trim(strQuestion)
If Len(strQuestion)>0 Then
strQuestion=FilterSQL(strQuestion)
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source="SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop],[log_Template],[log_FullUrl],[log_Type],[log_Meta] FROM [blog_Article] WHERE ([log_Type]=0) And ([log_ID]>0) AND ([log_Level]>2)"
If ZC_MSSQL_ENABLE=False Then
objRS.Source=objRS.Source & "AND( (InStr(1,LCase([log_Title]),LCase('"&strQuestion&"'),0)<>0) OR (InStr(1,LCase([log_Intro]),LCase('"&strQuestion&"'),0)<>0) OR (InStr(1,LCase([log_Content]),LCase('"&strQuestion&"'),0)<>0) )"
Else
objRS.Source=objRS.Source & "AND( (CHARINDEX('"&strQuestion&"',[log_Title])<>0) OR (CHARINDEX('"&strQuestion&"',[log_Intro])<>0) OR (CHARINDEX('"&strQuestion&"',[log_Content])<>0) )"
End If
If IsEmpty(cate)=False Then
objRS.Source=objRS.Source & "AND ([log_CateID]="&cate&")"
End If
objRS.Source=objRS.Source & "ORDER BY [log_PostTime] DESC,[log_ID] DESC"
objRS.Open()
If (Not objRS.bof) And (Not objRS.eof) Then
objRS.PageSize = ZC_SEARCH_COUNT
intPageCount=objRS.PageCount
objRS.AbsolutePage = 1
For i = 1 To objRS.PageSize
ReDim Preserve aryArticleList(i)
Set objSubArticle=New TArticle
If objSubArticle.LoadInfoByArray(Array(objRS(0),objRS(1),objRS(2),objRS(3),objRS(4),objRS(5),objRS(6),objRS(7),objRS(8),objRS(9),objRS(10),objRS(11),objRS(12),objRS(13),objRS(14),objRS(15),objRS(16),objRS(17))) Then
objSubArticle.SearchText=Request.QueryString("q")
If objSubArticle.Export(ZC_DISPLAY_MODE_SEARCH)= True Then
aryArticleList(i)=objSubArticle.subhtml
End If
End If
Set objSubArticle=Nothing
objRS.MoveNext
If objRS.EOF Then Exit For
Next
Else
ReDim Preserve aryArticleList(0)
End If
objRS.Close()
Set objRS=Nothing
Else
ReDim Preserve aryArticleList(0)
End If
objArticle.FType=ZC_POST_TYPE_PAGE
objArticle.Content=Join(aryArticleList)
objArticle.Content=Replace(objArticle.Content,"<#ZC_BLOG_HOST#>",BlogHost)
objArticle.Title=ZC_MSG085 + ":" + TransferHTML(strQuestion,"[html-format]")
objArticle.FullRegex="{%host%}/{%alias%}.html"
If GetTemplate("TEMPLATE_SEARCH")<>empty Then
objArticle.template="SEARCH"
End If
If objArticle.Export(ZC_DISPLAY_MODE_SYSTEMPAGE) Then
objArticle.Build
Response.Write objArticle.html
End If
'plugin node
For Each sAction_Plugin_Searching_End in Action_Plugin_Searching_End
If Not IsEmpty(sAction_Plugin_Searching_End) Then Call Execute(sAction_Plugin_Searching_End)
Next
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>