<% '------------------------------------------------接收参数 MaxPerPage=20 '每页显示记录数 Search=ChkStr(request("Search")) '上次查询条件 '------------------------------------------------ '接受查询参数 Key=ChkStr(Request("Key"))'关键字 Sort = ChkInt(Request("Sort"))'检索栏目 Order = ChkInt(Request("Order")) if Sort="" then Sort=0 sMode=ChkStr(Request("sMod"))'检索方式 if sMode="" then sMode="title" startdate = request("startdate") enddate = request("enddate") if startdate <> "" then startdate = formatdatetime(startdate,2) if enddate <> "" then enddate = formatdatetime(enddate,2) '查寻条件 if Search="" then Search="and " if sMode="title" then Search = Search & "Title LIKE '%" & Key & "%' and " if sMode="content" then Search = Search & "(Title LIKE '%" & Key & "%' or Content LIKE '%" & Key & "%') and " if startdate<>"" then Search = Search & "Sdate >'"& startdate &"' and " if enddate<>"" then Search = Search & "Sdate <'"& enddate &"' and " Search=Search & "site="&SiteID&""'可查看所有人录入的记录 END if If Order = 1 Then OrderStr = "ID" Else OrderStr = "Hits" End If set rsnews=Server.CreateObject("ADODB.RecordSet") Sql="SELECT ID,Sdate,Sort,Title,Color,HtmlUrl,Hits FROM TbNews "_ &" Where checked=1 and IsStatic=1 and (Edate is null or Edate>getdate()) and sort in ("& GetTreeId("TbSiteSort","id","pid",sort)&")"_ &" "& Search &" order by Sdate desc,"& OrderStr &" desc" rsnews.open sql,oConn,1,1 '------------------------------------------------ If smod = "" Then smod="search" TemplateSign="search"'栏目模板 %> <%= GetHtmlHead(HtmlOut(SiteTitle), HtmlOut(SiteKeywords), HtmlOut(SiteDescription)) %> <%= kktTmps(GetTemplate(SiteID,TemplateSign)) %> <%= GetHtmlEnd %> <% '释放对象变量 Call CloseConn '--------------------------------------------------------------------------------- '【功能】处理自定义模板标签 Function kktTmps(ByVal sContent) set kkt = new kktTemplate '创建模板对象 kkt.set_string "TmpBody", sContent '-------------------------------------------------------------------------------'设置模板变量 kkt.set_var "title", GetTitle(), false '标题 kkt.set_var "body", GetBody() , false '内容 kkt.set_var "gethotnews", "",false kkt.set_var "getlastnews", "",false '------------------------------------------------------------------------------- kkt.parse "out", "TmpBody", false '模板变量 out = 处理后的文件 sContent=kkt.v("out") '输出out的内容 set kkt = nothing '销毁模板对象 kktTmps = sContent End Function %>