📄 clsupload.asp
字号:
<!--#include file="../../Conn.asp"-->
<!--#include file="../../Inc/Admin_checkuser.asp"-->
<!-- #include file="ClsFileUp.asp" -->
<%
Call Admin_Check("上传图片","您是权限管理员且不具备上传权限，请联系管理员解决，不具备此功能")
Dim t,uploadtype,uploadsize,savepath,Upload,sPos,Items,File,F_Ext,FileExt,uploadsuc,Forumupload,i,MaxNum,MinNum,FileName
t=request("t")
%>
<html>
<head>
<title>上传文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
Body
{
background-position: center center;
font-size: 12px;
line-height: 20px;
color: #333333;
}
a{font-style:normal;text-decoration:none;font-size:9pt;color:#000000;}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" bgColor="#F1F3F5">
<%
Server.ScriptTimeout = 9999
uploadtype=FY_Config(17)
uploadsize=clng(FY_Config(18))
savepath="../../"&FY_Config(9)&"/"
set Upload = new DoteyUpload
Upload.MaxTotalBytes = uploadsize*1000
Upload.ProgressID = Request.QueryString("ProgressID")
Upload.Upload() '上传演示，不保存到硬盘
If Request.TotalBytes >Upload.MaxTotalBytes Then
Response.Write "不要上传超过 "&uploadsize&" KB的文件 >> <a href=Upload.asp?t="&t&">重新上传</a>"
Response.End
End If
if Upload.ErrMsg <> "" then
Response.Write(Upload.ErrMsg)
Response.End()
end if
if Upload.Files.Count > 0 then
Items = Upload.Files.Items
end if
for each File in Upload.Files.Items
F_Ext = Mid(File.FileName, InStrRev(File.FileName, ".") + 1)
FileExt="."&UCase(F_Ext) '转为大写
uploadsuc=false
Forumupload=split(UCase(uploadtype),"|")
for i=0 to ubound(Forumupload)
if fileEXT="."&trim(Forumupload(i)) then
uploadsuc=true
exit for
else
uploadsuc=false
end if
next
'添加禁止上传脚本类型
if fileExt=".ASP" or fileExt=".PHP" or fileExt=".ASPX" or fileExt=".JSP" or fileExt=".CER" or fileExt=".HTR" or fileExt=".CDX" or fileExt=".SHTML" or fileExt=".SHTM" or fileExt=".HTML" or fileExt=".HTM" or fileExt=".ASA" then uploadsuc=false
FileName=ctime&RndNumber&"-0"&LCase(FileExt)
if uploadsuc=false then
response.write "文件格式不正确 >> <a href=Upload.asp?t="&t&">重新上传</a>"
response.end
else
File.SaveAs(savepath & FileName) ''如果要保存，则去掉前面的注释
end if
Response.Write "<script>parent.myform.pic.value='"&FileName&"'</script>"
Response.Write " 文件上传成功：<a href='../../"&FY_Config(9)&"/"&FileName&"' target=_blank>"&FileName&"</a> >> <a href=Upload.asp?t="&t&">继续上传</a>"
'Response.Write("您已上传 " & Upload.Files.Count & " 个文件到: " & path & "<hr>")
'Response.Write("文件名: " & File.FileName & "<br>")
'Response.Write("文件大小: " & File.FileSize/1024 & " KB<br>")
'Response.Write("文件类型: " & File.FileType & "<br>")
'Response.Write("客户端路径: " & File.FilePath & "<br>")
'Response.Write("文件格式: " & fileExt & "<br>")
'Response.Write("<hr>")
next
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -