📄 manage_pic.asp

📁 后台管理系统
💻 ASP
字号:
<!--#include file="public.asp" -->
<%
//##################################################################################
function delFile(filePath){//'''''''''''''''''''''''''''''''''''''''''删除选中的文件
		var FSO=Server.CreateObject("scripting.filesystemObject")
			if(FSO.FileExists(Server.MapPath(filePath)))
					FSO.DeleteFile(Server.MapPath(filePath));
		FSO=null;
		delete FSO;
		Response.Write("<script language=javascript>alert('Delete OK!');document.location=document.referrer;</script>");
		Response.End();
}
//##################################################################################
if(Request.QueryString("action")=="del")
		delFile(zltWebPath+Request("file"));
		
		
%>
<html>
<style type="text/css">
<!--
.STYLE1 {
	color: #003366;
	font-weight: bold;
}
-->
</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>爱斯特淋浴设备有限公司管理后台</title>
<link href="../file/css.css" rel="stylesheet" type="text/css">
</head>

<body>
<table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
  <tr bgcolor="#f0f0f0">
    <th height="25">管理产品图片
    <font color="red">(删除多余的产品图片，有利于节省WEB空间！请谨慎操作！)</font></th>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="35" class="TableRow1"><br>
        <table cellpadding="2" cellspacing="1" border="0" width="100%" align=center>
          <tr>
            <%

var FSO=Server.CreateObject("scripting.filesystemobject");
var absFolder=FSO.getFolder(Server.MapPath(zltWebPath));//''''''''''''''创建文件夹对象
var absFile=new Enumerator(absFolder.Files);//''''''''''''''''''''''''''获得当前文件列表
for(var j=0;!absFile.atEnd();absFile.moveNext()){
		n=absFile.item().Name;%>
            <td width="" align=center class="TableRow2" style="line-height:22px"><table width="130" height="100" border="0" cellpadding="0" cellspacing="1" bgcolor="#D4D0C8">
                <tr>
                  <td align="center" bgcolor="#FFFFFF"><a href="<%=zltWebPath+n%>" target="_blank"><img src="<%=zltWebPath+n%>" alt="点击查看原图" width=120 height="90" border="0"></a></td>
                </tr>
              </table>
            <a href="<%=zltWebPath+n%>" target="_blank"><%=n%></a> [<a href="?action=del&file=<%=n%>" onClick="return confirm('您确定要删除吗？此操作无法撤消!')">删除</a>] </td>
            <%j++;
	 if(j%3==0)Response.Write("</tr><tr>");
}
%>
          </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -