<%
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 ""
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 ""
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 ""
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 ""
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 ""
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 "