[转载]扩展 化境上传类 方便上传处理
文章转载：yezhan信息来源：蓝色理想（[url]www.blueidea.com[/url]）
使用化境上传可以方便的在没有fso的环境中传文件到服务器
但是实际中由于化境上传的处理很麻烦
所以给大家带了点麻烦
我找到这个东西
希望能对做网站上传文件的朋友点帮助
-------------------------------------------------------
经常要用到上传小文件,比较好用的就是化境上传类了
然而上传时要判断上传的文件类型,大小,上传目录,重复写很是麻烦
把它护展了一下
属性有
filepath:上传目录,默认为当前目录的upload,没有并会自动建立
filetype:类型用,号隔开
filelength:文件大小k
textname:上传框名
方法
saveas() 会返回一个文件名
form(something)取得FORM值
[code]<!--#include file="upload_5xsoft.inc"-->
<%
class upload
private file_path
private file_type
private text_name
private file_length
public property let filepath(str1)
file_path = str1
end property
public property let filetype(str2)
file_type = str2
end property
public property let textname(str3)
text_name = str3
end property
public property let filelength(str4)
file_length = str4
end property
private function erro(text)
response.write "<script language=javascript>"
response.write "alert('"&text&"');location='javascript:history.back(1)'"
response.write "</script>"
response.end
end function
private function savefolder(str)
ss=split(str,"/")
ss1=""
Set fso=Server.CreateObject("Scripting.FileSystemObject")
for i=0 to ubound(ss)
ss1=ss1&ss(i)&"/"
IF FSO.FolderExists(Server.MapPath(ss1))=False Then
fso.CreateFolder Server.MapPath(ss1)
End IF
next
end function
public function form(str)
set up=new upload_5xsoft
form=up.form(str)
set up=nothing
end function
public function saveas()
if file_path="" then file_path="upload"
set up=new upload_5xsoft
set file=up.file(text_name)
if text_name="" then erro("错误的输入值")
if file_length<>"" then
if file.fileSize>file_length*1024 then erro("上传的文件太大.")
end if
f_name = split(file.FileName,".")
f_type = f_name(ubound(f_name))
if file_type<>"" then
if InStr(file_type,f_type)<1 then erro("不允许的文件类型")
end if
savefolder(file_path)
ss=replace(now(),"-","")
ss=replace(ss," ","")
ss=replace(ss,":","")&"."&f_type
file.saveas Server.mappath(file_path&"/"&ss)
set up=nothing
saveas=ss
end function
end class
%>
[/code]
实例调用
set up=new upload
up.filepath="images"
up.filetype="jpg,gif,png,jpeg"
up.filelength=200
up.textname="sf_upfile"
path=up.saveas() [s:46] [s:46] [s:46]
页:
[1]