📄 upfile.asp

📁 BS在线文件管理系统的源码和说明
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="function.asp"-->
<!--#include file="driver.asp"-->
<%
'--------------------------------------------
    if session("adminlogin") = "" then
	response.redirect("login.asp")
    end if
'--------------------------------------------
%>
<!--#include FILE="uploadinc.asp"-->
<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 = upload.form("filepath")
'------------------检查权限是否正确--------------------------------
 if not session("admin") then
    '-------此处检查权限
    myPath = Split(session("dir"), "|")
    For each subDir in myPath
	If InStr(1, lcase(questDir), lcase(subDir), vbTextCompare) = 1 then
	    flag = true
	end if
    Next
    If flag = false then
	response.write("<script language=javascript>")
	response.write("alert(""你没有权限访问该目录！"");")
'	response.write("history.go(-1);")
	response.write("</script>")
	response.end
    end if
 end if
'----------------检测是否是有效路径
 if not CheckCorrectPath(questDir) then
	response.write("<script language=javascript>")
	response.write("alert(""请求为非有效目录或包含非法字符！"");")
	response.write("history.go(-1);")
	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.objForm ''列出所有form数据
' response.write formName&"="&upload.form(formName)&"<br>"
'next

'response.write "<br>"
for each formName in upload.objFile ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 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
 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 + -