<% select case request("action") case "dj": call dj() case "downpic": call downpic() case "down": call down() case "spic": call spic() case "pic": call pic() case "spic2" call spic2() case "js": call js() case "web": call web() case "link": call link() end select '============================================================下载图片 sub downpic() if Request.QueryString("submit")="downpic" then uploadpath="uploadFile/softdown/downpic/" uploadsize="1024" uploadtype="jpg/gif/png/bmp" Set Uprequest=new UpLoadClass Uprequest.SavePath=uploadpath Uprequest.MaxSize=uploadsize*1024 Uprequest.FileType=uploadtype AutoSave=true Uprequest.open if Uprequest.form("file_Err")<>0 then select case Uprequest.form("file_Err") case 1:str="
上传不成功!文件超过"&uploadsize&"k [重新上传]
" case 2:str="
上传不成功!文件格式不对 [重新上传]
" case 3:str="
上传不成功!文件太大且格式不对 [重新上传]
" end select response.write str else response.write "" response.write "
文件上传成功 [重新上传]
" end if Set Uprequest=nothing end if response.write "
" response.write " " response.write "" response.write "
" end sub '============================================================下载文件 sub down() if Request.QueryString("submit")="down" then uploadpath="uploadFile/softdown/" uploadsize="10240" uploadtype="zip/rar/cab/doc" Set Uprequest=new UpLoadClass Uprequest.SavePath=uploadpath Uprequest.MaxSize=uploadsize*1024 Uprequest.FileType=uploadtype AutoSave=true Uprequest.open if Uprequest.form("file_Err")<>0 then select case Uprequest.form("file_Err") case 1:str="
上传不成功!文件超过"&uploadsize&"k [重新上传]
" case 2:str="
上传不成功!文件格式不对 [重新上传]
" case 3:str="
上传不成功!文件太大且格式不对 [重新上传]
" end select response.write str else response.write "" response.write "" size=Uprequest.Form("file_size") showsize=size & " Byte" if size>1024 then size=(size\1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if response.write "" response.write "
文件上传成功 [重新上传]
" end if Set Uprequest=nothing end if response.write "
" response.write " " response.write "" response.write "
" end sub '============================================================图片缩图 sub spic() if Request.QueryString("submit")="spic" then uploadpath="UploadFile/" uploadsize="512" uploadtype="jpg/gif/png/bmp" Set Uprequest=new UpLoadClass Uprequest.SavePath=uploadpath Uprequest.MaxSize=uploadsize*1024 Uprequest.FileType=uploadtype AutoSave=true Uprequest.open if Uprequest.form("file_Err")<>0 then select case Uprequest.form("file_Err") case 1:str="
上传不成功!文件超过"&uploadsize&"k [重新上传]
" case 2:str="
上传不成功!文件格式不对 [重新上传]
" case 3:str="
上传不成功!文件太大且格式不对 [重新上传]
" end select response.write str else response.write "" response.write "
文件上传成功 [重新上传]
" end if Set Uprequest=nothing end if response.write "
" response.write " " response.write "" response.write "
" end sub sub spic2() if Request.QueryString("submit")="spic2" then uploadpath="UploadFile/" uploadsize="512" uploadtype="jpg/gif/png/bmp" Set Uprequest=new UpLoadClass Uprequest.SavePath=uploadpath Uprequest.MaxSize=uploadsize*1024 Uprequest.FileType=uploadtype AutoSave=true Uprequest.open if Uprequest.form("file_Err")<>0 then select case Uprequest.form("file_Err") case 1:str="
上传不成功!文件超过"&uploadsize&"k [重新上传]
" case 2:str="
上传不成功!文件格式不对 [重新上传]
" case 3:str="
上传不成功!文件太大且格式不对 [重新上传]
" end select response.write str else response.write "" response.write "
文件上传成功 [重新上传]
" end if Set Uprequest=nothing end if response.write "
" response.write " " response.write "" response.write "
" end sub '============================================================图片原图 sub pic() if Request.QueryString("submit")="pic" then uploadpath="UploadFile/" uploadsize="2048" uploadtype="jpg/gif/png/bmp" Set Uprequest=new UpLoadClass Uprequest.SavePath=uploadpath Uprequest.MaxSize=uploadsize*1024 Uprequest.FileType=uploadtype AutoSave=true Uprequest.open if Uprequest.form("file_Err")<>0 then select case Uprequest.form("file_Err") case 1:str="
上传不成功!文件超过"&uploadsize&"k [重新上传]
" case 2:str="
上传不成功!文件格式不对 [重新上传]
" case 3:str="
上传不成功!文件太大且格式不对 [重新上传]
" end select response.write str else response.write "" response.write "" size=Uprequest.Form("file_size") showsize=size & " Byte" if size>1024 then size=(size\1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if response.write "" response.write "
文件上传成功 [重新上传]
" end if Set Uprequest=nothing end if response.write "
" response.write " " response.write "" response.write "
" end sub '============================================================友情连接 sub link() if Request.QueryString("submit")="link" then uploadpath="up/logo/link/" uploadsize="50" uploadtype="jpg/gif/png" Set Uprequest=new UpLoadClass Uprequest.SavePath=uploadpath Uprequest.MaxSize=uploadsize*1024 Uprequest.FileType=uploadtype AutoSave=true Uprequest.open if Uprequest.form("file_Err")<>0 then select case Uprequest.form("file_Err") case 1:str="
上传不成功!文件超过"&uploadsize&"k [重新上传]
" case 2:str="
上传不成功!文件格式不对 [重新上传]
" case 3:str="
上传不成功!文件太大且格式不对 [重新上传]
" end select response.write str else response.write "" response.write "
文件上传成功 [重新上传]
" end if Set Uprequest=nothing end if response.write "