ijob.asp

人才招聘系统,用asp做的

<!--#include file="../conn.asp"-->
<!--#include file="cookies.asp"-->
<!--#include file="famail.asp"-->
<!--#include file=../svceratie.asp-->
<!--#include file=../killcvc_1.asp-->
<!--#include file=../cncher.asp-->
<!--#include file=../helpercompany.inc-->
<!--#include file=../personss.asp-->
<%
function HTMLEncode(fString)
    fString = Replace(fString, ">", "&gt;")
    fString = Replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode = fString
end function
dim str1,oo,rs,sql,rs6,sql6,i,rs1,sql1,comid,jobs,emailAddress,bmid,jobid,selectedid,str2,rs2,sql2,search_ijob,search_jav,search_aoo
jobid=request.cookies("ijob")("jobid")
search_aoo=request.cookies("ijob")("aoo")
search_ijob=md5(trim(search_fser))
str1=request("selectedid")
search_jav=left(search_ijob,25)
oo=trim(request("oo"))
if oo="" then
 response.write "<script language=JavaScript>" & chr(13) & "alert('对不起！操作错误！');" & "history.back()" & "</script>"
 response.end
end if
search_aoo=left(search_aoo,25)
if search_jav="" or search_aoo="" then
response.write "参数错误！"
response.end
end if
if search_jav<>search_aoo then
response.write "参数错误！"
response.end
else
select case oo
case 1
'发信
if request("selectedid")="" then 
response.write "<script language=JavaScript>" & chr(13) & "alert('对不起！你没有选择记录！');" & "history.back()" & "</script>"
response.end
else
selectedid=request("selectedid")
end if
set rs6=server.createobject("adodb.recordset")
sql6="select * from [person] where jobid='"&jobid&"'"
rs6.open sql6,conn,1,1
if rs6.eof or rs6.bof then
response.write "<br>"+"<li>对不起，帐号不存在！"
response.end
end if
str2=split(selectedid,",")
for i=0 to ubound(str2)
set rs=server.createobject("adodb.recordset")
sql="select id,comid,jobs,bmid,ypcs from [jobs] where id="&cstr(str2(i))
'找资料
rs.open sql,conn,1,3
comid=rs("comid")
jobs=rs("jobs")
bmid=rs("bmid")
rs("ypcs")=rs("ypcs")+1
rs.update
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select id,fzrmail from [bumen] where id="&cstr(bmid)
'找资料
rs.open sql,conn,1,1
emailAddress=rs("fzrmail")
rs.close
set rs=nothing

call sendemail()
set rs1=server.createobject("adodb.recordset")
sql1="select * from [ApplyHistory] where jobid='"&jobid&"' and comid='"&comid&"' and jobsid='"&trim(cstr(str2(i)))&"'"
rs1.open sql1,conn,1,3
'添加到个人应聘记录

if rs1.eof or rs1.bof then
    rs1.addnew
    rs1("jobid")=jobid
	rs1("comid")=comid
	rs1("jobsid")=trim(cstr(str2(i)))
	rs1("data")=now()
	rs1.update
	rs1.close
	set rs1=nothing
 else
	rs1("data")=now()
	rs1.update
	rs1.close
	set rs1=nothing
	end if
	set rs2=server.createobject("adodb.recordset")
	sql="select * from [ApplyResume] where comid='"&comid&"' and jobid='"&jobid&"' and jobsid='"&trim(cstr(str2(i)))&"'"
	rs2.open sql,conn,1,3
	'企业收到的应聘记录
	if  rs2.eof and rs2.bof then
	    rs2.addnew
		rs2("comid")=comid
		rs2("jobid")=jobid
		rs2("jobsid")=trim(cstr(str2(i)))
		rs2("bmid")=bmid
		rs2("data")=now()
		rs2.update
		rs2.close
		set rs2=nothing
    else
		rs2("data")=now()
    	rs2.update
		rs2.close
		set rs2=nothing
	end if
	next
rs6.close
set rs6=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('求职信发送成功！');" & "history.back()" & "</script>"
case 2
'添加收藏夹记录
       if request("selectedid")="" then 
       response.write "<script language=JavaScript>" & chr(13) & "alert('对不起！你没有选择记录！');" & "history.back()" & "</script>"
       response.end
       else
       selectedid=request("selectedid")
       end if
        str2=split(selectedid,",")
		for i=0 to ubound(str2)
		set rs=server.createobject("adodb.recordset")
		sql="select * from [MyFavouriate] where jobsid='"&trim(str2(i))&"' and jobid='"&jobid&"'"
		rs.open sql,conn,1,3
	if  not rs.eof and not rs.bof then
		rs.close
		set rs=nothing 
    else
        rs.addnew
		rs("jobid")=jobid
		rs("jobsid")=trim(str2(i))
		set rs1=server.createobject("adodb.recordset")
		sql1="select id,comid from [jobs] where id="&cstr(str2(i))
		rs1.open sql1,conn,1,3
		comid=rs1("comid")
		rs1.close
		set rs1=nothing
		rs("comid")=comid
		rs("data")=now()
		rs.update
		rs.close
		set rs=nothing
		 
	end if
	next
	response.write "<li>收藏成功！<br> "
	response.write "<li><b><font color='#ff0000'><p align='center'><a href='javascript:history.back()'>返回</a></p></font><br> "
case 3
'删除收藏夹记录
       if request("selectedid")="" then 
       response.write "<script language=JavaScript>" & chr(13) & "alert('对不起！你没有选择记录！');" & "history.back()" & "</script>"
       response.end
       else
       selectedid=request("selectedid")
       end if
        str2=split(selectedid,",")
		for i=0 to ubound(str2)
		set rs1=server.createobject("adodb.recordset")
		sql1="delete from [MyFavouriate] where jobsid='"&trim(str2(i))&"' and jobid='"&jobid&"'"
		rs1.open sql1,conn,1,3
		next	
		response.write "<li><font color=""#ff0000""><b>"&ubound(str2)+1&"</b></font>条记录删除成功！<br> "
		response.write "<li><font color=""#ff0000""><b><a href='javascript:history.back()'>返回</a></b></font><br> "
case 4
'删除应聘历史记录
       if request("selectedid")="" then 
       response.write "<script language=JavaScript>" & chr(13) & "alert('对不起！你没有选择记录！');" & "history.back()" & "</script>"
       response.end
       else
       selectedid=request("selectedid")
       end if
        str2=split(selectedid,",")
		for i=0 to ubound(str2)
		set rs1=server.createobject("adodb.recordset")
		sql1="delete from [applyhistory] where jobsid='"&trim(str2(i))&"' and jobid='"&jobid&"'"
		rs1.open sql1,conn,1,3
		next
		response.write "<li><font color=""#ff0000""><b>"&ubound(str2)+1&"</b></font>条记录删除成功！<br> "
		response.write "<li><font color=""#ff0000""><b><a href='javascript:history.back()'>返回</a></b></font><br> "
case 5
       if request("selectedid")="" then 
       response.write "<script language=JavaScript>" & chr(13) & "alert('对不起！你没有选择记录！');" & "history.back()" & "</script>"
       response.end
       else
       selectedid=request("selectedid")
       end if
        str2=split(selectedid,",")
		for i=0 to ubound(str2)
		set rs1=server.createobject("adodb.recordset")
		sql1="delete from [InviteMe] where comid='"&trim(str2(i))&"' and jobid='"&jobid&"'"
		rs1.open sql1,conn,1,3
		next
		response.write "<li><font color=""#ff0000""><b>"&ubound(str2)+1&"</b></font>条记录删除成功！<br> "
		response.write "<li><font color=""#ff0000""><b><a href='javascript:history.back()'>返回</a></b></font><br> "		
end select
end if
%>