<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%Call SQLin()
Tid=request("typeid")
if Tid="" or not IsNumeric(Tid) then
response.Write ("<script language='JavaScript'>alert('该页面不存在，请访问其他内容!');location.href='JavaScript:history.back()';</script>")
Response.end()
end if

Cid=10
session(FRHRCMS&"ChannelID") = Cid
'读取栏目名称
set rs=conn.execute("select * from JOB_NewsSort where S_id="&Tid&"")
if not rs.eof then
news_typename=rs("S_name")
typeid=rs("S_id")
session(FRHRCMS&"TypeID") = Tid
else
response.Write ("<script language='JavaScript'>alert('栏目不从在，请访问其他内容');location.href='JavaScript:history.back()';</script>")
Response.end()
end if
rs.close
set rs=nothing
'读取频道名称
set rs=conn.execute("select * from JOB_Channel where ChannelID="&Cid&"")
ChannelName=rs("ChannelName")
ChannelId=rs("ChannelId")
ChannelKeywords=rs("Meta_Keywords")
ChannelDescription=rs("Meta_Description")
set rs=nothing
'读取模版内容
html=LoadTemplate(Cid,2,0)
'读取分页
if request("page")<>"" then
	if cint(request("page"))<1 then
	session(FRHRCMS&"Page")=1
	else
	session(FRHRCMS&"Page")=cint(request("page"))
	end if
else        
	session(FRHRCMS&"Page")=1        
end if
html=ReplaceLableFlag(ReplaceAllLabel(html))
html=Replace(html,"{$FR_频道地址}",FormatLink(0,ChannelId,0,0,0))
html=Replace(html,"{$FR_频道名称}",ChannelName)
html=Replace(html,"{$FR_频道关键词}",""&ChannelKeywords&"")
html=Replace(html,"{$FR_频道描述}",""&ChannelDescription&"")
html=Replace(html,"{$FR_频道栏目}",GetArticletype(Cid,0))
html=Replace(html,"{$FR_栏目地址}",FormatLink(0,ChannelId,typeid,0,0))
html=Replace(html,"{$FR_栏目名称}",news_typename)
html=Replace(html,"{$FR_频道编号}",Cid)
Response.Write(CreateHTMLReplace(html))
Call CloseConn()
%>