deldlcs.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
if request("dlcs")="" then
response.write "指定登陆次数为空！"
response.end
end if
if not isnumeric(request("dlcs")) then
response.write "<br>"+"<li>指定登陆次数只能是数字."
response.end
end if
dlcs=trim(request("dlcs"))
set rs=server.createobject("adodb.recordset")
sql="select username,jobid,photo,dlcs from [person] where dlcs<="&dlcs&""
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
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
On Error Resume Next
rs.movenext
k=k+1
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write ""&k&"条记录删除成功<a href=user.asp>返回</a>"
%>