jobsview.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 124 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
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
if request.QueryString("ID")="" then
SeoTitle="Recruitment Details"
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle="Parameter error"
elseif conn.execute("select * from LiangJingCMS_Jobs Where ViewFlag"&Language&" and  ID="&request.QueryString("ID")).eof then
SeoTitle="Parameter error"
else
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_Jobs where ViewFlag"&Language&" and ID="&request.QueryString("ID")
rs.open sql,conn,1,1
SeoTitle=rs("JobName"&Language)
rs.close
set rs=nothing
end if
headid=4
%>
<!--#include file="Head.Asp" -->
<div class="clear"></div>
<div id="contant">
  <div class="cleft">
    
	<div class="news">
      <div class="title">
	  &nbsp;<b>Recruitment List</b>
	  </div>
	  <div>
	  <ul>
	  <%=WebMenu()%>
	  </ul>
	  </div>
    </div>
	<div class="news">
      <div class="title">
	  &nbsp;<b>Hot Product</b>
	  </div>
	  <div>
	  <ul>
	  <%=Producthot(10)%>
	  </ul>
	  </div>
    </div>
  </div>
<div class="cright">
	<div class="crightb">
	  <div class="crightbtitle">
	    <div class="crightbtitlel">
		Location：
		</div>
		<div class="crightbtitler">
		<%=WebLocation()%>
		</div>
	  </div>
	  <div class="crightbcontent">

<%=WebContent("LiangJingCMS_Jobs",request.QueryString("ID"))%>
           </div>
	</div>
  </div>
</div>
<!--#include file="Foot.Asp"-->
<%
function WebMenu()
  response.write "<li><img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""JobsList.asp"" style=""margin-left:5px;"">Recruitment Information</a></li>"
  response.write "<li><img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MemberTalent.asp"" style=""margin-left:5px;"">My Candidates</a></li>"
end function

function WebLocation()
  WebLocation="&nbsp;Location：<a href=""index.asp"" class=""agray"">Home</a> - <a href=""JobsList.asp"" class=""agray"">Recruitment Information</a>"&VbCrLf
end Function

function WebContent(DataFrom,ID)
  if ID="" or not IsNumeric(ID) then
    response.write "<div class=""Bodyer_right_page_content"">No Information</div>"
  elseif conn.execute("select * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID).eof then
    response.write "<div class=""Bodyer_right_page_content"">No Information</div>"
  else
	dim rs,sql
    set rs = server.createobject("adodb.recordset")
	sql="select * from "&DataFrom&" where ViewFlag"&Language&" and ID="&ID
    rs.open sql,conn,1,3
	Response.Write "<table width=""95%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""5"">"&VbCrLf
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td style=""background:url(images/bg1.gif) repeat-x left bottom""><strong style=""color:red"">"&rs("JobName"&Language)&"</strong>(Last update："&FormatDate(rs("UpdateTime"),13)&" Clicks：<script language=""javascript"" src=""HitCount.asp?id="&rs("ID")&"&LX=LiangJingCMS_Jobs""></script><script language=""javascript"" src=""HitCount.asp?action=count&LX=LiangJingCMS_Jobs&id="&rs("ID")&"""></script>)</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td style=""line-height:200%"">Location："&rs("JobAddress"&Language)&"<br />"&VbCrLf
	Response.Write "      Jobs："&rs("JobNumber")&"人<br />"&VbCrLf
	Response.Write "      Emolument："&rs("Emolument"&Language)&"<br />"&VbCrLf
	Response.Write "      Expiration："&FormatDate(rs("StartDate"),13)&" - "&FormatDate(rs("EndDate"),13)&"<br />"&VbCrLf
	Response.Write "      Employer："&rs("eEmployer"&Language)&"<br />"&VbCrLf
	Response.Write "      Contact Person："&rs("eContact"&Language)&"<br />"&VbCrLf
	Response.Write "      Tel："&rs("eTel")&"<br />"&VbCrLf
	Response.Write "      Address："&rs("eAddress"&Language)&"<br />"&VbCrLf
	Response.Write "	  Post Code："&rs("ePostCode")&"<br />"&VbCrLf
	Response.Write "      Email："&rs("eEmail")&"<br />"&VbCrLf
	Response.Write "      <br />"&VbCrLf
	Response.Write "      <font color=""#ff3300"">Responsibility：</font><br />"&VbCrLf
	Response.Write "      "&HtmlStrReplace(rs("Responsibility"&Language))&"<br />"&VbCrLf
	Response.Write "      <br />"&VbCrLf
	Response.Write "      <font color=""#ff3300"">Requirement：</font><br />"&VbCrLf
	Response.Write "      "&HtmlStrReplace(rs("Requirement"&Language))&"<br />"&VbCrLf
	Response.Write "      <br />"&VbCrLf
	Response.Write "      <a href=""TalentWrite.asp?JobID="&ID&"&JobName="&server.urlencode(rs("JobName"&Language))&""" title=""apply"" ><img src=""Images/Page_resume.gif"" border=""0"" /></a></td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	Response.Write "</table><br />"&VbCrLf
	rs.update
    rs.close
    set rs=nothing
  end if
end function
%>