powereasy.job.asp

个人网站比较简短

        Exit Function
    End If
    Select Case Trim(arrTemp(0))
    Case "PositionNum"
        tPositionNum = 8
    Case Else
        tPositionNum = PE_CLng(arrTemp(0))
    End Select

    GetListFromLabel = GetPositionList(PE_CLng(arrTemp(0)), PE_CBool(arrTemp(1)), PE_CLng(arrTemp(2)), PE_CLng(arrTemp(3)), PE_CLng(arrTemp(4)), PE_CLng(arrTemp(5)), PE_CLng(arrTemp(6)), PE_CLng(arrTemp(7)), PE_CBool(arrTemp(8)), PE_CBool(arrTemp(9)), PE_CBool(arrTemp(10)), PE_CLng(arrTemp(11)), PE_CLng(arrTemp(12)), PE_CLng(arrTemp(13)), PE_CLng(arrTemp(14)), PE_CLng(arrTemp(15)), PE_CLng(arrTemp(16)), PE_CLng(arrTemp(17)), PE_CLng(arrTemp(18)), PE_CBool(arrTemp(19)), PE_CBool(arrTemp(20)), PE_CBool(arrTemp(21)), PE_CLng(arrTemp(22)))
End Function



Private Sub ReplaceCommon()
    Call ReplaceCommonLabel
    
    strHtml = PE_Replace(strHtml, "{$MenuJS}", GetMenuJS(ChannelDir, ShowClassTreeGuide))
    strHtml = PE_Replace(strHtml, "{$Skin_CSS}", GetSkin_CSS(SkinID))
    
End Sub

Public Sub GetHtml_index()
    Dim GetPositionName, GetWorkPlaceName, GetPositionNum, GetReleaseDate, GetValidDate, GetSubCompanyName, GetContacter, GetTelephone, GetAddress, GetE_mail, GetPositionDescription, GetDutyRequest, GetStatus, GetSaveSupply
    Dim PositionList_Content, PositionList_Content2, iPositionID, iMaxPerPageNum, iMaxPerPage
    Dim rsPosition, sqlPosition, strTemp
    Dim strPositionKeyword, iCount
    Dim strCorrelativePosition, arrTemp
    Dim PositionListShowPage, iPerPageNum

    iCount = 0
    strPageTitle = ""
    PageTitle = "首页"

    strFileName = ChannelUrl & "/Index.asp"
    strPageTitle = SiteTitle
    strPageTitle = strPageTitle & " >> " & ChannelName & " >> " & PageTitle
    strNavPath = strNavPath & "&nbsp;" & strNavLink & "&nbsp;<a href='" & strInstallDir & "Job/Index.asp'>" & ChannelName & "</a>&nbsp;" & strNavLink & "&nbsp;" & PageTitle

    Call ReplaceCommonLabel
    strHtml = Replace(strHtml, "{$PageTitle}", strPageTitle)
    strHtml = Replace(strHtml, "{$ShowPath}", strNavPath)

    '得到职位信息列表的版面设计的HTML代码
    regEx.Pattern = "【PositionList_Content】([\s\S]*?)【\/PositionList_Content】"
    Set Matches = regEx.Execute(strHtml)
    For Each Match In Matches
        PositionList_Content = Match.value
    Next
    strHtml = regEx.Replace(strHtml, "{$PositionList_Content}")
    
    PositionList_Content = Replace(PositionList_Content, "【PositionList_Content】", "")
    PositionList_Content = Replace(PositionList_Content, "【/PositionList_Content】", "")
    PositionList_Content2 = ""
    
    '得到每行显示的列数
    regEx.Pattern = "【PerPageNum=[1-9]】"
    Set Matches = regEx.Execute(PositionList_Content)
    PositionList_Content = regEx.Replace(PositionList_Content, "")
    For Each Match In Matches
        iPerPageNum = Match.value
    Next
    If iPerPageNum = "" Then
        iPerPageNum = 1
    Else
        iPerPageNum = Replace(Replace(iPerPageNum, "【PerPageNum=", ""), "】", "")

        If iPerPageNum = "" Then
            iPerPageNum = 1
        Else
            iPerPageNum = PE_CLng(iPerPageNum)
        End If
        If iPerPageNum = 0 Then iPerPageNum = 1
    End If
    MaxPerPage = iPerPageNum '每页显示的记录数

    '开始循环，得到职位信息的HTML代码
    sqlPosition = "select P.PositionID,P.PositionName,P.PositionKeyword,W.WorkPlaceID,W.WorkPlaceName,P.PositionNum,P.ReleaseDate,P.PositionStatus,P.ValidDate,S.SubCompanyID,S.SubCompanyName,S.Contacter,S.Telephone,S.Address,S.E_mail,P.PositionDescription,P.DutyRequest from (PE_Position P left join PE_WorkPlace W on P.WorkPlaceID=W.WorkPlaceID) left join PE_SubCompany S on P.SubCompanyID=S.SubCompanyID order by P.PositionID desc"
    Set rsPosition = Server.CreateObject("ADODB.Recordset")
    rsPosition.Open sqlPosition, Conn, 1, 1
    totalPut = rsPosition.RecordCount
    iPositionID = totalPut
    If CurrentPage < 1 Then
        CurrentPage = 1
    End If
    If (CurrentPage - 1) * MaxPerPage > totalPut Then
        If (totalPut Mod iMaxPerPage) = 0 Then
            CurrentPage = totalPut \ MaxPerPage
        Else
            CurrentPage = totalPut \ MaxPerPage + 1
        End If
    End If
    If CurrentPage > 1 Then
        If (CurrentPage - 1) * MaxPerPage < totalPut Then
            rsPosition.Move (CurrentPage - 1) * MaxPerPage
        Else
            CurrentPage = 1
        End If
    End If

    Do While Not rsPosition.EOF
        strPositionKeyword = rsPosition("PositionKeyword")
        strTemp = PositionList_Content
        GetPositionName = "<a href='SupplyInfo.asp?PositionID=" & rsPosition("PositionID") & "'target='_blank'>"
        GetPositionName = GetPositionName & rsPosition("PositionName")
        GetPositionName = GetPositionName & "</a>"
        GetWorkPlaceName = rsPosition("WorkPlaceName")
        GetPositionNum = rsPosition("PositionNum")
        GetReleaseDate = rsPosition("ReleaseDate")
        GetValidDate = rsPosition("ValidDate")
        GetSubCompanyName = rsPosition("SubCompanyName")
        GetContacter = rsPosition("Contacter")
        GetTelephone = rsPosition("Telephone")
        GetAddress = rsPosition("Address")
        GetE_mail = rsPosition("E_mail")
        GetPositionDescription = rsPosition("PositionDescription")
        GetDutyRequest = rsPosition("DutyRequest")
        GetStatus = GetPositionStatus(rsPosition("PositionStatus"), rsPosition("ReleaseDate"), rsPosition("ValidDate"))
        GetSaveSupply = GetSaveSupply & "  <p align='center'>"
        GetSaveSupply = GetSaveSupply & "   <input name='Supply' type='button'  id='Supply' value=' 申请该职位 ' onClick=""window.location.href='SupplyInfo.asp?Action=SaveSupplyInfo&PositionID=" & rsPosition("PositionID") & "&SubCompanyID=" & rsPosition("SubCompanyID") & "&WorkPlaceID=" & rsPosition("WorkPlaceID") & "&PositionName=" & rsPosition("PositionName") & "&SubCompanyName=" & rsPosition("SubCompanyName") & "&WorkPlaceName=" & rsPosition("WorkPlaceName") & "&PositionNum=" & rsPosition("PositionNum") & "&ReleaseDate=" & rsPosition("ReleaseDate") & "&ValidDate=" & rsPosition("ValidDate") & "';"" style='cursor:hand;'>&nbsp;&nbsp"
        GetSaveSupply = GetSaveSupply & " </p>"

        strTemp = PE_Replace(strTemp, "{$PositionName}", GetPositionName)
        strTemp = PE_Replace(strTemp, "{$WorkPlaceName}", GetWorkPlaceName)
        strTemp = PE_Replace(strTemp, "{$PositionNum}", GetPositionNum)
        strTemp = PE_Replace(strTemp, "{$ReleaseDate}", GetReleaseDate)
        strTemp = PE_Replace(strTemp, "{$ValidDate}", GetValidDate)
        strTemp = PE_Replace(strTemp, "{$SubCompanyName}", GetSubCompanyName)
        strTemp = PE_Replace(strTemp, "{$Contacter}", GetContacter)
        strTemp = PE_Replace(strTemp, "{$Telephone}", GetTelephone)
        strTemp = PE_Replace(strTemp, "{$Address}", GetAddress)
        strTemp = PE_Replace(strTemp, "{$E_mail}", GetE_mail)
        strTemp = PE_Replace(strTemp, "{$PositionDescription}", GetPositionDescription)
        strTemp = PE_Replace(strTemp, "{$DutyRequest}", GetDutyRequest)
        strTemp = PE_Replace(strTemp, "{$PositionStatus}", GetStatus)
        strTemp = PE_Replace(strTemp, "{$SaveSupply}", GetSaveSupply)


        regEx.Pattern = "\{\$CorrelativePosition\((.*?)\)\}"
        Set Matches = regEx.Execute(strTemp)
        For Each Match In Matches
            arrTemp = Split(Match.SubMatches(0), ",")
            strCorrelativePosition = GetCorrelativePosition(arrTemp(0), arrTemp(1), arrTemp(2), arrTemp(3), arrTemp(4), arrTemp(5), rsPosition("PositionID"), strPositionKeyword)
            strTemp = Replace(strTemp, Match.value, strCorrelativePosition)
        Next

        PositionListShowPage = "<tr><td>"
        If totalPut < MaxPerPage Then
            If iPositionID = 1 Then
                PositionListShowPage = PositionListShowPage & ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False)
            End If
        Else
            If (iCount + 1) Mod MaxPerPage = 0 Then
                PositionListShowPage = PositionListShowPage & ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False)
            Else
                If CurrentPage * MaxPerPage >= totalPut And ((MaxPerPage - 1) - (CurrentPage * MaxPerPage - totalPut)) = iCount Then
                    PositionListShowPage = PositionListShowPage & ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False)
                End If
            End If
        End If
        PositionListShowPage = PositionListShowPage & "</td></tr>"
        strTemp = Replace(strTemp, "{$ShowPage}", PositionListShowPage)
        rsPosition.MoveNext
        iPositionID = iPositionID - 1
        iCount = iCount + 1
        If CurrentPage * MaxPerPage < totalPut And iCount > MaxPerPage Then Exit Do
        PositionList_Content2 = PositionList_Content2 & strTemp
        PositionList_Content2 = PositionList_Content2
    Loop
    rsPosition.Close
    Set rsPosition = Nothing
    strHtml = Replace(strHtml, "{$PositionList_Content}", PositionList_Content2)
End Sub


Public Sub GetHtml_Job()
    strPageTitle = ""
    PageTitle = "首页"
    strFileName = "Index.asp"
    strPageTitle = SiteTitle & " >> " & ChannelName & " >> " & PageTitle
    strNavPath = strNavPath & "&nbsp;" & strNavLink & "&nbsp;<a href='" & strInstallDir & "Job/Index.asp'>" & ChannelName & "</a>&nbsp;" & strNavLink & "&nbsp;" & PageTitle

    Call ReplaceCommonLabel
    strHtml = Replace(strHtml, "{$PageTitle}", strPageTitle)
    strHtml = Replace(strHtml, "{$ShowPath}", strNavPath)
    strHtml = GetListFromTemplate(strHtml)
    If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit, False))
End Sub

Public Sub GetHtml_List()
    Call ReplaceCommonLabel
    strHtml = Replace(strHtml, "{$PageTitle}", strPageTitle)
    strHtml = Replace(strHtml, "{$ShowPath}", strNavPath)
    strHtml = GetSearchResultFromTemplate(strHtml)


    If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit, False))
End Sub

Public Sub SupplyInfo()
    Dim GetPositionName, GetWorkPlaceName, GetPositionNum, GetReleaseDate, GetValidDate, GetSubCompanyName, GetContacter, GetTelephone, GetAddress, GetE_mail, GetPositionDescription, GetDutyRequest, GetStatus, GetSaveSupply, GetWinColse
    Dim rs, sql, strPositionSupplyInfo
    Dim iPositionID, strPositionKeyword
    Dim rsCorrelative, sqlCorrelative
    Dim strKey, arrKey, i, arrTemp
    Dim PositionID, WorkPlaceID, SubCompanyID
    If Action = "SaveSupplyInfo" Then
        Call SaveSupplyInfo
        Exit Sub
    End If
    PositionID = Request("PositionID")
    If PositionID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要所需的职位ID!</li>"
    Else
        PositionID = PE_CLng(PositionID)
    End If
    If FoundErr = True Then
        Response.Write ErrMsg
        Exit Sub
    End If

    sql = "select P.PositionID,P.PositionName,P.PositionKeyword,W.WorkPlaceID,W.WorkPlaceName,P.PositionNum,P.ReleaseDate,P.PositionStatus,P.ValidDate,S.SubCompanyID,S.SubCompanyName,S.Contacter,S.Telephone,S.Address,S.E_mail,P.PositionDescription,P.DutyRequest from (PE_Position P left join PE_WorkPlace W on P.WorkPlaceID=W.WorkPlaceID) left join PE_SubCompany S on P.SubCompanyID=S.SubCompanyID where P.PositionID=" & PositionID & ""
    Set rs = Conn.Execute(sql)
    If rs.BOF And rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到职位或已经被删除！</li>"
    End If
    If FoundErr = True Then
        rs.Close
        Set rs = Nothing
        Response.Write ErrMsg
        Exit Sub
    End If
    iPositionID = rs("PositionID")
    strPositionKeyword = rs("PositionKeyword")
    GetPositionName = rs("PositionName")
    GetWorkPlaceName = rs("WorkPlaceName")
    GetPositionNum = rs("PositionNum")
    GetReleaseDate = rs("ReleaseDate")
    GetValidDate = rs("ValidDate")
    GetSubCompanyName = rs("SubCompanyName")
    GetContacter = rs("Contacter")
    GetTelephone = rs("Telephone")
    GetAddress = rs("Address")
    GetE_mail = rs("E_mail")
    GetPositionDescription = rs("PositionDescription")
    GetDutyRequest = rs("DutyRequest")
    GetStatus = GetPositionStatus(rs("PositionStatus"), rs("ReleaseDate"), rs("ValidDate"))
    GetSaveSupply = GetSaveSupply & "   <input name='Supply' type='button'  id='Supply' value=' 申请该职位 ' onClick=""window.location.href='SupplyInfo.asp?Action=SaveSupplyInfo&PositionID=" & rs("PositionID") & "&SubCompanyID=" & rs("SubCompanyID") & "&WorkPlaceID=" & rs("WorkPlaceID") & "&PositionName=" & rs("PositionName") & "&SubCompanyName=" & rs("SubCompanyName") & "&WorkPlaceName=" & rs("WorkPlaceName") & "&PositionNum=" & rs("PositionNum") & "&ReleaseDate=" & rs("ReleaseDate") & "&ValidDate=" & rs("ValidDate") & "';"" style='cursor:hand;color:#000000;'>&nbsp;&nbsp"

    strPageTitle = ""
    PageTitle = "职位信息"
    strFileName = ChannelUrl & "/Index.asp"
    strPageTitle = SiteTitle & " >> " & ChannelName & " >> " & PageTitle
    strNavPath = strNavPath & "&nbsp;" & strNavLink & "&nbsp;<a href='" & strInstallDir & "Job/Index.asp'>" & ChannelName & "</a>&nbsp;" & strNavLink & "&nbsp;" & PageTitle