job.asp

整站源码jsp 有兴趣的可以看看

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************
    Set Rs_Manage=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Job where Job_Flag=1 order by Job_Date desc"
    Rs_Manage.open Sql,Conn,1,1
    Class_Name="招聘信息"
	Page_Name=Class_Name & " -- " & Web_Const(0)
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
    %>
    <table width="990" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="321" valign="bottom" bgcolor="#082421"><span>
          <%Call Page_Login()%>
        </span><img src="Skins/blak/leftad.jpg" width="321" /></td>
        <td valign="top"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td valign="top" class="TABLE-Main"><div class="page-head">招聘信息列表</div>
                <div class="TABLE-Mainall">
                  <%
            Page_Nexterror=4
            Rs_Manage.PageSize = JobMax_Class
            totalrec=Rs_Manage.RecordCount 
            iPageSize=Rs_Manage.PageSize
            currentPage=request("page")
            IF currentpage="" THEN
                currentpage=1
            Else
                IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
                    currentpage=clng(currentpage)
                End IF
                IF totalrec mod Cint(iPageSize)=0 THEN
                    n= totalrec \ Cint(iPageSize)
                Else
                    n= totalrec \ Cint(iPageSize)+1
                End IF
                IF Not (Rs_Manage.bof and Rs_Manage.eof) THEN
                    Rs_Manage.MoveFirst
                    IF currentpage > n THEN currentpage = n
                    IF currentpage<1 THEN currentpage=1
                    Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
                    While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
                        page_count=page_count+1
                        %>
                  <div class="job-name"><span style="WIDTH: 72%;"><img src="Skins/Blue/Tx_Ar4.gif" /> <a href="Jobi.asp?Id=<%=Rs_Manage("Job_Id")%>"><b><%=Rs_Manage("Job_Name")%></b></a></span><span style="WIDTH: 28%;text-align:right;"><%=YearDa(Rs_Manage("Job_Date"))%></span></div>
                  <div class="job-content"><span style="WIDTH: 72%;">工作地点：<%=Rs_Manage("Job_Ress")%><br />
                    招聘人数：<%=Rs_Manage("Job_People")%>人<br />
                    薪资待遇：<%=Rs_Manage("Job_Money")%><br />
                    有效期限：<%=Rs_Manage("Job_ToDate")%></span><span style="WIDTH: 28%;"><a href="Joby.asp?Id=<%=Rs_Manage("Job_Id")%>"><span class="type-color2">我要应聘 &gt; </span></a></span></div>
                  <div class="type-height2"></div>
                  <%
                    Rs_Manage.MoveNext
                    Wend 
                End IF
            Rs_Manage.Close
            Set Rs_Manage=Nothing
            Call Page_Next()%>
              </div></td>
            <td width="5"></td>
            <td width="195" align="center" valign="top" class="TABLE-Side"><div class='TABLE-side1'><span class="type-color1">产品搜索</span></div>
                <div class='TABLE-side3'>
                  <%Call page_Search("Products")%>
                </div>
              <div class='TABLE-side1'><span class="type-color1">订单搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("ShopCode")%>
              </div></td>
          </tr>
        </table></td>
      </tr>
    </table>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>