?? hfa.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;
}
.STYLE2 {color: #FF0000}
body {
background-color: #DEE7FF;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style><head>
<title>文件管理</title></head><body>
<%
ID=Request.QueryString("ID")
'當點刪除文件后，刪除指定文件并返回
struploadfiles=trim(request.querystring("FileNameL"))
if struploadfiles<>"" then
response.write struploadfiles
call delfiles(struploadfiles & "",ID)
end if
i=0
j=0
page=request.querystring("page")
if page="" then page=1 end if
pagelist=page*30
%>
<p align="center" class="STYLE1">相關文件資料</p>
<table width="601" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" colspan="4" align="center" background="../../Image/bg01.jpg" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td width="46" height="30" align="center" bgcolor="#FFFFFF">序號</td>
<td width="409" align="center" bgcolor="#FFFFFF">第<%=page%>頁 文件列表</td>
<td width="68" align="center" bgcolor="#FFFFFF">點擊打開</td>
<td width="68" align="center" bgcolor="#FFFFFF">刪除</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
FileTime=sysFile.DateCreated
ID=trim(ID)
BQ="["&ID&"]"
BP=len(BQ)
FileNameOne=Mid(FileName,1,BP)
if FileNameOne =BQ then
FileName=sysFile.Name
i=i+1
if i>=pagelist-30 and i<=pagelist then
j=j+1
FileLong="<a href="&FileName&">"
Response.Write "<tr bgcolor='#FFFFFF'><td align='center' height='30'>"
Response.Write j
Response.Write "</td><td align='left'> "
Response.Write FileName & " "
Response.Write FileTime
Response.Write "</td>"
Response.Write "<td align='center'>"&FileLong&"打開</a></td>"
Response.Write "<td align='center'>"
FileLongg=" <a href=?FileNameL="&sysFile.Name&"&ID="&ID&">"
Response.Write FileLongg
Response.Write "［刪除］</a>"
Response.Write "</td></tr>"
end if
end if
Next
End If
sub delfiles(struploadfiles,ID)
dim fso
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
url="HFa.asp?page=1&ID="&ID
Response.Redirect (url)
end sub
%>
<tr align="center">
<td height="28" colspan="4" align="center" valign="bottom" background="../../Image/bg01.jpg" bgcolor="#FFFFFF">
<%
response.write "共有"&i&"個備份文件，"
j=i\30+1
response.write "分"&j&"頁?！ ?quot;
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>
<p align="center" class="STYLE2"> </p>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -