?? aa_job.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 產(chǎn)品名稱：臺訊企業(yè)全站管理系統(tǒng)（V2006簡體中文版）
' 程序開發(fā)：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Inc/Select.inc"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Dim JobMoney
Page_HeadName="<A HREF=Aa_Job.asp?Action=Add>添加招聘信息</A> | <A HREF=Aa_Job.asp?Action=Manage>招聘信息列表</A>"
JobMoney="<OPTION VALUE=''>請選擇 </OPTION>"
Job_Money=split(Job_Money,"||")
For intTemp=0 To ubound(Job_Money)
JobMoney=JobMoney & "<OPTION VALUE='" & Job_Money(intTemp) & "'>" & Job_Money(intTemp) & "</OPTION>"
Next
Select Case Action
Case "Add"
Call Page_AdminFlag(27)
Page_BootmName="添加招聘信息"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Form method=post action=Aa_Job.asp?Action=sAdd>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>招聘職位：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_Name TYPE=text id=Job_Name size=55> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>招聘人數(shù)：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_People TYPE=text id=Job_People size=12 onKeyPress='event.returnValue=IsDigit();'> 人 <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>工作地點：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_Ress TYPE=text id=Job_Ress size=55></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>薪資待遇：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_Money TYPE=text id=Job_Money size=25> <select NAME=JobMoney id=JobMoney onChange='(document.Form.Job_Money.value=this.options[this.selectedIndex].value)'>" & JobMoney & "</select> <A HREF='' onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Job_Money','Job','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=105 CLASS=Table8>工作內(nèi)容：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Job_Content cols=56 rows=6 id=Job_Content></TEXTAREA> HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=105 CLASS=Table8>崗位要求：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Job_Need cols=56 rows=6 id=Job_Need></TEXTAREA> <FONT COLOR=ff0000>*</FONT> HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>有效期到：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_ToDate TYPE=text id=Job_ToDate size=20>"&_
" 格式為：2006-3-6，今天是：" & Date() & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>信息審核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Job_Flag VALUE='1' checked> 通過審核 <INPUT CLASS=radio_all TYPE=radio NAME=Job_Flag VALUE='0'>取消審核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
"<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交資料'> "&_
"<INPUT NAME=button TYPE=reset CLASS=submit_all id=Close VALUE='重新輸入'>"&_
"</TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(27)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Job Where Job_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Table_List1="Tx_Job"
OldId="Job_Id"
OldContent="Job_Content"
Page_BootmName="招聘信息修改 > " & Rs_edit("Job_Name")
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
IF Rs_edit("Job_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Form method=post action=Aa_Job.asp?Action=sEdit&Id=" & Id & ">"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>招聘職位：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_Name TYPE=text id=Job_Name size=55 VALUE=" & Rs_edit("Job_Name") & "> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD CLASS=Table8 HEIGHT=30>招聘人數(shù)：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_People TYPE=text id=Job_People VALUE=" & Rs_edit("Job_People") & " size=12 onKeyPress='event.returnValue=IsDigit();'> 人 <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>工作地點：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_Ress TYPE=text id=Job_Ress size=55 VALUE=" & Rs_edit("Job_Ress") & "></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>薪資待遇：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_Money TYPE=text id=Job_Money size=25 VALUE=" & Rs_edit("Job_Money") & "> <select NAME=JobMoney id=JobMoney onChange='(document.Form.Job_Money.value=this.options[this.selectedIndex].value)'>" & JobMoney & "</select> <A HREF='' onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Job_Money','Job','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=105 CLASS=Table8>工作內(nèi)容：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Job_Content cols=56 rows=6 id=Job_Content>" & dvHTMLCode(Rs_edit("Job_Content")) & "</TEXTAREA> HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=105 CLASS=Table8>崗位要求：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Job_Need cols=56 rows=6 id=Job_Need>" & dvHTMLCode(Rs_edit("Job_Need")) & "</TEXTAREA> <FONT COLOR=ff0000>*</FONT> HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>有效期限：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Job_ToDate TYPE=text id=Job_ToDate size=20 VALUE=" & Rs_edit("Job_ToDate") & ">"&_
" 格式為：2006-3-6，今天是：" & Date() & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>添加時間：</TD>"&_
"<TD CLASS=Table8><INPUT NAME='textfield' TYPE='text' VALUE='" & Rs_edit("Job_Date") & "'> 現(xiàn)在時間為" & Now() & "，更新時間：<INPUT NAME=NewTime CLASS=radio_all TYPE=checkbox id=NewTime VALUE='1'></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>信息審核：</TD>"&_
"<TD CLASS=Table8><INPUT CLASS=radio_all TYPE=radio NAME=Job_Flag VALUE='1' " & checked1 & "> 通過審核 <INPUT CLASS=radio_all TYPE=radio NAME=Job_Flag VALUE='0' " & checked2 & ">取消審核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
"<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交資料'> "&_
"<INPUT NAME=button TYPE=reset CLASS=submit_all id=Close VALUE='重新輸入'>"&_
"</TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Rs_edit.Close
Set Rs_edit=Nothing
Case "Manage"
Call Page_AdminFlag(27)
Page_BootmName="招聘信息列表"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Job order by Job_Id desc"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD CLASS=Table6>招聘職位</TD><TD WIDTH=15% CLASS=Table6>添加人</TD><TD WIDTH=17% CLASS=Table6>添加時間</TD><TD WIDTH=30% CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
IF Rs_Manage("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_Manage("Job_Id")
Rs_p.open Sql,Conn,1,1
IF Rs_p.RecordCount=0 THEN
JobSeeker="<FONT COLOR=dfdfdf>應(yīng)聘信息</FONT>"
Else
JobSeeker="<A HREF=Aa_Joby.asp?Action=Manage&bId=" & Rs_Manage("Job_Id") & ">應(yīng)聘信息</A>"
End IF
Rs_p.Close
Set Rs_p=Nothing
strIfa = strIfa & "<Form NAME=inbox method=post action='Aa_Job.asp?Action=Delall'>"&_
"<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
"<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("Job_Id") & "</TD>"&_
"<TD><A HREF=Aa_Job.asp?Action=S&Id=" & Rs_Manage("Job_Id") & ">" & Rs_Manage("Job_Name") & "</A></TD>"&_
"<TD>" & Rs_Manage("Job_Add") & "</TD>"&_
"<TD>" & Rs_Manage("Job_Date") & "</TD>"&_
"<TD ALIGN=center>"&_
"<A HREF=Aa_Job.asp?Action=Edit&Id=" & Rs_Manage("Job_Id") & ">修改</A> | "&_
"<A HREF=Aa_Job.asp?Action=Flag&Id=" & Rs_Manage("Job_Id") & ">" & TitleFlag & "</A> | "&_
"" & JobSeeker & " | "&_
"<A HREF=Aa_Job.asp?Action=Del&Id=" & Rs_Manage("Job_Id") & " onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復(fù)，您真的要刪除么？" & CHR(34) & ")){return true;}return false;}'>刪除</A> | "&_
"<INPUT CLASS=radio_all TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("Job_Id") & ">"&_
"</TD>"&_
"</TR>"
Rs_Manage.movenext
wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
"<TD HEIGHT=30 colspan=6 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox NAME=chkall CLASS=radio_all VALUE=on onclick=CheckAll(this.form)>"&_
" 選擇全部 "&_
"<INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE=' 刪除 ' onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復(fù)，您真的要刪除么？" & CHR(34) & ")){return true;}return false;}'> "&_
"<INPUT TYPE=submit CLASS=submit_all NAME=FlagOk VALUE=通過審核 onClick=" & CHR(34) & "this.form.action='Aa_Job.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
"<INPUT TYPE=submit CLASS=submit_all NAME=FlagNo VALUE=取消審核 onClick=" & CHR(34) & "this.form.action='Aa_Job.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & ">"&_
"</TD>"&_
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -