<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/System_Language.asp" -->
<!--#include file="../Include/Bk_safe.Asp" -->
<!--#include file="../Generate/SC_Config.Asp"-->
<!--#include file="../Generate/SC_Function.Asp"-->
<%
'*********************************************
'软件名称：博科企业网站内容管理系统（BOKECMS）
'软件开发：博科网络科技工作室
'网    址：http://www.bokew.net
'服务  QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：bokewlkj
'*********************************************
%>
<%
key = request("key")
Page =  CInt(request.QueryString("Page"))

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

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

Call SiteInfo()
HTTP_USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")
If Instr(HTTP_USER_AGENT, "Windows NT") < 0 and mStatus Then
	replace_code = ReadFromUTF(mTemplatePath&"/html/Search.html","utf-8")
	replace_code = ReplaceCommon(replace_code, mTemplatePath, "Mobile")
Else
	replace_code = ReadFromUTF(TemplatePath&"/html/Search.html","utf-8")
	replace_code = ReplaceCommon(replace_code, TemplatePath, "PC")
End If

replace_code = replace(replace_code, "{bokecms:key}", key)

replace_code = Search(replace_code, Page, "PC", request.ServerVariables("QUERY_STRING"))
replace_code = HtmlTo(replace_code, "", "", "PC", "")

response.Write replace_code
%>