📄 powereasy.job.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
                strPositionList = strPositionList & GetUpdateTimeStr(rsPositionList("ReleaseDate"), ShowDateType)
                strPositionList = strPositionList & ")"
            End If
            strPositionList = strPositionList & "<br>"
        ElseIf ShowType = 2 Then
            strPositionList = strPositionList & "&nbsp;" & strLink
            If ShowWorkPlaceName > 0 Then
                If WorkPlaceNameLen > 0 Then
                    strPositionList = strPositionList & "&nbsp;" & GetSubStr(rsPositionList("WorkPlaceName"), WorkPlaceNameLen, WShowPoints)
                Else
                    strPositionList = strPositionList & "&nbsp;" & rsPositionList("WorkPlaceName")
                End If
            End If
            If ShowSubCompanyName > 0 Then
                If SubCompanyNameLen > 0 Then
                    strPositionList = strPositionList & "&nbsp;" & GetSubStr(rsPositionList("SubCompanyName"), SubCompanyNameLen, SShowPoints)
                Else
                    strPositionList = strPositionList & "&nbsp;" & rsPositionList("SubCompanyName")
                End If
            End If
            If ShowPositionNum > 0 Then
                strPositionList = strPositionList & "&nbsp;" & rsPositionList("PositionNum")
            End If
            If ShowPositionStatus > 0 Then
                strPositionList = strPositionList & "&nbsp;" & GetPositionStatus(rsPositionList("PositionStatus"), rsPositionList("ReleaseDate"), rsPositionList("ValidDate"))
            End If
            If ShowValidDate > 0 Then
                strPositionList = strPositionList & "&nbsp;" & rsPositionList("ValidDate")
            End If
            If ShowNewSign = True Then
                strPositionList = strPositionList & "<img src='" & strInstallDir & "images/j_New.gif' >"
            End If
            If ShowDateType > 0 Then
                strPositionList = strPositionList & "&nbsp;("
                strPositionList = strPositionList & GetUpdateTimeStr(rsPositionList("ReleaseDate"), ShowDateType)
                strPositionList = strPositionList & ")"
            End If
            strPositionList = strPositionList & "<br>"
         ElseIf ShowType = 3 Then
            strPositionList = strPositionList & "<tr class='listbg'>"
            If ShowPositionID > 0 Then
                strPositionList = strPositionList & "<td width='" & iPositionIDLen & "' align='center'>" & rsPositionList("PositionID") & "</td>"
            End If
            If ShowPositionName > 0 Then
                strPositionList = strPositionList & "<td width='" & iPositionNameLen & "' align='center'>" & strLink & "</td>"
            End If
            If ShowWorkPlaceName > 0 Then
                If WorkPlaceNameLen > 0 Then
                    strPositionList = strPositionList & "<td width='" & iWorkPlaceNameLen & "' align='center'>" & GetSubStr(rsPositionList("WorkPlaceName"), WorkPlaceNameLen, WShowPoints) & "</td>"
                Else
                    strPositionList = strPositionList & "<td width='" & iWorkPlaceNameLen & "' align='center'>" & rsPositionList("WorkPlaceName") & "</td>"
                End If
            End If
            If ShowSubCompanyName > 0 Then
                If SubCompanyNameLen > 0 Then
                    strPositionList = strPositionList & "<td width='" & iSubCompanyNameLen & "' align='center'>" & GetSubStr(rsPositionList("SubCompanyName"), SubCompanyNameLen, SShowPoints) & "</td>"
                Else
                    strPositionList = strPositionList & "<td width='" & iSubCompanyNameLen & "' align='center'>" & rsPositionList("SubCompanyName") & "</td>"
                End If
            End If
            If ShowPositionNum > 0 Then
                strPositionList = strPositionList & "<td width='" & iPositionNumLen & "' align='center'>" & rsPositionList("PositionNum") & "</td>"
            End If
            If ShowPositionStatus > 0 Then
                strPositionList = strPositionList & "<td width='" & iPositionStatusLen & "' align='center'>" & GetPositionStatus(rsPositionList("PositionStatus"), rsPositionList("ReleaseDate"), rsPositionList("ValidDate")) & "</td>"
            End If
            If ShowValidDate > 0 Then
                strPositionList = strPositionList & "<td width='" & iValidDateLen & "' align='center'>" & rsPositionList("ValidDate") & "</td>"
            End If
            If ShowDateType > 0 Then
                strPositionList = strPositionList & "<td width='" & iReleaseDateLen & "' align='center'>" & GetUpdateTimeStr(rsPositionList("ReleaseDate"), ShowDateType) & "</td>"
            End If
            strPositionList = strPositionList & "</tr>"
        End If
        rsPositionList.MoveNext
        iCount = iCount + 1
        If UsePage = True And iCount >= MaxPerPage Then Exit Do
    Loop
    If ShowType = 3 Then
        strPositionList = strPositionList & "</table>"
    End If
    rsPositionList.Close
    Set rsPositionList = Nothing
    GetPositionList = strPositionList
End Function


Private Function GetUpdateTimeStr(UpdateTime, ShowDateType)
    Dim strUpdateTime
    If Not IsDate(UpdateTime) Then
        GetUpdateTimeStr = ""
        Exit Function
    End If
    Select Case ShowDateType
    Case 1
        strUpdateTime = Year(UpdateTime) & "-" & Right("0" & Month(UpdateTime), 2) & "-" & Right("0" & Day(UpdateTime), 2)
    Case 2
        strUpdateTime = Month(UpdateTime) & strMonth & Day(UpdateTime) & strDay
    Case 3
        strUpdateTime = Right("0" & Month(UpdateTime), 2) & "-" & Right("0" & Day(UpdateTime), 2)
    Case 4
        strUpdateTime = Year(UpdateTime) & strYear & Month(UpdateTime) & strMonth & Day(UpdateTime) & strDay
    Case 5
        strUpdateTime = UpdateTime
    Case 6
        strUpdateTime = UpdateTime
    End Select
    If DateDiff("D", UpdateTime, Now()) < DaysOfNew Then
        strUpdateTime = "<font " & strListStr_Font & ">" & strUpdateTime & "</font>"
    End If
    GetUpdateTimeStr = strUpdateTime
End Function




Private Function GetPositionStatus(PositionStatus, ReleaseDate, ValidDate)
    Dim MyPositionStatus, strPositionStatus
    Dim CurrentDate, MyReleaseDate, MyValidDate
    MyPositionStatus = PE_CLng(PositionStatus)
    MyReleaseDate = ReleaseDate
    MyValidDate = PE_CLng(ValidDate)
    If MyReleaseDate <> "" And IsDate(MyReleaseDate) = True Then
        MyReleaseDate = CDate(MyReleaseDate)
    Else
        MyReleaseDate = PE_Now
    End If
    CurrentDate = DateAdd("d", 0, Date)
    If DateDiff("d", MyReleaseDate, CurrentDate) <= ValidDate Then
        If MyPositionStatus = 0 Then
            strPositionStatus = "正在招聘中"
        Else
            If MyPositionStatus = 1 Then
                strPositionStatus = "已停止招聘"
            End If
        End If
    Else
        strPositionStatus = "已过有效期"
    End If
    GetPositionStatus = strPositionStatus
End Function







Private Function GetPositionStatus_Search(PositionStatus, ReleaseDate, ValidDate)
    Dim MyPositionStatus, strPositionStatus
    Dim CurrentDate, MyReleaseDate, MyValidDate

    MyPositionStatus = PE_CLng(PositionStatus)
    MyReleaseDate = ReleaseDate
    MyValidDate = PE_CLng(ValidDate)
    If MyReleaseDate <> "" And IsDate(MyReleaseDate) = True Then
        MyReleaseDate = CDate(MyReleaseDate)
    Else
        MyReleaseDate = PE_Now
    End If
    CurrentDate = DateAdd("d", 0, Date)
    If DateDiff("d", MyReleaseDate, CurrentDate) <= ValidDate Then
        If MyPositionStatus = 0 Then
            strPositionStatus = "正在招聘中"
        ElseIf MyPositionStatus = 1 Then
            strPositionStatus = "已停止招聘"
        End If
    Else
        strPositionStatus = "已过有效期"
    End If
    GetPositionStatus_Search = strPositionStatus
End Function




'=================================================
'函数名：GetCorrelativePosition
'作  用：显示更多相关职位
'参  数：
'0        PositionNum ----最多显示多少个相关职位信息，0为所有的相关职位
'1        OrderType ----排序方式，1----按职位ID降序，2----按职位ID升序，3----按发布新时间降序，4----按发布时间升序
'2        TitleLen   ----职位名称最多字符数，一个汉字=两个英文字符，若为0，则显示完整职位名
'3        ShowDateType ------显示发布日期的样式，0为不显示，1为显示年月日，2为只显示月日，3为以“月-日”方式显示月日。

'4        Cols       ----每行的列数。超过此列数就换行。
'5        OpenType -----申请职位打开方式，0为在原窗口打开，1为在新窗口打开

'=================================================


Private Function GetCorrelativePosition(PositionNum, OrderType, TitleLen, ShowDateType, Cols, OpenType, PositionID, PositionKeyword)
    Dim rsCorrelative, sqlCorrelative
    Dim TitleStr, strLink, iTemp, iCols, strCorrelativePosition, strKey, arrKey, i
    iTemp = 1
    If PE_CLng(Cols) <> 0 Then
        iCols = PE_CLng(Cols)
    Else
        iCols = 1
    End If
    strCorrelativePosition = strCorrelativePosition & "  <p align='center'>"
    strKey = ReplaceBadChar(PositionKeyword)
    If InStr(strKey, "|") > 0 Then
        arrKey = Split(strKey, "|")
        strKey = "((PositionKeyword like '%" & arrKey(0) & "|%')"
        For i = 1 To UBound(arrKey)
            strKey = strKey & " or (PositionKeyword like '%|" & arrKey(i) & "|%')"
        Next
        strKey = strKey & ")"
    Else
        strKey = "(PositionKeyword like '%" & strKey & "%')"
    End If

    If TitleLen < 0 Or TitleLen > 200 Then
        TitleLen = 50
    End If

    If PE_CLng(PositionNum) > 0 Then
        sqlCorrelative = "select top " & PE_CLng(PositionNum)
    Else
        sqlCorrelative = "select "
    End If
    sqlCorrelative = sqlCorrelative & " PositionID,PositionName,ReleaseDate from PE_Position where "
    sqlCorrelative = sqlCorrelative & strKey & " and PositionID<>" & PE_CLng(PositionID)
    sqlCorrelative = sqlCorrelative & " and PositionStatus=0"
    sqlCorrelative = sqlCorrelative & " order by "
    Select Case PE_CLng(OrderType)
    Case 1
        sqlCorrelative = sqlCorrelative & "PositionID desc"
    Case 2
        sqlCorrelative = sqlCorrelative & "PositionID asc"
    Case 3
        sqlCorrelative = sqlCorrelative & "ReleaseDate desc,PositionID desc"
    Case 4
        sqlCorrelative = sqlCorrelative & "ReleaseDate asc,PositionID asc"
    Case Else
        sqlCorrelative = sqlCorrelative & "PositionID desc"
    End Select
    Set rsCorrelative = Server.CreateObject("ADODB.RecordSet")
    rsCorrelative.Open sqlCorrelative, Conn, 1, 3
    Do While Not rsCorrelative.EOF
        If TitleLen > 0 Then
            TitleStr = GetSubStr(rsCorrelative("PositionName"), TitleLen, ShowSuspensionPoints)
        Else
            TitleStr = rsCorrelative("PositionName")
        End If
        
        strLink = "<a href='SupplyInfo.asp?PositionID=" & rsCorrelative("PositionID") & "'"
        If OpenType = 0 Then
            strLink = strLink & " target='_self'>"
        Else
            strLink = strLink & " target='_blank'>"
        End If
        strLink = strLink & TitleStr & "</a>"
        strCorrelativePosition = strCorrelativePosition & strLink
        If (iTemp Mod iCols) = 0 Then
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -