<!--#include file="tgzcm.Conn.asp"-->
<!--#include file="tgzcm.Include/tgzcm.Lable.All.asp"-->
<%
Dim searchtype,keyword
searchtype=Trim(Request("Action"))
keyword=htmlclose(Trim(Request("keyword")))
page=PE_CLng(Request.QueryString("page"))
If page<1 Then page=1'初始化分页参数
List_Page=""         '初始化分页链接
If keyword="" Then
	Call tgzcm_err_c("关键字不能为空！")
	Response.End
Elseif searchtype="" Then 
    searchtype="name"	
End If
Call tgzcm_Lable_Head(tgzcm_Lable_Html(tgzcmPath&"skin/"&tgzcm(12)&"/"&tgzcmId(21)&"tgzcm_search.html"))
Call tgzcm_Lable_List(moban)
Call tgzcm_Lable_Search(moban)
tgzcm_title="搜索结果>>"&keyword
moban=Replace(moban,"@SearchKeyword@",keyword)
Call tgzcm_Lable_All(moban)
Response.Write(moban)
Call CloseConn
%>