index.asp

来自「嘉缘人才6.0精简 ,很好用的人才系统」· ASP 代码 · 共 56 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%
Cid=12
'读取模版内容
set rs=conn.execute("select * from JOB_Template where ChannelID="&Cid&" and IsDefault="&FR_HR_True&" and IsDefaultInProject="&FR_HR_True&" and typeid=1")
if not rs.eof then
TemplateContent=rs("TemplateContent")
else
Response.Write("读取模板出错!")
Response.end()
end if
rs.close
set rs=nothing

html=TemplateContent
'html=LoadFile("index.html")
html=ReplaceLableFlag(ReplaceAllLabel(html))
if Cid<>0 then
	'读取频道名称
	set rs=conn.execute("select * from JOB_Channel where ChannelID="&Cid&"")
	ChannelName=rs("ChannelName")
	ChannelDir=rs("ChannelDir")
	ChannelKeywords=rs("Meta_Keywords")
	ChannelDescription=rs("Meta_Description")
	rs.close
	set rs=nothing
else
ChannelName="首页"
end if
html=Replace(html,"{$FR_频道名称}",ChannelName)
html=Replace(html,"{$FR_频道目录}",ChannelDir)
html=Replace(html,"{$FR_频道关键词}",""&ChannelKeywords&"")
html=Replace(html,"{$FR_频道描述}",""&ChannelDescription&"")
html=Replace(html,"{$FR_频道编号}",Cid)
html=Replace(html,"{$FR_本站公告}",""&Announcehtml(Cid,0)&"")
html=Replace(html,"{$FR_页尾导航}",GetSitebottomnav())
Response.Write(CreateHTMLReplace(html))
conn.close
set conn=nothing
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
%>