📄 upd.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;
}
.B A:link {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.STYLE1 {
	font-family: "黑体";
	font-size: 16px;
}
body {
	background-color: #DEE7FF;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE2 {color: #FFFFFF}
.STYLE3 {font-family: "黑体"; font-size: 16px; color: #FFFFFF; }
-->
</style><head>
<title>文件管理</title></head>

<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
  </tr>
  <tr>
    <td height="28" align="center" valign="middle" background="../Image/bg01a.jpg" class="B"><a href="../Y/index3.asp">实践考评</a> <a href="../Y/index.asp">毕业审核</a> <a href="../Y/index2.asp">离校手续</a></td>
  </tr>
  <tr>
    <td height="600" align="center" valign="top" bgcolor="#3399fd">
    <%
  '当点删除文件后，删除指定文件并返回<br>
  ID=request.QueryString("ID")
  Nam=request.QueryString("Nam")
  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">&nbsp;</p>
  <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  
  <tr>
    <td height="40" colspan="3" align="center" background="."><span class="STYLE3"><%=Nam%>毕业论文、实习报告列表</span></td>
  </tr>
  <tr>
    <td height="28" colspan="3" align="right" background="../HR/Image/bg01.jpg"><a href="#1" onClick="history.go(-1)">返回</a>　　</td>
    </tr>
  <tr>
    <td width="45" height="30" align="center" bgcolor="#FFFFFF">序号</td>
    <td width="472" align="center" bgcolor="#FFFFFF">第<%=page%>页　文件列表</td>
    <td width="61" 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
  FileNameOne=Mid(FileName,1,1)
  Lo=""
  los=""
  for pi=1 to len(FileName)
  loo=Mid(FileName,pi,1)
  if loo="[" then
  los=""
  else
  if loo="]" then
  Lo=los
  los=""
  end if
  los=los & loo
  end if
  next
  if Lo<>"" then
  Lo=Lo * 1
  end if
  ID=ID * 1
 
  if FileNameOne<>"U" and Lo=ID then
  FileName=sysFile.Name
  i=i+1
  if i>=pagelist-30 and i<=pagelist then
  j=j+1
  FileLong="<a href="&FileName&" target='_blank'>"
  Response.Write "<tr bgcolor='#FFFFFF'><td align='center' height='30'>" 
  Response.Write j
  Response.Write "</td><td align='left'>　　　"
  Response.Write  FileLong
  Response.Write   FileName &"</a>"  
  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" bgcolor="#FFFFFF">
<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&"&ID="&ID&"&Nam="&Nam&">第"&i&"页</a>　　"
response.write L
if i\10=i/10 then 
response.write "<br>"
end if

next
%>　
  　<span class="STYLE2">.</span> </td>
</tr>
<tr align="center">
  <td height="28" colspan="3" align="right" background="../HR/Image/bg01.jpg">　</td>
</tr>
  </table>
  </td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" bgcolor="#3399FD">&nbsp;</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
</table>

</body></html>
⌨️ 快捷键说明

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