📄 aa_job.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
				  "</TR>"&_
                  "</form>"&_
                  "<TR>"&_
                  "<TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "S"
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Job Where Job_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="查看招聘信息 > " & Rs_edit("Job_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Job_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消审核</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>通过审核</FONT>"
End IF
    Set Rs_p=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Joby where Joby_JobId=" & Rs_edit("Job_Id")
    Rs_p.open Sql,Conn,1,1
	    IF Rs_p.RecordCount=0 THEN
		    JobSeeker="<FONT COLOR=dfdfdf>应聘信息</FONT>"
		Else
		    JobSeeker="<A HREF=Aa_Joby.asp?Action=Manage&bId=" & Rs_edit("Job_Id") & ">应聘信息</A>"
		End IF
	Rs_p.Close
	Set Rs_p=Nothing
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<TR>"&_
         "<TD ALIGN=center CLASS=Table8>"&_
         "<TABLE WIDTH=570  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
         "<TR>"&_
         "<TD ALIGN=center CLASS=Table15><B>" & Rs_edit("Job_Name") & "</B></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15>工作地点：" & Rs_edit("Job_Ress") & "<br>招聘人数：" & Rs_edit("Job_People") & " 人<br>薪资待遇：" & Rs_edit("Job_Money") & "<br>有效期限：" & Rs_edit("Job_ToDate") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15><B>工作内容：</B><br>" & Rs_edit("Job_Content") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15><B>岗位要求：</B><br>" & Rs_edit("Job_Need") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30></TD>"&_
         "</TR>"&_
         "</TABLE></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_Job.asp?Action=Add>添加招聘信息</A> 』『 <A HREF=Aa_Job.asp?Action=Edit&Id=" & Rs_edit("Job_Id") & ">修改</A> 』『 <A HREF=Aa_Job.asp?Action=Flag&Id=" & Rs_edit("Job_Id") & ">" & TitleFlag & "</A> 』『 " & JobSeeker & " 』『 <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href=Aa_Job.asp?Action=Del&Id=" & Rs_edit("Job_Id") & ">删除</A> 』『 <A HREF=Aa_Job.asp?Action=Manage>招聘信息列表</A> 』</TD>"&_
         "</TR>"&_
         "</TABLE>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "sAdd"
IF Request.form("Job_Name")="" THEN
Errorst="请输入职位名称！"
founderr=True
ElseIF not isnumeric(Request.form("Job_People")) THEN
Errorst="错误的参数（招聘人数请输入数字）！"
founderr=True
ElseIF Request.form("Job_Need")="" THEN
Errorst="请输入岗位要求！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Job"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Job_Name")=Request.form("Job_Name")
		Rs("Job_Ress")=Request.form("Job_Ress")
		Rs("Job_Money")=Request.form("Job_Money")
		Rs("Job_People")=Request.form("Job_People")
		Rs("Job_ToDate")=Request.form("Job_ToDate")
		Rs("Job_Content")=dvHTMLEncode(Request.form("Job_Content"))
		Rs("Job_Need")=dvHTMLEncode(Request.form("Job_Need"))
		Rs("Job_Flag")=Request.form("Job_Flag")
		Rs("Job_Add")=session("Loginadmin")
		Rs("Job_Date")=Now()
		Rs.update
		ToHistory="Aa_Job.asp?Action=S&Id=" & Rs("Job_Id")
		Rs.Close
		Set Rs=Nothing
		saveok="招聘信息：[ " & Request.form("Job_Name") & " ] 添加成功！"
	    Call Form_Saveok()
		End IF
Case "sEdit"
IF Request.form("Job_Name")="" THEN
Errorst="请输入职位名称！"
founderr=True
ElseIF not isnumeric(Request.form("Job_People")) THEN
Errorst="错误的参数（招聘人数请输入数字）！"
founderr=True
ElseIF Request.form("Job_Need")="" THEN
Errorst="请输入岗位要求！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Job where Job_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Job_Name")=Request.form("Job_Name")
		Rs("Job_Ress")=Request.form("Job_Ress")
		Rs("Job_Money")=Request.form("Job_Money")
		Rs("Job_People")=Request.form("Job_People")
		Rs("Job_ToDate")=Request.form("Job_ToDate")
		Rs("Job_Content")=dvHTMLEncode(Request.form("Job_Content"))
		Rs("Job_Need")=dvHTMLEncode(Request.form("Job_Need"))
		Rs("Job_Flag")=Request.form("Job_Flag")
		Rs("Job_Add")=session("Loginadmin")
		IF Request.form("NewTime")=1 THEN
		    Rs("Job_Date")=Now()
		End IF
		Rs.update
		ToHistory="Aa_Job.asp?Action=Edit&Id=" & Rs("Job_Id")
		Rs.Close
		Set Rs=Nothing
		saveok="招聘信息：[ " & Request.form("Job_Name") & " ] 修改成功！"
	    Call Form_Saveok()
		End IF
Case "Del"
    DelCount=Conn.Execute("Select count(*) from Tx_Joby where Joby_JobId=" & Id)(0)
    DelNamet=Conn.Execute("Select Job_Name from Tx_Job where Job_Id=" & Id)(0)
    Conn.Execute "Delete From Tx_Job Where Job_Id=" & Id
    Conn.Execute "Delete From Tx_Joby Where Joby_JobId=" & Id
    ToHistory="Aa_Job.asp?Action=Manage"
    saveok="招聘信息[" & DelNamet & "]及其下属" & DelCount & "条应聘信息已删除！"
    Call Form_Saveok()
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Job where Job_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("Job_Flag")=1 THEN
		    Rs("Job_Flag")=0
		saveok="招聘信息：[ " & Rs("Job_Name") & " ] 已取消审核！"
		Else
		    Rs("Job_Flag")=1
		saveok="招聘信息：[ " & Rs("Job_Name") & " ] 已通过审核！"
		End IF
		Rs.update
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
	    Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	    DelCount=Conn.Execute("Select count(*) from Tx_Joby where Joby_JobId in (" & Request.form("Id") & ")")(0)
        Conn.Execute "Delete From Tx_Job Where Job_Id in (" & Request.form("Id") & ")"
        Conn.Execute "Delete From Tx_Joby Where Joby_JobId in (" & Request.form("Id") & ")"
    ToHistory=VisitorsForm
    saveok="已删除" & ubound(split(Request.form("Id"),",")) & "条招聘信息，并同时删除它们下属" & DelCount & "条应聘信息！"
    Call Form_Saveok()
End IF
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_Job Set Job_Flag=1 Where Job_Id in (" & Request.form("Id") & ")"
	ToHistory=VisitorsForm
    saveok="已通过审核！"
    Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="请选择要取消审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_Job Set Job_Flag=0 Where Job_Id in (" & Request.form("Id") & ")"
		ToHistory=VisitorsForm
    saveok="已取消审核！"
    Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
上一页 12
⌨️ 快捷键说明

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