📄 powereasy.job.asp
字号:
If ShowDateType > 0 Then
strCorrelativePosition = strCorrelativePosition & " "
strCorrelativePosition = strCorrelativePosition & GetUpdateTimeStr(rsCorrelative("ReleaseDate"), ShowDateType)
End If
strCorrelativePosition = strCorrelativePosition & "<br>"
Else
If ShowDateType > 0 Then
strCorrelativePosition = strCorrelativePosition & " "
strCorrelativePosition = strCorrelativePosition & GetUpdateTimeStr(rsCorrelative("ReleaseDate"), ShowDateType)
End If
strCorrelativePosition = strCorrelativePosition & " "
End If
rsCorrelative.MoveNext
iTemp = iTemp + 1
Loop
rsCorrelative.Close
Set rsCorrelative = Nothing
strCorrelativePosition = strCorrelativePosition & " </p>"
GetCorrelativePosition = strCorrelativePosition
End Function
Private Sub SaveSupplyInfo()
Dim PositionSupplyInfoID, PositionID, SubCompanyID, WorkPlaceID, mrs, MaxPositionSupplyInfoID
Dim PositionName, SubCompanyName, WorkPlaceName, PositionNum, ValidDate, ReleaseDate, CurrentDate
Dim rsSupply, sqlSupply
Dim rsResume, sqlResume
Dim rsPosition, sqlPosition
PositionID = Trim(Request("PositionID"))
SubCompanyID = Trim(Request("SubCompanyID"))
WorkPlaceID = Trim(Request("WorkPlaceID"))
PositionName = Request("PositionName")
SubCompanyName = ReplaceBadChar(Trim(Request("SubCompanyName")))
WorkPlaceName = ReplaceBadChar(Trim(Request("WorkPlaceName")))
PositionNum = PE_CLng(Trim(Request("PositionNum")))
ValidDate = PE_CLng(Trim(Request("ValidDate")))
ReleaseDate = Trim(Request("ReleaseDate"))
'先判断是否已经登录
If CheckUserLogined() = False Then
Response.Redirect "" & strInstallDir & "User/User_Login.asp"
Exit Sub
End If
'判断该职位是否已过有效期
If ReleaseDate <> "" And IsDate(ReleaseDate) = True Then
ReleaseDate = CDate(ReleaseDate)
Else
ReleaseDate = PE_Now
End If
CurrentDate = DateAdd("d", 0, Date)
If DateDiff("d", ReleaseDate, CurrentDate) > ValidDate Then
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title>职位申请</title>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<link href='../Admin/Admin_Style.css' rel='stylesheet' type='text/css'>"
Response.Write "</head>"
Response.Write "<body>"
Response.Write "<br><br>"
Response.Write "<table class='border' align=center width='400' border='0' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
Response.Write " <tr align=center> "
Response.Write " <td height='22' align='center' class='title'> "
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><table width='100%' border='0' cellpadding='2' cellspacing='1'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='400' height='88' align='center'><font color=red>对不起，您所申请的职位已过有效期，所以不能申请该职位！</font></td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='30' align='center'>"
Response.Write "【<a href='javascript:window.close();'>关闭窗口</a>】"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>" & vbCrLf
Response.Write "</body>"
Response.Write "</html>"
Exit Sub
End If
'判断登录用户是否已经填写简历
Set rsResume = Server.CreateObject("Adodb.RecordSet")
sqlResume = "select ResumeID from PE_Resume where UserName='" & UserName & "'"
rsResume.Open sqlResume, Conn, 1, 3
If rsResume.BOF And rsResume.EOF Then
Response.Redirect "" & strInstallDir & "User/User_Job.asp?Action=Resume"
End If
rsResume.Close
Set rsResume = Nothing
If PositionID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>职位不能为空！</li>"
Else
PositionID = PE_CLng(PositionID)
End If
If SubCompanyID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>用人单位不能为空！</li>"
Else
SubCompanyID = PE_CLng(SubCompanyID)
End If
If WorkPlaceID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>工作地点不能为空！</li>"
Else
WorkPlaceID = PE_CLng(WorkPlaceID)
End If
If FoundErr = True Then
Exit Sub
End If
'判断登录用户是否已经申请过该职位
Set rsPosition = Server.CreateObject("Adodb.RecordSet")
sqlPosition = "select PositionSupplyInfoID from PE_PositionSupplyInfo where PositionID=" & PositionID & "And UserName='" & UserName & "'"
rsPosition.Open sqlPosition, Conn, 1, 3
If rsPosition.BOF And rsPosition.EOF Then
Set rsSupply = Server.CreateObject("Adodb.RecordSet")
Set mrs = Conn.Execute("select max(PositionSupplyInfoID) from PE_PositionSupplyInfo")
If IsNull(mrs(0)) Then
MaxPositionSupplyInfoID = 0
Else
MaxPositionSupplyInfoID = mrs(0)
End If
Set mrs = Nothing
sqlSupply = "select Top 1 * from PE_PositionSupplyInfo"
rsSupply.Open sqlSupply, Conn, 1, 3
rsSupply.addnew
rsSupply("PositionSupplyInfoID") = MaxPositionSupplyInfoID + 1
rsSupply("UserName") = UserName
rsSupply("PositionID") = PositionID
rsSupply("SubCompanyID") = SubCompanyID
rsSupply("WorkPlaceID") = WorkPlaceID
rsSupply("CheckStatus") = 0
rsSupply("SupplyDate") = DateAdd("d", 0, Date)
rsSupply.Update
rsSupply.Close
Set rsSupply = Nothing
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title>职位申请</title>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<link href='../Admin/Admin_Style.css' rel='stylesheet' type='text/css'>"
Response.Write "</head>"
Response.Write "<body>"
Response.Write "<br><br>"
Response.Write "<table class='border' align=center width='400' border='0' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
Response.Write " <tr align=center> "
Response.Write " <td height='22' align='center' class='title'> "
Response.Write "<b>" & UserName & "--您已经成功申请该职位！</b>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><table width='100%' border='0' cellpadding='2' cellspacing='1'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100' align='right'><strong>职位名称：</strong></td>"
Response.Write " <td>" & PositionName & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100' align='right'><strong>所属单位：</strong></td>"
Response.Write " <td>" & SubCompanyName & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100' align='right'><strong>工作地点：</strong></td>"
Response.Write " <td>" & WorkPlaceName & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100' align='right'><strong>招聘人数：</strong></td>"
Response.Write " <td>" & PositionNum & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100' align='right'><strong>有效期：</strong></td>"
Response.Write " <td>" & ValidDate & "</td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='30' align='center'>"
Response.Write "【<a href='javascript:window.close();'>关闭窗口</a>】"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>" & vbCrLf
Response.Write "</body>"
Response.Write "</html>"
Else
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title>职位申请</title>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<link href='../Admin/Admin_Style.css' rel='stylesheet' type='text/css'>"
Response.Write "</head>"
Response.Write "<body>"
Response.Write "<br><br>"
Response.Write "<table class='border' align=center width='400' border='0' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
Response.Write " <tr align=center> "
Response.Write " <td height='22' align='center' class='title'> "
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><table width='100%' border='0' cellpadding='2' cellspacing='1'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='400' height='88' align='center'><font color=red>您已经申请了该职位，请不要重复申请同一职位！</font></td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='30' align='center'>"
Response.Write "【<a href='javascript:window.close();'>关闭窗口</a>】"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>" & vbCrLf
Response.Write "</body>"
Response.Write "</html>"
End If
rsPosition.Close
Set rsPosition = Nothing
End Sub
Public Function GetListFromTemplate(ByVal strValue)
Dim strList
strList = strValue
regEx.Pattern = "\{\$GetPositionList\((.*?)\)\}"
Set Matches = regEx.Execute(strList)
For Each Match In Matches
strList = PE_Replace(strList, Match.value, GetListFromLabel(Match.SubMatches(0)))
Next
GetListFromTemplate = strList
End Function
Private Function GetListFromLabel(ByVal str1)
Dim strTemp, arrTemp
Dim tPositionNum, tDateNum, tOrderType, tShowType, tTitleLen, tShowDateType
If str1 = "" Then
GetListFromLabel = ""
Exit Function
End If
strTemp = Replace(str1, Chr(34), "")
arrTemp = Split(strTemp, ",")
If UBound(arrTemp) <> 22 Then
GetListFromLabel = "函数式标签：{$GetPositionList(参数列表)}的参数个数不对。请检查模板中的此标签。"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -