deluser.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,sql10,sql11,sql12,sql13,username,photo,obj,jobid
username=trim(request("username"))
if username="" then
response.write "<font size=2>该用户不存在!</font><br>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select username,photo,jobid from [person] where jobid='"&username&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<font size=2>该用户不存在!</font><br>"
response.end
else
jobid=rs("jobid")
end if
if rs("photo")<>"" then
Set obj= Server.CreateObject("Scripting.FileSystemObject")
if obj.fileExists(Server.MapPath("photo\"&rs("photo"))) then
obj.DeleteFile(Server.MapPath("photo\"&rs("photo")))
set obj=nothing
end if
end if
rs.close
set rs=nothing
set rs1=server.createobject("adodb.recordset")
sql1="delete from [person] where jobid='"&UserName&"'"
rs1.open sql1,conn,1,3
sql2="delete from [InviteMe] where jobid='"&jobid&"'"
rs1.open sql2,conn,1,3
sql3="delete from [ApplyHistory] where jobid='"&jobid&"'"
rs1.open sql3,conn,1,3
sql4="delete from [MyFavouriate] where jobid='"&jobid&"'"
rs1.open sql4,conn,1,3
sql5="delete from [searcher] where jobid='"&jobid&"'"
rs1.open sql5,conn,1,3
sql6="delete from [ApplyResume] where jobid='"&jobid&"'"
rs1.open sql6,conn,1,3
sql7="delete from [CompanyDB] where jobid='"&jobid&"'"
rs1.open sql7,conn,1,3
sql8="delete from [InviteRecord] where jobid='"&jobid&"'"
rs1.open sql8,conn,1,3
sql9="delete from [RecycleBin] where jobid='"&jobid&"'"
rs1.open sql9,conn,1,3
response.write "<li>操作成功！<br><li><a href=""user.asp"">返回</a>"
conn.close
set conn=nothing
%>