tijiao_save.asp

实验室资源管理系统 实验室人事资料管理、实验室设备管理、实验课程管理及实验室软件资料管理及相关分析统计功能

<!--#include file="include/upload.inc"-->
<%
dim upload,f_folder,file,formPath,iCount,filename,fileExt,filesizemin,filesizemax

filesizemin=100
filesizemax=200*1024
set upload=new upload_5xSoft '建立上传对象
f_folder=upload.form("images")

'********************************列出所有上传文件***************************************************
For each formName in upload.objFile
set file=upload.file(form)
If file.filesize>0 then

    '********************************检测文件大小***************************************************
    If file.filesize<filesizemin Then
        response.write "你上传的文件太小了　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    ElseIf file.filesize>filesizemax then
        response.write "文件大小超过了 "&filesizemax&"字节 限制　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    End If

    '********************************检测文件类型****************************************************
    fileExt=ucase(right(file.filename,4))
    uploadsuc=false
    Forum_upload="RAR|ZIP|SWF|JPG|PNG|GIF|DOC|TXT|CHM|PDF|ACE|MP3|WMA|WMV|MIDI|AVI|RM|RA|RMVB|MOV|XLS"
    Forumupload=split(Forum_upload,"|")
    for i=0 to ubound(Forumupload)
        if fileEXT="."&trim(Forumupload(i)) then
            uploadsuc=true
            exit for
        else
            uploadsuc=false
        end if
    next
    if uploadsuc=false then
        response.write "文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
        response.end
    end if

    '********************************建立文件上传的目录文件夹****************************************
    Set upf=Server.CreateObject("Scripting.FileSystemObject")
    If Err<>0 Then
        Err.Clear
        response.write("您的服务器不支持FSO")
        response.end
    End If
    f_type= replace(fileExt,".","")
    f_name= year(now)&"-"&month(now)
    If upf.FolderExists(Server.MapPath(f_folder&"/"&f_type&"/"&f_name))=False Then
        If upf.FolderExists(Server.MapPath(f_folder&"/"&f_type))=False Then
            If upf.FolderExists(Server.MapPath(f_folder))=False Then
                upf.CreateFolder Server.MapPath(f_folder)
                upf.CreateFolder Server.MapPath(f_folder&"/"&f_type)
                upf.CreateFolder Server.MapPath(f_folder&"/"&f_type&"/"&f_name)
            Else
                upf.CreateFolder Server.MapPath(f_folder&"/"&f_type)
                upf.CreateFolder Server.MapPath(f_folder&"/"&f_type&"/"&f_name)
            End If
        Else
            upf.CreateFolder Server.MapPath(f_folder&"/"&f_type&"/"&f_name)
        End If
    End If
    f_ftn=f_folder&"/"&f_type&"/"&f_name
    Set upf=Nothing

    '********************************保存上传文件至文件夹*****************************************
    randomize
    ranNum=int(90000*rnd)+10000
    filename=f_ftn&"/"&day(now)&"-"&ranNum&"-"&file.filename
    if file.filesize>filesizemin and file.filesize<filesizemax then
    file.SaveAs Server.mappath(filename)  '保存文件
        if f_type="JPG" or f_type="GIF" or f_type="PNG" then
            response.write "<script>parent.cn_bruce.cn_content.value+='[img]"&filename&"[/img]'</script>"
        ElseIf f_type="ZIP" or f_type="RAR" or f_type="DOC" or f_type="TXT" then
            response.write "<script>parent.cn_bruce.cn_content.value+='[url]"&filename&"[/url]'</script>"
        'ElseIf
        else
            response.write "<script>parent.cn_bruce.cn_content.value+=' "&filename&" '</script>"
        end if
        iCount=iCount+1
    end if
set file=nothing
end if
next
set upload=nothing '删除此对象

response.write (" 文件上传成功! <a href=# onclick=history.go(-1)>继续上传</a>")
%>