📄 aa_joby.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：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"-->

<%
Call Page_AdminFlag(27)
Page_HeadName="<A HREF=Aa_Job.asp?Action=Add>添加招聘信息</A>　|　<A HREF=Aa_Job.asp?Action=Manage>招聘信息列表</A>"
Call Page_formBody()
Call Page_Spane(5)
Dim JobName
Selectkey=replace(Request.form("Selectkey"),"'","")
sAction=Request("sAction")
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Job Where Joby_Id=" & bId
Rs.open Sql,Conn,1,1
JobName=Rs("Job_Name")
Rs.Close
Set Rs=Nothing
Select Case Action
    Case "Manage"
        Page_BootmName="应聘信息管理 > " & JobName
        Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
        Set Rs_Manage=server.Createobject("Adodb.Recordset")
        Sql="Select * from Tx_Joby Where Joby_JobId=" & bId & " order by Joby_Date desc"
        Rs_Manage.open Sql,Conn,1,1
            strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"
            Rs_Manage.PageSize = 15
            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
                Set Rs=server.Createobject("Adodb.Recordset")
                Sql="Select * from Tx_User where User_Id=" & Rs_Manage("Joby_UserId")
                Rs.open Sql,Conn,1,1
                    IF Rs.RecordCount<>0 THEN
					    UserName=Rs("User_Name")
                        Set Rs_c=server.Createobject("Adodb.Recordset")
                        Sql="Select * from Tx_Groud where Groud_Id=" & Rs("User_Group")
                        Rs_c.open Sql,Conn,1,1
                            UserGroup=Rs_c("Groud_Name")
                        Rs_c.Close
                        Set Rs_c=Nothing
                    Else
                        UserGroup="未注册用户"
						UserName=""
                    End IF
                Rs.Close
                Set Rs=Nothing
                strIfa = strIfa & "<Form NAME=inbox method=post action='Aa_Joby.asp?Action=Delall'><TR CLASS=Table8><TD CLASS=Table8><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD WIDTH=30% valign=top><a NAME='" & Rs_Manage("Joby_Id") & "'>用 户 名：" & UserGroup & " -- " & UserName & "<br>真实姓名：" & Rs_Manage("Joby_AddName") & "<br>性　　别：" & Rs_Manage("Joby_Sex") & "<br>出生年月：" & Rs_Manage("Joby_Age") & "<br>民　　族：" & Rs_Manage("Joby_Nation") & "<br>婚姻状况：" & Rs_Manage("Joby_Marriage") & "</TD><TD WIDTH=1 CLASS=Table6></TD><TD WIDTH=45% valign=top>现居住地：" & Rs_Manage("Joby_Lives") & "<br>文化程度：" & Rs_Manage("Joby_Culture") & "<br>所属专业：" & Rs_Manage("Joby_Specialized") & "<br>毕业院校：" & Rs_Manage("Joby_GraduationSchool") & "<br>毕业时间：" & Rs_Manage("Joby_GraduationTime") & "<br></TD><TD WIDTH=1 CLASS=Table6></TD><TD valign=top>联系电话：" & Rs_Manage("Joby_Tel") & "<br>电子邮件：" & Rs_Manage("Joby_Email") & "<br>应聘时间：" & Rs_Manage("Joby_Date") & "<br>I P 地址：" & Rs_Manage("Joby_Ip") & "<br>来自地区：" & Rs_Manage("Joby_Ress") & "</TD></TR></TABLE><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD>个人简介：<BR>" & Rs_Manage("Joby_Resume") & "</TD></TR></TABLE></TD></TR>"
				IF sAction="Edit" THEN
				    IF Rs_Manage("Joby_Id")=int(Id) THEN
                        strIfa = strIfa & "<TR><TD CLASS=Table8><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD><FONT COLOR=b50000><TEXTAREA NAME=Joby_AdminContent cols=50 rows=6 id=Joby_AdminContent>" & Rs_Manage("Joby_AdminContent")
						strIfa = strIfa & "</TEXTAREA><input name=ToEmailContent type=hidden id=ToEmailContent value='" & replace(replace(replace(Web_Const(72),"{Joby_Date}",YearDami(Rs_Manage("Joby_Date"))),"{Joby_Name}",JobName),"{Add_Name}",Rs_Manage("Joby_AddName")) & "'><INPUT TYPE=checkbox NAME=ToEmail VALUE='1' CLASS='radio_all' "
				        IF Rs_Manage("Joby_Email")="" or Web_Const(61)=0 THEN
                            strIfa = strIfa & " disabled "
                        End IF
                        strIfa = strIfa & "> Email通知　<INPUT TYPE=checkbox NAME=ToMess VALUE='1' CLASS='radio_all' "
				        IF Rs_Manage("Joby_UserId")=0 THEN
                            strIfa = strIfa & " disabled "
                        End IF
                        strIfa = strIfa & "> 短信通知　<INPUT TYPE=submit CLASS='submit_all' NAME=Edit VALUE=' 回 复 ' onClick=" & CHR(34) & "this.form.action='Aa_Joby.asp?Action=Edit&Id=" & Rs_Manage("Joby_Id") & "';this.form.submit()" & CHR(34) & "></FONT>　　HTML支持</TD></TR></TABLE></TD></TR>"
				    End IF
				End IF
				IF Rs_Manage("Joby_AdminContent")<>"" THEN
				    IF Rs_Manage("Joby_Id")<>int(Id) THEN
                        strIfa = strIfa & "<TR><TD CLASS=Table8><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD><FONT COLOR=b50000>管理员" & Rs_Manage("Joby_AdminName") & "于" & Rs_Manage("Joby_AdminDate") & "回复：<br>" & Rs_Manage("Joby_AdminContent") & "</FONT></TD></TR></TABLE></TD></TR>"
				    End IF
			    End IF
                strIfa = strIfa & "<TR><TD HEIGHT=25 ALIGN=right CLASS=Table9><A HREF=Aa_Joby.asp?Action=Manage&sAction=Edit&bId=" & bId & "&Id=" & Rs_Manage("Joby_Id") & "#" & Rs_Manage("Joby_Id") & "><FONT COLOR=ff0000><B>在线回复</B></FONT></A> | <A HREF=Aa_Joby.asp?Action=Del&Id=" & Rs_Manage("Joby_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | <INPUT TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("Joby_Id") & " CLASS='radio_all'>&nbsp;</TD></TR><TR><TD HEIGHT=1 CLASS=Table10></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 NAME=Submit VALUE=' 删除 ' CLASS='Submit_all' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'></TD></TR></form><TR><TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
        strIfb = "</TD></TR></TABLE>"
    Call Page_aTable(0,1)
    Case "Edit"
        IF request.form("Joby_AdminContent")="" THEN
            Errorst="请输入回复内容！"
            founderr=True
        End IF
        IF founderr=true THEN
	        Call Form_Error()
        Else
            Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * from Tx_Joby where Joby_Id=" & Id
            Rs.Open Sql,Conn,1,3
		        Rs("Joby_AdminContent")=Request.form("Joby_AdminContent")
		        Rs("Joby_AdminDate")=Now()
		        Rs("Joby_AdminAdd")=session("Loginuser")
		        Rs.UpDate
		        Content_E=Request.form("ToEmailContent") & request.form("Joby_AdminContent")
		        Title_E=Rs("Joby_AddName") & "您好，您的应聘信息已经有回复了！"
		        Set Rs_c=server.createobject("adodb.recordset")
                Sql="Select * From Tx_User Where User_Id=" & Rs("Joby_UserId")
                Rs_c.open Sql,Conn,1,1
	                IF Rs_c.RecordCount<>0 THEN
			            IF request.form("ToMess")=1 THEN
                             Call PageMessTo(session("Loginuser"),"" & Rs_c("User_Name") & "",1,"" & Title_E & "","" & Content_E & "")
		                End IF
		            End IF
		        Rs_c.Close
		        Set Rs_c=Nothing
			    IF Web_Const(61)=1 THEN
	                IF Rs("Joby_Email")<>"" THEN
	                    IF request.form("ToEmail")=1 THEN
					        Content_E=Content_E & "<BR><BR>" & Web_Const(68)
                            SendEmail Rs("Joby_Email"),Title_E,Content_E,Web_Const(62)
		                End IF
		            End IF
			    End IF
		    Rs.Close
		    Set Rs=Nothing
		    ToHistory=VisitorsForm
		    saveok="已回复！"
	        Call Form_Saveok()
        End IF
    Case "Del"
        Conn.execute "Delete From Tx_Joby Where Joby_Id=" & Id
        ToHistory=VisitorsForm
        saveok="删除成功！"
        Call Form_Saveok()
    Case "Delall"
        IF request.form("Id")="" THEN
            Errorst="请选择要删除的对象！"
            founderr=True
        End IF
        IF founderr=True THEN
	        Call Form_Error()
        Else
            Conn.Execute "Delete From Tx_Joby Where Joby_Id in (" & request.form("Id") & ")"
            ToHistory=VisitorsForm
            saveok="删除成功！"
            Call Form_Saveok()
        End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明

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