📄 upfile.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%OPTION EXPLICIT%>
<!--#include FILE="upfile_class.asp"-->
<%
dim FSPath,ServerPath,upfile,SaveFilename,FormName,oFile,FileSize
'取得当前文件在服务器路径
FSPath=GetFilePath(Server.mappath("upfile.asp"),"\")
'取得在网站上的位置
ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")
'建立上传对象
set upfile=new upfile_class
'设置上传类型的黑名单
upfile.AllowExt="jpg;gif;jpeg;png;bmp;"
'取得上传数据,限制最大上传10M 计算方法为 10240000/1000000=10.24M
upfile.GetData (10240000)
FormName="img"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>文件上传</title>
</head>
<body>
<%
if upfile.isErr then '如果出错
select case upfile.isErr
case 1
Response.Write "你没有上传数据呀???是不是搞错了??"
case 2
Response.Write "你上传的文件超出我们的限制,最大10M"
end select
else
set oFile=upfile.file(FormName)
FileSize=oFile.filesize
set oFile=nothing
'执行自动保存文件代码，SaveFilename为保存的文件名
SaveFilename=upfile.AutoSave(FormName,FSPath)
'上传过程发生错误，有可能是格式错误
if upfile.iserr then
Response.Write upfile.errmessage
Response.End
else
Response.Write "上传成功"
end if
'销毁对像
set upfile=nothing
'=============如果要把上传的文件信息保存到数据库在这里插入代码=====================
end if
%>
<A HREF="<%=serverpath&SaveFileName%>"><%=SaveFileName%></A>（大小：<%= FileSize %>字节）
<br />
<br />
<a href="upfile.html">返回</a>
</body>
</html>
<%
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -