delperson.asp

人才招聘系统,用asp做的

	<!--#include file=../conn.asp-->
	<!--#include file=usercookies.asp-->
	<!--#include file=onlinerz.asp-->
<%
dim rs1,rs,sql,sql1,sql2,sql3,sql4,sql5,sql6,sql7,sql8,sql9,username,photo,obj,comid,sql10,sql11
username=trim(request("username"))
set rs=server.createobject("adodb.recordset")
sql="select username,comid from [company] where UserName='"&username&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<font size=2>该企业用户不存在!<a href=company.asp>返回</a></font><br>"
response.end
else
comid=rs("comid")
end if
rs.close
set rs=nothing

set rs1=server.createobject("adodb.recordset")
sql1="delete from [company] where comid='"&comid&"'"
rs1.open sql1,conn,1,3
response.write "<font size=2>基本资料删除成功!</font><br>"

sql2="delete from [bumen] where comid='"&comid&"'"
rs1.open sql2,conn,1,3
response.write "<font size=2>部门资料删除成功!</font><br>"

sql3="delete from [jobs] where comid='"&comid&"'"
rs1.open sql3,conn,1,3
response.write "<font size=2>职位资料删除成功!</font><br>"

sql4="delete from [Applyresume] where comid='"&comid&"'"
rs1.open sql4,conn,1,3
response.write "<font size=2>收到的应聘简历删除成功!</font><br>"

sql5="delete from [InviteRecord] where comid='"&comid&"'"
rs1.open sql5,conn,1,3
response.write "<font size=2>邀请面试记录删除成功!</font><br>"

sql6="delete from [CompanyDB] where comid='"&comid&"'"
rs1.open sql6,conn,1,3
response.write "<font size=2>公司人才库删除成功!</font><br>"

sql7="delete from [RecycleBin] where comid='"&comid&"'"
rs1.open sql7,conn,1,3
response.write "<font size=2>回收站删除成功!</font><br>"

sql8="delete from [searcher1] where comid='"&comid&"'"
rs1.open sql8,conn,1,3
response.write "<font size=2>搜索器删除成功!</font><br>"
sql9="delete from [InviteMe] where comid='"&comid&"'"
rs1.open sql9,conn,1,3
sql10="delete from [ApplyHistory] where comid='"&comid&"'"
rs1.open sql10,conn,1,3
sql11="delete from [MyFavouriate] where comid='"&comid&"'"
rs1.open sql11,conn,1,3

response.write "<a href=company.asp>返回</a>"
'rs.close
'set rs=nothing
conn.close
set conn=nothing
%>