<% data_path=""  %>
<!--#include file="conn/conn.asp"--> 

 

<%

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		Function NoHtml(str)
			Dim re
			Set re=New RegExp
			re.IgnoreCase =True
			re.Global=True
			re.Pattern="(\<.*?\>)"
			str=re.Replace(str,"")
			re.Pattern="(\<\/.*?\>)"
			str=re.Replace(str,"")
			NoHtml=str
		End Function
		
		'过滤SQL非法字符并格式化html代码
		Function Replace_Text(fString)
			If IsNull(fString) Then
			Replace_Text=""
			Exit Function
			Else
			fString=Trim(fString)
			fString=Replace(fString,">","")
			fString=Replace(fString,"<","")
			fString=Replace(fString,"'","")
			fString=Replace(fString,";","；")
			fString=Replace(fString,"--","—")
			fString=Server.HtmlEncode(fString)
			Replace_Text=fString
			End If	
		End function
 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 '获取传递的关键字
     Search_Word=NoHtml(Replace_Text(Trim(Request("searchword"))))
 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     Set rsSearch=Server.CreateObject("ADODB.RecordSet")
 
        '定义输出返回值变量
		Dim XML_Result
		i=1
		'IF Search_Word<>"" Then
		
		  ' XML文档头
		   XML_Result="<?xml version=""1.0"" encoding=""gb2312"" ?><blogsearch>"
		 
		' 创建查询SQL语句(其中的表与字段是照原稿的网络高手举列的)
		sqlSearch="select top 7 filekey,keywords from Websen_keyhots order by hits desc"
		' 打开记录集
		rsSearch.Open sqlSearch,conn,1,1
		
	   If  rsSearch.Eof then
		 
		 ' 如果没有搜索结果就产生一个结果，logid为#，标志着没有搜索结果
		XML_Result=XML_Result&"<result><logid>#</logid><logtitle/></result>"
		 
	   Else
		 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		 ' 循环输出搜索结果
		 Do While Not rsSearch.Eof
		 
		XML_Result=XML_Result&"<result><logid>a href="&HOPE_InstallDir&"search/"&rsSearch("filekey")&"?keywords="&trim(rsSearch("keywords"))&"</logid><logtitle><![CDATA["&trim(rsSearch("keywords"))&"]]></logtitle></result>"	 
		
		rsSearch.MoveNext
		i=i+1
		if i=13 then exit do
		Loop
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		Set rsSearch=nothing
		
	   End If
		 XML_Result=XML_Result&"</blogsearch>"
				 
  ' Else
   
		 ' 关键字为空，则返回无搜索结果
		'  XML_Result=XML_Result&"<result><logid>#</logid><logtitle/></result>"
		
  ' End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	' 设置MIME Type为XML文档
	 Response.ContentType="application/xml"
	 Response.Charset="utf-8"
	' 输出搜索结果
     Response.Write(XML_Result)
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 'ajaxsearch.asp文件内容**************  end  *****************************************************
 

%>