📄 upd.asp
字号:
<meta http-equiv="pragma" content="no-cache">
<html><style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE1 {
font-family: "黑体";
font-size: 16px;
}
-->
</style><head>
<title>文件管理</title></head><body>
<p>
<%
'当点击删除文件后，删除指定文件并返回
struploadfiles=trim(request.querystring("FileNameL"))
if struploadfiles<>"" then
response.write struploadfiles
call delfiles(struploadfiles & "")
end if
i=0
j=0
page=request.querystring("page")
if page="" then page=1 end if
pagelist=page*30
%>
</p>
<p align="center" class="STYLE1">上 传 文 件 管 理</p>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="45" height="30" align="center">序号</td>
<td width="472" align="center">第<%=page%>页 文件列表</td>
<td width="61" align="center">删除</td>
</tr>
<%
'本地文件名列表
Set sysFSO = Server.CreateObject("Scripting.FileSystemObject")
Set sysFolder = sysFSO.GetFolder(Server.MapPath("./"))
Set sysFiles = sysFolder.Files
If sysFiles.Count <> 0 Then
For Each sysFile In sysFiles
FileName=sysFile.Name
FileNameOne=Mid(FileName,1,1)
if FileNameOne<>"U" then
FileName=sysFile.Name
FileTime=sysFile.DateCreated
i=i+1
if i>=pagelist-30 and i<=pagelist then
j=j+1
FileLong="<a href="&FileName&">"
Response.Write "<tr><td align='center' height='30'>"
Response.Write j
Response.Write "</td><td align='left'> "
Response.Write FileLong
Response.Write FileName &"</a>"
Response.Write " 更新时间"&FileTime
Response.Write "</td><td align='center'>"
FileLong=" <a href=?FileNameL="&sysFile.Name&">"
Response.Write FileLong
Response.Write "［删除］</a>"
Response.Write "</td></tr>"
end if
end if
Next
End If
sub delfiles(struploadfiles)
dim fso
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
url="UPD.asp?page="&page
Response.Redirect (url)
end sub
%>
<tr align="center">
<td height="30" colspan="3" align="right">
<%
response.write "共有"&i&"个上传文件，"
j=i\30+1
response.write "分"&j&"页。 "
for i=1 to j
L="<a href=?page="&i&">第"&i&"页</a> "
response.write L
if i\10=i/10 then
response.write "<br>"
end if
next
%>
</td></tr></table>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -