<!--#include file="UpLoadClass.asp"-->

<%

    dim request2

    set request2=New UpLoadClass

    '设置文件允许的附件类型为gif/jpg

    request2.FileType=""

    '设置服务器文件保存路径

    request2.SavePath="ppic/"

    '单文件最大1mb

    request2.MaxSize =1024*200

    '自动生成无重复文件名保存目标文件

    request2.AutoSave = 0

    request2.open

    file1=""

            select case request2.form("ppic_Err")

            case 1:

                response.write "<script language='javascript'>"

                response.write "alert('文件太大，上传失败!');"

                response.write "window.history.back();"

                response.write "</script>"

                response.end

            case 2:

                response.write "<script language='javascript'>"

                response.write "alert('文件格式错误，上传失败!');"

                response.write "window.history.back();"

                response.write "</script>"

                response.end

            case 3:

                response.write "<script language='javascript'>"

                response.write "alert('文件大小超过限定并且格式错误，上传失败!');"

                response.write "window.history.back();"

                response.write "</script>"