<!-- #Include File="../Include/Skin.asp" -->
<!-- #Include File="../Include/Cls_PageCute.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Dim Sea_Type,Keyword,iListStr,Lii,ChannelID,RedirectUrl

Sea_Type = trim(Cls.Code_Query("sea_type"))
Keyword = trim(Cls.Code_Query("keyword"))
iListStr = Cls.Channel_Menu
For Lii =0 To Ubound(iListStr,2)
	If lcase(Sea_Type) = lcase(iListStr(12,Lii)) Then
  		Sea_Type = iListStr(12,Lii)
		ChannelID = Int(iListStr(11,Lii))
	End If
Next
if ChannelID = 4 then
	RedirectUrl = Cls.Web_Dir&sea_type&"/Search.asp?action=search&keyword="&keyword&"&sea_fid=0" 
else
	RedirectUrl = Cls.Web_Dir&sea_type&"/List.asp?action=search&c_id=&sea_type=Types&sea_term=all&keyword="&keyword 
end if
	Call Format_Redirect(RedirectUrl)
Response.End
%>
