article.asp

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

<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%
newsid=request("newsid")
if newsid="" or not IsNumeric(newsid) then
response.Write ("<script language='JavaScript'>alrte('该页面不存在，请访问其他内容');location.href='JavaScript:history.back()';</script>")
Response.end()
end if
'读取文章信息
set rs=conn.execute("select * from JOB_hrnews where newsid="&newsid&"")
if not rs.eof then
newsid=rs("newsid")
typeid=rs("typeid")
ChannelID=rs("type_fid")
news_Title=rs("Title")
news_Content=rs("Content")
dateandtime=rs("Dateandtime")
news_from=rs("Nfrom")
if rs("author")<>"" then
news_author=rs("author")
else
news_author="未知"
end if
if rs("editor")<>"" then
news_editor=rs("editor")
else
news_editor="未知"
end if
news_hits=rs("hits")
'conn.execute("update JOB_hrnews set hits=hits+1 where newsid="&newsid&"")
else
response.Write ("<script language='JavaScript'>alrte('该页面不存在，请访问其他内容');location.href='JavaScript:history.back()';</script>")
Response.end()
end if
rs.close
set rs=nothing
session(FRHRCMS&"ChannelID") = ChannelID
session(FRHRCMS&"TypeID") = typeid
'读取栏目名称
set rs=conn.execute("select * from JOB_hrnewstype where typeid="&typeid&"")
news_typename=rs("type")
rs.close
set rs=nothing
'读取频道名称
set rs=conn.execute("select * from JOB_Channel where ChannelID="&ChannelID&"")
ChannelName=rs("ChannelName")
UseCreateHTML=rs("UseCreateHTML")
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=3")
if not rs.eof then
TemplateContent=rs("TemplateContent")
else
Response.Write("读取模板出错!")
Response.end()
end if
rs.close
set rs=nothing
html=TemplateContent
html=Replace(html,"{$FR_频道地址}",FormatLink(0,ChannelID,0,0,0))
html=Replace(html,"{$FR_频道名称}",ChannelName)
html=Replace(html,"{$FR_频道栏目}",GetArticletype(ChannelID,0))
html=Replace(html,"{$FR_栏目地址}",FormatLink(0,ChannelID,typeid,0,0))
html=Replace(html,"{$FR_栏目名称}",news_typename)
html=Replace(html,"{$FR_文章编号}",newsid)
html=Replace(html,"{$FR_文章关键词}",ClearColor(news_Title))
html=Replace(html,"{$FR_文章描述}",ClearColor(news_Title))
html=Replace(html,"{$FR_文章标题}",ClearColor(news_Title))
html=Replace(html,"{$FR_文章作者}",news_author)
html=Replace(html,"{$FR_更新时间}",dateandtime)
html=Replace(html,"{$FR_文章来源}",news_from)
html=Replace(html,"{$FR_查看次数}","<span id='hits'></span>")
html=Replace(html,"{$FR_文章内容}",news_Content)
html=Replace(html,"{$FR_文章编辑}",news_editor)
html=Replace(html,"{$FR_文章上一篇}",ShowHead(typeid,newsid))
html=Replace(html,"{$FR_文章下一篇}",ShowNext(typeid,newsid))
html=Replace(html,"{$FR_评论文本框}","<textarea name='pj_content' style='width:400px; height:60px; border:1px #CCCCCC solid; '></textarea>")
html=ReplaceLableFlag(ReplaceAllLabel(html))
Response.Write(CreateHTMLReplace(html))
Function LoadFile(m_Root)
 Dim Filename,fso,hndFile
 Filename = m_Root
 If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/"
 Filename = Server.MapPath(Filename & m_FileName)
 Set fso = CreateObject(FR_HR_FSO)
 If Not fso.FileExists(Filename) Then ShowError("模板文件" & m_FileName & "不存在!")
 set hndFile = fso.OpenTextFile(Filename)
 LoadFile = hndFile.ReadAll
 Set hndFile = Nothing
 Set fso = Nothing
 If LoadFile = "" Then ShowError("不能读取模板文件" & m_FileName & "或文件为空!")
End Function
%>