gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\sort.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="ConnDB.asp"-->
<!--#include file="include/function.Common.asp"-->
<!--#include file="include/Deep.Class.Template.asp"-->

<!--#include file="include/function.tag.template.asp"-->
<!--#include file="include/function.tag.url.asp"-->
<!--#include file="include/function.tag.common.asp"-->

<%
sortName=trim(request.QueryString("name") )
id_Sort=trim(request.QueryString("id") )
searchText =trim(request.QueryString("searchText"))

if (id_Sort<>"") then
	'是否html静态
	if(site_isHTML=1)then
		call CloseConnDB()
		Response.Redirect("html/sort/sort_"&id_Sort&".htm")
	end if


	sql="select * from deep_WebSort where fid_Sort=" & id_Sort
	set rsMeta=conn.execute(sql)
	if not(rsMeta.eof and rsMeta.bof) then
		sortName=rsMeta("fname")
		Site_MetaKeywords=Site_MetaKeywords
		Site_MetaDescription=rsMeta("ftip")
	end if
	rsMeta.close
	set rsMeta=nothing
end if
%>

<%
'id=request.QueryString("id")
'if (id="") or (not isNumeric(id)) then 
'  response.Redirect("index.asp")
'end if

	  


dim oDeepTemplate
set oDeepTemplate=new Deep_Template
	oDeepTemplate.templates_dir="themes/"&site_theme&"/"
	'template=oDeepTemplate.readTemplateFile("index.htm")
	oDeepTemplate.readTemplateFile("sort.template.html")	'调入文件
	'oDeepTemplate.replaceTag "../base.css","themes/base.css"
	oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css"
	
	do_replace_siteConfig(oDeepTemplate)	'替换网站基本配置信息标签
	'导航
	call do_replace_Channel()
	'广告
	call do_replace_AD()
    
	'response.Write( oDeepTemplate.template )
	oDeepTemplate.replaceTag "custom_sort_url",getHTML_custom_sort_url
		
	' 参数	{$fastLogin(46,8)}
	oDeepTemplate.replaceTagParameter "fastLogin","getHTML_fastLogin"
	oDeepTemplate.replaceTag "urlSort",getHTML_urlSort
	oDeepTemplate.replaceTag "friendLink",getHTML_friendLink
	oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic
	
	'---频道--------------------
	'if(fparentID<>0)then
	  strSiteNavClassList = siteNavClassList("",fparentID,"select fid,fparentID,fname from deep_Channel where fisView=1 and fid=") 
	'end if
    
	oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList
	oDeepTemplate.replaceTag "sortName",sortName
	'oDeepTemplate.replaceTag "channel_contentTitle",fcontentTitle
	'oDeepTemplate.replaceTag "channel_content",fcontent
	oDeepTemplate.replaceTag "sortList",getHTML_sortList(id_Sort , sortName)
	'
	'------------------------
	oDeepTemplate.replaceTag "urlList",getHTML_urlList(id_Sort,searchText)
	
	oDeepTemplate.display()	'显示
	
set oDeepTemplate=nothing

call CloseConnDB()

%>