deldlsjnone.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,sql14,username,photo,obj,data,k,dlcs

set rs=server.createobject("adodb.recordset")
sql="select username,jobid,photo from [person] where dlcs=0 or len(name)<1"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<font size=2>没有符合条件的记录！<a href=user.asp>返回</a></font><br>"
response.end
end if
username=rs("username")
k=0
do while not rs.eof
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

set rs1=server.createobject("adodb.recordset")
sql1="delete from [person] where jobid='"&rs("jobid")&"'"
rs1.open sql1,conn,1,3
sql2="delete from [InviteMe] where jobid='"&rs("jobid")&"'"
rs1.open sql2,conn,1,3
sql3="delete from [ApplyHistory] where jobid='"&rs("jobid")&"'"
rs1.open sql3,conn,1,3
sql4="delete from [MyFavouriate] where jobid='"&rs("jobid")&"'"
rs1.open sql4,conn,1,3
sql5="delete from [searcher] where jobid='"&rs("jobid")&"'"
rs1.open sql5,conn,1,3
sql6="delete from [ApplyResume] where jobid='"&rs("jobid")&"'"
rs1.open sql6,conn,1,3
sql7="delete from [CompanyDB] where jobid='"&rs("jobid")&"'"
rs1.open sql7,conn,1,3
sql8="delete from [InviteRecord] where jobid='"&rs("jobid")&"'"
rs1.open sql8,conn,1,3
sql9="delete from [RecycleBin] where jobid='"&rs("jobid")&"'"
rs1.open sql9,conn,1,3
k=k+1
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write ""&k&"条记录删除成功<a href=user.asp>返回</a>"
%>