<!--#include file="Inc/Consts.inc" -->
<!--#include file="Inc/NoSQL.Asp" -->
<!--#include file="Inc/common.Asp" -->
<!--#include file="Inc/strfunc.Asp" -->
<!--#include file="Inc/sharefunc.Asp" -->
<!--#include file="Inc/jobfunc.Asp" -->
<!--#include file="Inc/profunc.Asp" -->
<!--#include file="Inc/aboutfunc.Asp" -->
<!--#include file="Inc/newsfunc.Asp" -->
<%
' 文件名称:JobsView.asp 2011-08-12 13:30:06
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Call SiteInfo()
If ISHTML = 1 Then
    Response.expires = 0
    Response.expiresabsolute = Now() - 1
    Response.addHeader "pragma", "no-cache"
    Response.addHeader "cache-control", "private"
    Response.CacheControl = "no-cache"
End If
Dim ID,rs,sql
Dim Seokeywords,SeoDescription,SortID,SortPath
Dim templateurl :templateurl=SysRootDir&templatepath
ID=trim(request.QueryString("ID"))
if ID="" or not isnumeric(ID) then Call Alert("参数错误,ID Error!","b-1"):response.End()
sql="select JobName from ["&Datapre&"_Jobs] Where ViewFlag and  ID="&ID&""
set rs=db(sql,2)
	if rs.eof then Call Alert("参数错误,ID Error!","b-1"):response.End()
	SeoTitle = rs(0)
    rs.Close:Set rs = Nothing
Dim HeaderString,FooterString,LeftString,JobsViewString
HeaderString=FileSetTemplate("Head.html")
HeaderString=Replace(HeaderString,"$SiteLogo$",SiteLogo,1,1)
HeaderString=Replace(HeaderString,"$bannerpic$",bannerpic(3),1,1)
HeaderString=Replace(HeaderString,"$MainMenu$",MainMenu(4),1,1)
HeaderString=Replace(HeaderString,"$ProMenu$",ProMenu(0),1,1)
HeaderString=Replace(HeaderString,"$aboutlist$",aboutlist(),1,1)
HeaderString=Replace(HeaderString,"$NewsMenu$",NewsMenu(0),1,1)
LeftString=FileSetTemplate("Left.html")
LeftString=Replace(LeftString,"$searcher$",searcher,1,1)
LeftString=Replace(LeftString,"$leftcontact$",replace(replace(leftcontact,"$Address$",Address),"$Email$",Email))
JobsViewString=FileSetTemplate("JobsView.html")
JobsViewString=Replace(JobsViewString,"$SeoTitle$",SeoTitle)
JobsViewString=Replace(JobsViewString,"$SiteTitle$",SiteTitle)
JobsViewString=Replace(JobsViewString,"$Keywords$",Keywords)
JobsViewString=Replace(JobsViewString,"$Descriptions$",Descriptions)
JobsViewString=Replace(JobsViewString,"$copyright$",copyright)
JobsViewString=Replace(JobsViewString,"$Header$",HeaderString)
JobsViewString=Replace(JobsViewString,"$Left$",LeftString)
JobsViewString=Replace(JobsViewString,"$jobcontent$",WebContentJobView("Jobs",ID))
JobsViewString=Replace(JobsViewString,"$HTMLName$",HTMLName)
JobsViewString=Replace(JobsViewString,"$templateurl$",templateurl)
JobsViewString=Replace(JobsViewString,"$aboutlist$",aboutlist())
Call PrintText(JobsViewString)

' 文件名称:JobsView.asp 2011-08-12 13:30:06
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
%>