ijob.asp

人才招聘系统,用asp做的

<!--#include file="../conn.asp"-->
<%if Request.cookies("ijob")("zt")<>"1" then%>
<!--#include file=cookies.asp-->
<%else%>
<!--#include file=Section/cookies.asp-->
<%end if%>
<!--#include file=famail.asp-->
<link rel="stylesheet" type="text/css" href="IMG/jobcn.css">
<%
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,username,msjl,rck,companyuser,oo,rs,sql,rck1,i,puttoshopbox,ctsr,selectedid,str2,rs1,sql1,rs5,sql5,name
dim companyName,confirmReply,rs2,sql2,rs3,sql3,rs4,sql4,email,mailBox,full_name,InviteMe,Dept,selectedjob,jobsid
dim contactPerson,c_ContactPhone,l_ContactPhone,e_ContactPhone,Industry,province,chklogin_email
username=request.cookies("ijob")("comid")
str1=request("selectedid")
oo=trim(request("oo"))
select case oo
case 1
        set rs2=server.createobject("adodb.recordset")
		sql2="select * from [company] where comid='"&username&"'"
		rs2.open sql2,conn,1,1
       if request("selectedid")="" then 
       response.write "<script language=JavaScript>" & chr(13) & "alert('对不起！你没有选择记录！');" & "history.back()" & "</script>"
       response.end
       else
       selectedid=request("selectedid")
       end if
       dim companyIntroduction
       companyIntroduction=rs2("companyIntroduction")
       companyName=rs2("companyName")
        str2=split(selectedid,",")
		for i=0 to ubound(str2)
		set rs4=server.createobject("adodb.recordset")
		sql4="select jobid,name,useremail from [person] where jobid='"&trim(str2(i))&"'"
		rs4.open sql4,conn,1,1
		name=rs4("name")
		email=rs4("useremail")
		rs4.close
		set rs4=nothing
		call sendemail()
		set rs=server.createobject("adodb.recordset")
		sql="select * from [InviteRecord] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs.open sql,conn,1,3
		'邀请面试记录
	if  not rs.eof and not rs.bof then
		'response.write "对不起记录'"&trim(str2(i))&"'已经存在！ <br>"   
		rs("data")=now()
		rs.update
		rs.close
		set rs=nothing 
    else
        rs.addnew
        rs("comid")=username
        rs("jobid")=trim(str2(i))
        rs("data")=now()
        rs.update
	end if

		set rs5=server.createobject("adodb.recordset")
		sql5="select * from [InviteMe] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs5.open sql5,conn,1,3
		
	if  not rs5.eof and not rs5.bof then
		rs5("jobid")=trim(str2(i))
		rs5("comid")=username
		rs5("data")=now()
		rs5.update
		rs5.close
		set rs5=nothing 
    else
        rs5.addnew
		rs5("jobid")=trim(str2(i))
		rs5("comid")=rs("comid")
		rs5("data")=now()
		rs5.update
		rs5.close
		set rs5=nothing
	end if
if Request.cookies("ijob")("ijobvip")<>1 then
	if i>0 then
    response.write "<script language=JavaScript>" & chr(13) & "alert('你是试用会员，我们只发送了 第1条 信息到求职者的信箱，如果需要请注册我们的VIP高级会员！');" & "history.back()" & "</script>"
    response.end
    exit for
    end if
end if
	next
		rs2.close
		set rs2=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 [CompanyDB] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		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")=trim(str2(i))
		rs("comid")=username
		rs("data")=now()
		rs.update
		rs.close
		set rs=nothing
	end if
if Request.cookies("ijob")("ijobvip")<>1 then
	if i>0 then
    response.write "<script language=JavaScript>" & chr(13) & "alert('你是试用会员，我们只收藏了第1条信息到你的人才库，如果需要请注册我们的VIP高级会员！');" & "history.back()" & "</script>"
    response.end
    exit for
    end if
end if
		next
        response.write "<script language=JavaScript>" & chr(13) & "alert('收藏成功！记录已经写入数据库！');" & "history.back()" & "</script>"
        response.end
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 [CompanyDB] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs1.open sql1,conn,1,3
		set rs=server.createobject("adodb.recordset")
		sql="select * from [RecycleBin] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		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")=trim(str2(i))
		rs("comid")=username
		rs("data")=now()
		rs.update
		rs.close
		set rs=nothing
	end if
		next
        response.write "<li>操作成功！<br> " 
		response.write "<li><font color=""#ff0000""><b><a href='javascript:history.back()'>返回</a></b></font><br> "
        response.end
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 [CompanyDB] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs1.open sql1,conn,1,3
		next
        response.write "<li>删除成功！<br> " 
		response.write "<li><font color=""#ff0000""><b><a href='javascript:history.back()'>返回</a></b></font><br> "
        response.end
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 [InviteRecord] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs1.open sql1,conn,1,3
		set rs=server.createobject("adodb.recordset")
		sql="select * from [RecycleBin] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		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")=trim(str2(i))
		rs("comid")=username
		rs("data")=now()
		rs.update
		rs.close
		set rs=nothing
	end if
		next
response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功，记录已经写入数据库！');" & "history.back()" & "</script>"
        response.end
case 6
       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 [RecycleBin] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs1.open sql1,conn,1,3
		next
        response.write "<li>删除成功！<br> " 
		response.write "<li><font color=""#ff0000""><b><a href='javascript:history.back()'>返回</a></b></font><br> "
        response.end
case 7
       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 [applyresume] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs1.open sql1,conn,1,3
		next
response.write "<script language=JavaScript>" & chr(13) & "alert('删除成功，记录已经写入数据库！');" & "history.back()" & "</script>"
        response.end
case 8
       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 [InviteRecord] where jobid='"&trim(str2(i))&"' and comid='"&username&"'"
		rs1.open sql1,conn,1,3
		next
response.write "<script language=JavaScript>" & chr(13) & "alert('删除成功，记录已经写入数据库！');" & "history.back()" & "</script>"
        response.end
end select
%>