📄 hfa.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 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">&nbsp;</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&"页。　　"
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">&nbsp;</p>
</body>
</html>
⌨️ 快捷键说明

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