<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/ConnSiteData.Asp" -->
<!--#include file="../Include/System_Language.asp" -->
<!--#include file="../Include/Keyicms_safe.Asp" -->
<!--#include file="../Html/html_Config.Asp"-->
<!--#include file="../Html/html_Function.Asp"-->
<%
key = request("key")
Page = CLng(request.QueryString("Page"))

If key = "" Then
	response.Write "<script>alert('输入内容为空或有误，请重新输入。');history.back()</script>"
	response.End
End If

If Page < 1 Then response.Redirect "Index.Asp?key=" & server.URLEncode(key) & "&Page=1"

Call SiteInfo()
HTTP_USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")

If Instr(HTTP_USER_AGENT, "Windows NT") < 0 and mStatus Then
	Ke01 = "Mobile"
	TemplatePath = TemplatePath
	TemFilePath = TemplatePath & "/html"
Else
	Ke01 = "PC"
	TemplatePath = TemplatePath
	TemFilePath = TemplatePath & "/html"
End If

dim newHtml
set newHtml = new Html
If SiteStatus Then
	with newHtml
		.ReadFromUTF TemFilePath & "/Search.dwt", "utf-8"
		.Include()
		.Position SortID, 3
		.ReplaceCommon()
	
		newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:key}", key)
		newHtml.replace_code = KE01_Search(newHtml.replace_code, Page, Ke01, request.ServerVariables("QUERY_STRING"))

		.KE01_If()

'		response.Write KE01_Search(newHtml.replace_code, Page, Ke01, request.ServerVariables("QUERY_STRING"))
'		response.end
		If Ke01 = "PC" Then newHtml.replace_code = newHtml.replace_code & ConstJs
		
		replace_code = newHtml.replace_code
	end with
Else
	replace_code = ExplainJS
End If
set newHtml = nothing

response.Write replace_code
%>