📄 upfile.asp

📁 BS在线文件管理系统,采用asp编程,实现了对文件的简单管理,并且有比较方便的各种功能的实现.-BS online document management system, using asp prog
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/function.asp"-->
<!--#include file="inc/driver.asp"-->
<!--#include FILE="inc/uploadinc.asp"-->
<%
'--------------------------------------------
    if session("adminlogin") = "" then
	response.redirect("login.asp")
    end if
'--------------------------------------------
%>
<html>
<head>
<title>文件上传--<%=name%>--[by BrightStar]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Meta Name="description" Content="BS在线文件管理系统">
<Meta Name="Keywords" Content="BS在线文件管理系统">
<meta http-equiv="pragma" content="no-cache">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="758" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td style="border: 1 solid #000000" width="57" align="center"><a href="logout.asp?logout=1">退出管理</a></td>
    <td width="28" align="center">&nbsp;</td>
    <td width="57" align="center" style="border: 1 solid #000000"><a href="index.asp">文件管理</a></td>
    <td align="center"><b><font size="4">[<%=name%>]</font></b><font color="#ccaacc">-version:<%=version%></font>&nbsp;&nbsp;&nbsp;&nbsp;</td>
  </tr>
</table>
<br>
<table align="center" border="0" style="border: 1 solid #000000" cellspacing="0" cellpadding="0" width="758" height="23">
<tr>
    <td style="border-bottom: 1 solid #000000" bgcolor="#cccccc" align=center valign=middle height=22> 
      <b>文件上传信息：</b> </td>
  </tr>
<tr><td align=left>
<br>
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象

'----------------过滤字符
 questDir = GetPathWith(upload.form("filepath"))
'------------------检查权限是否正确--------------------------------
 if not session("admin") then
    '-------此处检查权限
    myPath = Split(session("dir"), "|")
    For each subDir in myPath
	If InStr(questDir, lcase(subDir)) > 0 then
	    flag = true
	end if
    Next
    If flag = false then
	response.write("<script language=javascript>")
	response.write("alert(""你没有权限访问该目录！"");")
	response.write("self.close();")
	response.write("</script>")
	response.end
    end if
 end if
'----------------检测是否是有效路径
 if not CheckCorrectPath(questDir) then
	response.write("<script language=javascript>")
	response.write("alert(""请求为非有效目录或包含非法字符！"");")
	response.write("self.close();")
	response.write("</script>")
	response.end
 end if
'----------------------------------------------------------------
 formPath=upload.form("filepath")
 if right(formPath,1)<>"\" then formPath=formPath&"\" 

iCount=0

for each formName in upload.objFile ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
exten = GetExten(formPath&file.FileName)	'------得到欲上传文件的扩展名
If CheckExten(exten) Then			'------检验是否是限制的文件类型
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs formPath&file.FileName   ''保存文件
  response.write file.FilePath&file.FileName&" ("&file.FileSize&") <font color=blue>to</font> "&formPath&File.FileName&" <font color=blue>success</font>!<br>"
  iCount=iCount+1
 end if
Else
  response.write file.FilePath&file.FileName&redfont&"to</font>"&formPath&File.FileName&redfont&"failed</font>!<br>"
End If
 set file=nothing
next

set upload=nothing  ''删除此对象
%><br></td></tr>
<tr>
    <td style="border-top: 1 solid #000000"  bgcolor="#eeeeee" align=center valign=middle height=22><b><font color=blue> 
      <% Htmend iCount%></font>个文件上传成功！
<%
sub HtmEnd(Msg)
 set upload=nothing
 response.write Msg
end sub
%>
      [<a href="javascript:history.back();">返回</a>] </b></td>
  </tr>
</table>
<br>
<center><%=copyright%></center>
</body>
</html>
⌨️ 快捷键说明

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