<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.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
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>招聘信息 - <% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
</head>
<!--#include file="job_head.Asp" --> 
<%
Dim MesName, Content, SecretFlag, mMemID, mLinkman, mSex, mCompany, mAddress, mZipCode, mTelephone, mFax, mMobile, mEmail
If session("MemName")<>"" And session("MemLogin") = "Succeed" Then
    Call MemInfo()
Else
    mSex = "先生"
    mMemID = 0
    SecretFlag = "<font color=""red"">会员功能，请先注册会员。</font>"
End If
%>
<div class="intropg_banner_bg_5">
    <div class="intropg_banner"> <img src="/template/shenbi2012_mrs/images/job_ad.jpg" alt="人才招聘" /> </div>
</div>
<div class="news_bg">
  <div class="news">
    <div class="new_roll" id="roll"> <%=News("0,")%></div>
    <script type="text/javascript" src="script/news.js"></script>
    <div class="location" ><%=WebLocation()%></div>
  </div>
</div>
<div class="main" id="wrap">
     <div class="main_bg_top"></div>
	 <div class="main_bg_zh">
	   <div class="about_us"><img src="/images/job_01.jpg" /></div>
	   <div class="about_us_lei">
	     <ul>
<%=WebMenu()%> 
		   <li><a href="/Contact.html"  title="联系我们">联系我们</a></li>
		 </ul>
	   </div>
	 <div class="about_us_tt"></div>
	 <div class="about_top" style="padding-left:20px">
     <div style="padding-left:20px"><img src="/images/job_ad2.png" /></div>
<%=WebContent()%>
	 </div>
     </div>
	 <div class="main_bg_bottom"></div>
   </div>

<!--#include file="End.Asp"-->
<%
Function WebMenu()
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select ID,AboutName from Shenbi_About where ViewFlag and not ChildFlag order by Sequence asc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "<center>暂无相关信息</center>"
    Else
        Do
            If ISHTML = 1 Then
                AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "About.Asp?ID="&rs("ID")&""
            End If
            response.Write "<li><a href="""&AutoLink&""">"&rs("AboutName")&"</a></li>"&vbCrLf
            response.Write "<li><img src=""/images/about_dian_15.jpg"" /></li>"
            rs.movenext
        Loop Until rs.EOF
    End If
    rs.Close
    Set rs = Nothing
End Function

Function WebLocation()
    WebLocation = "&nbsp;当前位置：<a href=""/index.html"" class=""pink"">首页</a> - <a href=""/JobClass.html"" class=""pink"">招聘信息</a>"&vbCrLf
End Function

Function News(SortPath)
    Dim rs, sql, NewsName, NewFlag
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top 10 * from Shenbi_News where NoticeFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        Response.Write "  <tr>"&vbCrLf
        Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
    Else
        Do While Not rs.EOF
            If Now() - rs("AddTime")<= 2 Then
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = " <img src=""Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = ""
            End If
            If ISHTML = 1 Then
                AutoLink = "News/"&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "NewsView.Asp?ID="&rs("id")&""
            End If
            Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"">"
            Response.Write "<tr>"
            Response.Write "<td class=""news_title""><a href="""&AutoLink&""" title="""&NewsName&""" style = ""color:;"" target=""_blank"">"&NewsName&"</a> ["&FormatDate(rs("Addtime"), 13)&"]</td>"
            Response.Write "<td><div id=""new_icon""></div></td>"
            Response.Write "</tr>"
            Response.Write "</table>"
            rs.movenext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function

Function WebContent()
    Dim rs, sql
    Dim idCount
    Dim pages
    pages = JobInfo
    Dim pagec
    Dim page
    page = CLng(request("Page"))
    Dim pagenc
    pagenc = 5
    Dim pagenmax
    Dim pagenmin
    Dim pageprevious
    Dim pagenext
    Dim datafrom
    datafrom = "Shenbi_Jobs"
    Dim datawhere
    datawhere = "where ViewFlag  "
    Dim sqlid
    Dim Myself, PATH_INFO, QUERY_STRING
    PATH_INFO = request.servervariables("PATH_INFO")
    QUERY_STRING = request.ServerVariables("QUERY_STRING")'
    If QUERY_STRING = "" Then
        Myself = PATH_INFO & "?"
    ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then
        Myself = PATH_INFO & "?" & QUERY_STRING & "&"
    Else
        Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1)
    End If
    Dim taxis
    taxis = "order by id desc "
    Dim i
    sql = "select count(ID) as idCount from ["& datafrom &"]" & datawhere
    Set rs = server.CreateObject("adodb.recordset")
    rs.Open sql, conn, 0, 1
    idCount = rs("idCount")
    If(idcount>0) Then
    If(idcount Mod pages = 0)Then
    pagec = Int(idcount / pages)
Else
    pagec = Int(idcount / pages) + 1
End If
sql = "select id from ["& datafrom &"] " & datawhere & taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
rs.pagesize = pages
If page < 1 Then page = 1
If page > pagec Then page = pagec
If pagec > 0 Then rs.absolutepage = page
For i = 1 To rs.pagesize
    If rs.EOF Then Exit For
    If(i = 1)Then
    sqlid = rs("id")
Else
    sqlid = sqlid &","&rs("id")
End If
rs.movenext
Next
End If
If(idcount>0 And sqlid<>"") Then
sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 0, 1
Response.Write "<table width=""96%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbCrLf
Response.Write "  <tr height=""2"">"&vbCrLf
Response.Write "    <td style=""color:#FFFFFF; font-weight:bold; background-color:#EE7621""></td>"&vbCrLf
Response.Write "  </tr>"&vbCrLf
While Not rs.EOF
    If ISHTML = 1 Then
        AutoLink = ""&JobNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
    Else
        AutoLink = "JobsView.Asp?ID="&rs("ID")&""
    End If
    Response.Write "  <tr><td  style=""padding-top:10px;margin:0px auto;"">"&vbCrLf
	        Response.Write "<table width=""930"" border=""1"" align=""center"" cellpadding=""7"" cellspacing=""0"" bordercolor=""#D5D3D4"" style=""border-collapse:collapse"" class=""jobmain"">"&vbCrLf
        Response.Write "  <tr>"&vbCrLf
        Response.Write "    <td height=""30"" colspan=""4""  style=""color: #FF0000; background-color:#FDF5E6"" align=""center""><span style=""font-weight: bold; font-size: 18px"">"&rs("JobName")&"</span></td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
        Response.Write "  <tr>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>工作地点：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"" align=""left"">&nbsp;&nbsp;"&rs("JobAddress")&"</td>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>招聘人数：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"">&nbsp;&nbsp;"&rs("JobNumber")&"人</td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr bgcolor=""#F7F7F7"">"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>薪酬待遇：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"" align=""left"">&nbsp;&nbsp;"&rs("Emolument")&"</td>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>有效时间：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"">&nbsp;&nbsp;"&FormatDate(rs("StartDate"), 13)&" 至 "&FormatDate(rs("EndDate"), 13)&"</td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>招聘单位：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"" align=""left"" >&nbsp;&nbsp;"&rs("eEmployer")&"</td>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>联 系 人：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"">&nbsp;&nbsp;"&rs("eContact")&"</td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr bgcolor=""#F7F7F7"">"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>联系电话：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"" align=""left"">&nbsp;&nbsp;"&rs("eTel")&"</td>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>详细地址：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"">&nbsp;&nbsp;"&rs("eAddress")&"</td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>邮政编码：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"" align=""left"">&nbsp;&nbsp;"&rs("ePostCode")&"</td>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>电子邮箱：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"">&nbsp;&nbsp;"&rs("eEmail")&"</td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr bgcolor=""#F7F7F7"">"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>更新时间：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"" align=""left"">&nbsp;&nbsp;"&FormatDate(rs("UpdateTime"), 13)&"</td>"&vbCrLf
        Response.Write " <td width=""15%"" align=""center""><strong>浏览次数：</strong></td>"&vbCrLf
        Response.Write " <td width=""35%"">&nbsp;&nbsp;<script language=""javascript"" src=""HitCount.Asp?id="&rs("ID")&"&LX=Shenbi_Jobs""></script><script language=""javascript"" src=""HitCount.Asp?action=count&LX=Shenbi_Jobs&id="&rs("ID")&"""></script></td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr>"&vbCrLf
        Response.Write " <td align=""center""><strong>工作职责：</strong></td>"&vbCrLf
        Response.Write " <td colspan=""3"" align=""left"">&nbsp;&nbsp;"&HtmlStrReplace(rs("Responsibility"))&"</td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr bgcolor=""#F7F7F7"">"&vbCrLf
        Response.Write " <td align=""center"" valign=""top""><strong>职位要求：</strong></td>"&vbCrLf
        Response.Write " <td colspan=""3"" align=""left"">&nbsp;&nbsp;"&HtmlStrReplace(rs("Requirement"))&"</td>"&vbCrLf
        Response.Write " </tr>"&vbCrLf
        Response.Write " <tr>"&vbCrLf
        Response.Write " <td colspan=""4"" align=""center"" height=""50""><a href=""TalentWrite.Asp?JobID="&ID&"&JobName="&server.urlencode(rs("JobName"))&""" title=""提交简历"" ><img src=""/Images/untitled.png"" border=""0"" /></a></td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
        Response.Write "</table>"&vbCrLf
    Response.Write "  </td></tr>"&vbCrLf
    Response.Write "  <tr>"&vbCrLf
    Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;height:15px;""></td>"&vbCrLf
    Response.Write "  </tr>"&vbCrLf
    rs.movenext
Wend
Response.Write "</table>"&vbCrLf
Else
    response.Write "<center>暂无相关信息</center>"
    Exit Function
End If
Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbCrLf
Response.Write "  <tr height=""35"">"&vbCrLf
Response.Write "    <td align=""center"">"&vbCrLf
Response.Write "共<strong style=""color:red"">"&idcount&"</strong>条记录 页次：<strong style=""color:red"">"&page&"</strong>/"&pagec&" 每页：<strong style=""color:red"">"&pages&"</strong>条记录" & vbCrLf
pagenmin = page - pagenc
pagenmax = page+pagenc
If(pagenmin<1) Then pagenmin = 1
If ISHTML = 1 Then
    If ID = "" Then
        If(page>1) Then response.Write ("<a href="""&JobSortName&""&Separated&"1."&HTMLName&""" title=""回到第一页""><font face=""webdings"" color=""#000000"">9</font></a> ")
    Else
        If(page>1) Then response.Write ("<a href="""&JobSortName&""&Separated&""&ID&""&Separated&"1."&HTMLName&""" title=""回到第一页""><font face=""webdings"" color=""#000000"">9</font></a> ")
    End If
Else
    If(page>1) Then response.Write ("<a href="""& myself &"Page=1"" title=""回到第一页""><font face=""webdings"" color=""#000000"">9</font></a> ")
End If
If page - (pagenc * 2 + 1)<= 0 Then
    pageprevious = 1
Else
    pageprevious = page - (pagenc * 2 + 1)
End If
If ISHTML = 1 Then
    If ID = "" Then
        If(pagenmin>1) Then response.Write ("<a href="""&JobSortName&""&Separated&""&pageprevious&"."&HTMLName&""" title=""第"& pageprevious &"页""><font face=""webdings"" color=""#000000"">3</font></a> ")
    Else
        If(pagenmin>1) Then response.Write ("<a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&pageprevious&"."&HTMLName&""" title=""第"& pageprevious &"页""><font face=""webdings"" color=""#000000"">3</font></a> ")
    End If
Else
    If(pagenmin>1) Then response.Write ("<a href="""& myself &"Page="& pageprevious &""" title=""第"& pageprevious &"页""><font face=""webdings"" color=""#000000"">3</font></a> ")
End If
If(pagenmax>pagec) Then pagenmax = pagec
For i = pagenmin To pagenmax
    If(i = page) Then
    response.Write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
Else
    If ISHTML = 1 Then
        If ID = "" Then
            response.Write ("[<a href="""&JobSortName&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
        Else
            response.Write ("[<a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
        End If
    Else
        response.Write ("[<a href="""& myself &"Page="&i&""">"& i &"</a>]")
    End If
End If
Next
If page+(pagenc * 2 + 1)>= pagec Then
    pagenext = pagec
Else
    pagenext = page+(pagenc * 2 + 1)
End If
If ISHTML = 1 Then
    If ID = "" Then
        If(pagenmax<pagec) Then response.Write (" <a href="""&JobSortName&""&Separated&""&pagenext&"."&HTMLName&""" title=""跳转到第"&pagenext&"页""><font face=""webdings"" color=""#999999"">:</font></a> ")
        If(page<pagec) Then response.Write (" <a href="""&JobSortName&""&Separated&""&pagec&"."&HTMLName&""" title=""跳转到第"&pagec&"页""><font face=""webdings"" color=""#000000"">:</font></a>")
    Else
        If(pagenmax<pagec) Then response.Write (" <a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&pagenext&"."&HTMLName&""" title=""跳转到第"&pagenext&"页""><font face=""webdings"" color=""#999999"">:</font></a> ")
        If(page<pagec) Then response.Write (" <a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&pagec&"."&HTMLName&""" title=""跳转到第"&pagec&"页""><font face=""webdings"" color=""#000000"">:</font></a>")
    End If
Else
    If(pagenmax<pagec) Then response.Write (" <a href="""& myself &"Page="& pagenext &""" title=""跳转到第"&pagenext&"页""><font face=""webdings"" color=""#999999"">:</font></a> ")
    If(page<pagec) Then response.Write (" <a href="""& myself &"Page="& pagec &""" title=""跳转到第"&pagec&"页""><font face=""webdings"" color=""#000000"">:</font></a>")
End If
Response.Write "    </td>"&vbCrLf
Response.Write "  </tr>"&vbCrLf
Response.Write "</table>"&vbCrLf
rs.Close
Set rs = Nothing
End Function
%>