list.asp

嘉缘人才6.0精简 ,很好用的人才系统

<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%
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=13
session(FRHRCMS&"ChannelID") = Cid
'读取栏目名称
set rs=conn.execute("select * from JOB_hrnewstype where typeid="&Tid&"")
if not rs.eof then
news_typename=rs("type")
typeid=rs("typeid")
session(FRHRCMS&"TypeID") = Tid
else
response.Write ("<script language='JavaScript'>alrte('栏目不从在，请访问其他内容');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")
set rs=nothing
'读取模版内容
set rs=conn.execute("select * from JOB_Template where ChannelID="&ChannelID&" and IsDefault="&FR_HR_True&" and IsDefaultInProject="&FR_HR_True&" and typeid=2")
if not rs.eof then
TemplateContent=rs("TemplateContent")
else
Response.Write("读取模板出错!")
Response.end()
end if
rs.close
set rs=nothing
html=TemplateContent
'读取分页
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_频道栏目}",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))
%>