<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=TopMain.asp-->
<%
Keyword=trim(Request("Keyword"))
	If Keyword<>"" then
		If Request("page")<>"" then
			HttpUrl="http://bt.ep8.net/Search.asp?Keyword="&Keyword&"&page="&Request("page")&""
		Else
			HttpUrl="http://bt.ep8.net/Search.asp?Keyword="&Keyword&""
		End if
	Else
		Call ShowErr("请先输入关键词!")
		Response.End()
	End if
	StartGet = GetHttpPage(HttpUrl)
	List=GetBody(StartGet,"<!--列表开始-->","<!--列表结束-->",False,False)
	List=replace(List,"/Html/","Show.asp?ID=")
	List=replace(List,"/Category/","List.asp?ID=")
	List=replace(List,"/Index","")
	List=replace(List,".html","")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%>
</body></html>
