powereasy.job.asp

个人网站比较简短

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

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

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

Private Function GetSearchResultFromTemplate(ByVal strValue)
    Dim strSearchResult
    strSearchResult = strValue
    regEx.Pattern = "\{\$GetSearchResult\((.*?)\)\}"
    Set Matches = regEx.Execute(strSearchResult)
    For Each Match In Matches
        strSearchResult = PE_Replace(strSearchResult, Match.value, GetSearchResultFromLabel(Match.SubMatches(0)))
    Next
    GetSearchResultFromTemplate = strSearchResult
End Function

Private Function GetSearchResultFromLabel(ByVal str1)
    Dim strTemp, arrTemp
    Dim tPositionNum, tDateNum, tOrderType, tShowType, tTitleLen, tShowDateType
    If str1 = "" Then
        GetSearchResultFromLabel = ""
        Exit Function
    End If
    
    strTemp = Replace(str1, Chr(34), "")
    arrTemp = Split(strTemp, ",")
    If UBound(arrTemp) <> 17 Then
        GetSearchResultFromLabel = "函数式标签：{$GetSearchResult(参数列表)}的参数个数不对。请检查模板中的此标签。"
        Exit Function
    End If
    GetSearchResultFromLabel = GetSearchResult(PE_CLng(arrTemp(0)), PE_CLng(arrTemp(1)), PE_CLng(arrTemp(2)), PE_CLng(arrTemp(3)), PE_CLng(arrTemp(4)), PE_CBool(arrTemp(5)), PE_CBool(arrTemp(6)), PE_CBool(arrTemp(7)), PE_CLng(arrTemp(8)), PE_CLng(arrTemp(9)), PE_CLng(arrTemp(10)), PE_CLng(arrTemp(11)), PE_CLng(arrTemp(12)), PE_CLng(arrTemp(13)), PE_CLng(arrTemp(14)), PE_CLng(arrTemp(15)), PE_CBool(arrTemp(16)), PE_CLng(arrTemp(17)))
End Function

'=================================================
'函数名：GetSearchResult
'作  用：分页显示搜索结果
'参  数：
'1        ShowNum ----设置显示记录数，0为显示所有符合条件的记录数，大于0显示设置的记录数
'2        OrderType ----排序方式，1----按职位ID降序，2----按职位ID升序，3----按更新时间降序，4----按更新时间升序
'3        TitleLen  ----职位名称最多字符数，一个汉字=两个英文字符，若为0，则显示完整职位名
'4        WorkPlaceNameLen----工作地点名称最多字符数，一个汉字=两个英文字符，若为0，则显示完整名称
'5        SubCompanyNameLen---用人单位名称最多字符数，一个汉字=两个英文字符，若为0，则显示完整名称
'6        PShowPoints-----职位名称设置最多字符数时是否显示省略号，True---显示， False---不显示
'7        WShowPoints-----工作地点名称设置最多字符数时是否显示省略号，True---显示， False---不显示
'8        SShowPoints-----用人单位名称设置最多字符数时是否显示省略号，True---显示， False---不显示
'9        ShowDateType ------显示更新日期的样式，0为不显示，1为显示年月日，2为只显示月日，3为以“月-日”方式显示月日。
'10       ShowPositionID -----------是否显示职位ID，0为不显示， 1为显示
'11       ShowPositionName -----------是否显示职位名称， 0为不显示， 1为显示
'12       ShowWorkPlaceName -----------是否显示工作地点， 0为不显示， 1为显示
'13       ShowSubCompanyName -----------是否显示用人单位， 0为不显示， 1为显示
'14       ShowPositionNum -----------是否显示招聘人数， 0为不显示， 1为显示
'15       ShowPositionStatus -----------是否显示职位状态， 0为不显示， 1为显示
'16       ShowValidDate -----------是否显示有效期， 0为不显示， 1为显示
'17       UsePage -----------是否分页显示，True为分页显示，False为不分页显示，每页显示的软件数量由MaxPerPage指定
'18       OpenType -----申请职位打开方式，0为在原窗口打开，1为在新窗口打开
'=================================================

Private Function GetSearchResult(ShowNum, OrderType, TitleLen, WorkPlaceNameLen, SubCompanyNameLen, PShowPoints, WShowPoints, SShowPoints, ShowDateType, ShowPositionID, ShowPositionName, ShowWorkPlaceName, ShowSubCompanyName, ShowPositionNum, ShowPositionStatus, ShowValidDate, UsePage, OpenType)
    Dim sqlSearch, rsSearch, iCount, arrPositionID, strSearchResult, Content
    Dim SearchJobCategoryID, SearchSubCompanyID, SearchWorkPlaceID, SearchDateNum
    Dim TitleStr, strLink

    SearchJobCategoryID = PE_CLng(Request("SearchJobCategoryID"))
    SearchSubCompanyID = PE_CLng(Request("SearchSubCompanyID"))
    SearchWorkPlaceID = PE_CLng(Request("SearchWorkPlaceID"))
    SearchDateNum = PE_CLng(Request("SearchDateNum"))

    strSearchResult = ""
    If PE_CLng(ShowNum) > 0 Then
        sqlSearch = "select top " & PE_CLng(ShowNum)
    Else
        sqlSearch = "select "
    End If
    sqlSearch = sqlSearch & " P.PositionID,P.ReleaseDate,P.PositionName,P.PositionNum,P.ValidDate,P.PositionStatus,P.SubCompanyName,W.WorkPlaceName from PE_Position P left join PE_WorkPlace W on P.WorkPlaceID=W.WorkPlaceID"
    If Keyword <> "" Then
        sqlSearch = sqlSearch & " where P.PositionName like '%" & Keyword & "%' "
        If SearchJobCategoryID > 0 Then
            sqlSearch = sqlSearch & " and P.JobCategoryID=" & SearchJobCategoryID
        End If
        If SearchSubCompanyID > 0 Then
            sqlSearch = sqlSearch & " and P.SubCompanyID=" & SearchSubCompanyID
        End If
        If SearchWorkPlaceID > 0 Then
            sqlSearch = sqlSearch & " and P.WorkPlaceID=" & SearchWorkPlaceID
        End If
        If SearchDateNum > 0 Then
            sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",P.ReleaseDate," & PE_Now & ")<=" & SearchDateNum
        End If
        sqlSearch = sqlSearch & " and P.PositionStatus=0"
    Else
        If SearchJobCategoryID > 0 Then
            sqlSearch = sqlSearch & " where P.JobCategoryID=" & SearchJobCategoryID
            If SearchSubCompanyID > 0 Then
                sqlSearch = sqlSearch & " and P.SubCompanyID=" & SearchSubCompanyID
            End If
            If SearchWorkPlaceID > 0 Then
                sqlSearch = sqlSearch & " and P.WorkPlaceID=" & SearchWorkPlaceID
            End If
            If SearchDateNum > 0 Then
                sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",P.ReleaseDate," & PE_Now & ")<=" & SearchDateNum
            End If
            sqlSearch = sqlSearch & " and P.PositionStatus=0"
        Else
            If SearchSubCompanyID > 0 Then
                sqlSearch = sqlSearch & " where P.SubCompanyID=" & SearchSubCompanyID
                If SearchWorkPlaceID > 0 Then
                    sqlSearch = sqlSearch & " and P.WorkPlaceID=" & SearchWorkPlaceID
                End If
                If SearchDateNum > 0 Then
                    sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",P.ReleaseDate," & PE_Now & ")<=" & SearchDateNum
                End If
                sqlSearch = sqlSearch & " and P.PositionStatus=0"
            Else
                If SearchWorkPlaceID > 0 Then
                    sqlSearch = sqlSearch & " where P.WorkPlaceID=" & SearchWorkPlaceID
                    If SearchDateNum > 0 Then
                        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",P.ReleaseDate," & PE_Now & ")<=" & SearchDateNum
                    End If
                    sqlSearch = sqlSearch & " and P.PositionStatus=0"
                Else
                    If SearchDateNum > 0 Then
                        sqlSearch = sqlSearch & " where DateDiff(" & PE_DatePart_D & ",P.ReleaseDate," & PE_Now & ")<=" & SearchDateNum
                        sqlSearch = sqlSearch & " and P.PositionStatus=0"
                    Else
                        sqlSearch = sqlSearch & " where P.PositionStatus=0"
                    End If
                End If
            End If
        End If
    End If
    sqlSearch = sqlSearch & " order by "
    Select Case OrderType
    Case 1
        sqlSearch = sqlSearch & "P.PositionID desc"
    Case 2
        sqlSearch = sqlSearch & "P.PositionID asc"
    Case 3
        sqlSearch = sqlSearch & "P.ReleaseDate desc,P.PositionID desc"
    Case 4
        sqlSearch = sqlSearch & "P.ReleaseDate asc,P.PositionID desc"
    Case Else
        sqlSearch = sqlSearch & "P.PositionID desc"
    End Select

    Set rsSearch = Server.CreateObject("ADODB.Recordset")
    rsSearch.Open sqlSearch, Conn, 1, 1
    If rsSearch.BOF And rsSearch.EOF Then
        If UsePage = True Then totalPut = 0
        strSearchResult = "<p align='center'><br><br>" & R_XmlText_Class("ShowSearch/NoFound", "没有或没有找到任何职位信息") & "<br><br></p>"
        rsSearch.Close
        Set rsSearch = Nothing
        GetSearchResult = strSearchResult
        Exit Function
    Else
        If UsePage = True Then
            totalPut = rsSearch.RecordCount
            If CurrentPage < 1 Then
                CurrentPage = 1
            End If
            If (CurrentPage - 1) * MaxPerPage > totalPut Then
                If (totalPut Mod MaxPerPage) = 0 Then
                    CurrentPage = totalPut \ MaxPerPage
                Else
                    CurrentPage = totalPut \ MaxPerPage + 1
                End If
            End If
            If CurrentPage > 1 Then
                If (CurrentPage - 1) * MaxPerPage < totalPut Then
                    rsSearch.Move (CurrentPage - 1) * MaxPerPage
                Else
                    CurrentPage = 1
                End If
            End If
        End If
    End If
    
    Dim iPositionIDLen, iPositionNameLen, iWorkPlaceNameLen, iSubCompanyNameLen, iPositionNumLen, iPositionStatusLen, iValidDateLen, iReleaseDateLen
    iPositionIDLen = R_XmlText_Class("ShowSearch/PositionIDLen", "60")
    iPositionNameLen = R_XmlText_Class("ShowSearch/PositionNameLen", "80")
    iWorkPlaceNameLen = R_XmlText_Class("ShowSearch/WorkPlaceNameLen", "80")
    iSubCompanyNameLen = R_XmlText_Class("ShowSearch/SubCompanyNameLen", "120")
    iPositionNumLen = R_XmlText_Class("ShowSearch/PositionNumLen", "60")
    iPositionStatusLen = R_XmlText_Class("ShowSearch/PositionStatusLen", "60")
    iValidDateLen = R_XmlText_Class("ShowSearch/ValidDateLen", "60")
    iReleaseDateLen = R_XmlText_Class("ShowSearch/ReleaseDateLen", "80")
    
    strSearchResult = strSearchResult & "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
    strSearchResult = strSearchResult & "         <tr height='22'> "
    If ShowPositionID > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iPositionIDLen & "' align='center'>" & R_XmlText_Class("ShowSearch/PositionID", "编号") & "</td>"
    End If
    If ShowPositionName > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iPositionNameLen & "' align='center'>" & R_XmlText_Class("ShowSearch/PositionName", "职位名称") & "</td>"
    End If
    If ShowWorkPlaceName > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iWorkPlaceNameLen & "' align='center'>" & R_XmlText_Class("ShowSearch/WorkPlaceName", "工作地点") & "</td>"
    End If
    If ShowSubCompanyName > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iSubCompanyNameLen & "' align='center'>" & R_XmlText_Class("ShowSearch/SubCompanyName", "用人单位") & "</td>"
    End If
    If ShowPositionStatus > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iPositionStatusLen & "' align='center'>" & R_XmlText_Class("ShowSearch/PositionStatus", "职位状态") & "</td>"
    End If
    If ShowPositionNum > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iPositionNumLen & "' align='center'>" & R_XmlText_Class("ShowSearch/PositionNum", "招聘人数") & "</td>"
    End If
    If ShowDateType > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iReleaseDateLen & "' align='center'>" & R_XmlText_Class("ShowSearch/ReleaseDate", "发布日期") & "</td>"
    End If
    If ShowValidDate > 0 Then
        strSearchResult = strSearchResult & "            <td width='" & iValidDateLen & "' align='center'>" & R_XmlText_Class("ShowSearch/ValidDate", "有效期") & "</td>"
    End If
    strSearchResult = strSearchResult & "          </tr>"
    iCount = 0


    Do While Not rsSearch.EOF
        If TitleLen > 0 Then
            TitleStr = GetSubStr(rsSearch("PositionName"), TitleLen, PShowPoints)
        Else
            TitleStr = rsSearch("PositionName")
        End If
        
        strLink = "<a href='SupplyInfo.asp?PositionID=" & rsSearch("PositionID") & "'"
        If OpenType = 0 Then
            strLink = strLink & " target='_self'>"
        Else
            strLink = strL