<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005－2009 佛山市动易网络科技有限公司版权所有 '************************************************************** ChannelID = PE_CLng(Trim(Request("ChannelID"))) Dim PrevSearchTime PrevSearchTime = Trim(Session("Search_Time")) If PrevSearchTime <> "" Then PrevSearchTime = CDate(PrevSearchTime) If DateDiff("s", PrevSearchTime, Now) < SearchInterval Then Response.Write "

为了避免恶意搜索而消耗大量系统资源，请您在 " & SearchInterval & " 秒后再刷新本页！

" Response.End End If End If Dim sModuleName sModuleName = LCase(Trim(Request("ModuleName"))) ClassID = PE_CLng(Trim(Request("ClassID"))) SpecialID = PE_CLng(Trim(Request("SpecialID"))) SkinID = DefaultSkinID PageTitle = "搜索结果" strPageTitle = SiteName & "----" & PageTitle strFileName = "Search.asp?ModuleName=" & sModuleName & "&ChannelID=" & ChannelID & "&Field=" & strField & "&Keyword=" & Keyword & "&ClassID=" & ClassID & "&SpecialID=" & SpecialID MaxPerPage = MaxPerPage_SearchResult Dim PE_Search Select Case sModuleName Case "article" Set PE_Search = New Article Case "soft" Set PE_Search = New Soft Case "photo" Set PE_Search = New Photo Case "shop" Set PE_Search = New Product Case Else Set PE_Search = New Article End Select Call PE_Search.Init Call PE_Search.GetHtml_Search Response.Write strHtml Set PE_Search = Nothing Call CloseConn Session("Search_Time") = Now %>