📄 uploadfile.asp

📁 政府网站集成OA办公考勤新闻发布网站信息管理会员管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="125a.Net">
<meta name="Author" content="125a">
<title>Upload -125a.net</title>
<style>
<!--
*         {font:12px;}
-->
</style>

</head>
<body leftmargin="1" topmargin="1">
<%
if WS_S.MemberPriv("WS_FrontSetUpload")<>1 then 
Response.Write "权限不够,请向管理员申请权限"
Response.end
end if
Dim fileaction,UploadFilePath,UploadLimitSize,NotAllowfileext,BrowerFilePath,folder,savepath,UploadFilePath1,UploadFilePath2,UploadFilePath3,UploadFilePath4,UploadFilePath5,islit,isdel,issize,isrename,savepath1,picwidth,pichight,formname1,formname2,inputname1,inputname2,inputname3,inputname4,filename_1,filename_2
fileaction=Request.QueryString("action")
select case fileaction 
case "article"   //上传文章图片
Server.ScriptTimeOut=120
UploadFilePath1 =  "\UploadFile\article\big"         //后台原图保存绝对路径 
UploadFilePath =  "../UploadFile/article/big/"     //后台读取原图路径，以生成略缩图 
UploadFilePath2 =  "../UploadFile/article/small"   //后台略缩图保存路径 
UploadFilePath3 =  "UploadFile/article/big/"     //前台原图显示路径
UploadFilePath4 =  "UploadFile/article/small/"     //前台略缩图显示路径
UploadFilePath5 =  "\UploadFile\article\small"         //后台略缩图删除绝对路径 
islit=0   //是否自动略缩图
isdel=0   //是否自动略缩图后删除原图
issize=0
isrename=1
formname1="document.all"
inputname1="d_fromurl"
inputname2="spic"
inputname3="url"
picwidth=110   //略缩图宽
pichight=90   //略缩图高
 savepath=server.MapPath("../")&UploadFilePath1     //文件上传路径
 savepath1=server.MapPath("../")&UploadFilePath5     //略缩图删除路径
BrowerFilePath =  "/"
UploadLimitSize = 1024*2   //2M  最大上传文件大小，单位为K
NotAllowfileext = "jpg|jpeg|gif"  //可以上传的文件类型

case "pic"    //上传图片展示
Server.ScriptTimeOut=240
UploadFilePath1 =  "\UploadFile\PicShow\big"         //后台原图保存绝对路径 
UploadFilePath =  "../UploadFile/PicShow/big/"     //后台读取原图路径，以生成略缩图 
UploadFilePath2 =  "../UploadFile/PicShow/small"   //后台略缩图保存路径 
UploadFilePath3 =  "UploadFile/PicShow/big/"     //前台原图显示路径
UploadFilePath4 =  "UploadFile/PicShow/small/"     //前台略缩图显示路径
UploadFilePath5 =  "\UploadFile\PicShow\small"         //后台略缩图删除绝对路径 
islit=1   //是否自动略缩图
isdel=0   //是否自动略缩图后删除原图
issize=1
isrename=1
formname1="form2"
inputname1="pic"
inputname2="spic"
inputname3="url"
picwidth=110   //略缩图宽
pichight=90   //略缩图高
 savepath=server.MapPath("../")&UploadFilePath1     //文件上传路径
 savepath1=server.MapPath("../")&UploadFilePath5     //略缩图删除路径
BrowerFilePath =  "/"
UploadLimitSize = 1024*10   //10M  最大上传文件大小，单位为K
NotAllowfileext = "jpg|jpeg|gif"  //可以上传的文件类型

case "news"   //上传新闻图片
Server.ScriptTimeOut=120
UploadFilePath1 =  "\UploadFile\news\big"         //后台原图保存绝对路径 
UploadFilePath =  "../UploadFile/news/big/"     //后台读取原图路径，以生成略缩图 
UploadFilePath2 =  "../UploadFile/news/small"   //后台略缩图保存路径 
UploadFilePath3 =  "UploadFile/news/big/"     //前台原图显示路径
UploadFilePath4 =  "UploadFile/news/small/"     //前台略缩图显示路径
UploadFilePath5 =  "\UploadFile\news\small"         //后台略缩图删除绝对路径 
islit=1   //是否自动略缩图
isdel=0   //是否自动略缩图后删除原图
issize=1
isrename=1
formname1="NewForm"
inputname1="pic"
inputname2="spic"
inputname3="url"
picwidth=236   //略缩图宽
pichight=236   //略缩图高
 savepath=server.MapPath("../")&UploadFilePath1     //文件上传路径
 savepath1=server.MapPath("../")&UploadFilePath5     //略缩图删除路径
BrowerFilePath =  "/"
UploadLimitSize = 1024*5   //5M  最大上传文件大小，单位为K
NotAllowfileext = "jpg|jpeg|gif"  //可以上传的文件类型

case "downpic"   //上传文件图片
Server.ScriptTimeOut=999999
UploadFilePath1 =  "\UploadFile\down\downpic"         //后台原图保存绝对路径 
UploadFilePath =  "../UploadFile/down/downpic/"     //后台读取原图路径，以生成略缩图 
UploadFilePath2 =  "../UploadFile/down/downpic"   //后台略缩图保存路径 
UploadFilePath3 =  "UploadFile/down/downpic/"     //前台原图显示路径
UploadFilePath4 =  "UploadFile/down/downpic/"     //前台略缩图显示路径
UploadFilePath5 =  "\UploadFile\down\downpic"         //后台略缩图删除绝对路径 
islit=1   //是否自动略缩图
isdel=1   //是否自动略缩图后删除原图
issize=0
isrename=1
formname1="form1"
inputname1="pic"
inputname2="showpic"
inputname3="size"
picwidth=150   //略缩图宽
pichight=120   //略缩图高
 savepath=server.MapPath("../")&UploadFilePath1     //文件上传路径
 savepath1=server.MapPath("../")&UploadFilePath5     //略缩图删除路径
BrowerFilePath =  "/"
UploadLimitSize = 1024*3   //3M  最大上传文件大小，单位为K
NotAllowfileext = "jpg|jpeg|gif"  //可以上传的文件类型

case "downfile"   //上传文件
Server.ScriptTimeOut=999999
UploadFilePath1 =  "\UploadFile\down\downfile"         //后台原图保存绝对路径 
UploadFilePath =  "../UploadFile/down/downfile/"     //后台读取原图路径，以生成略缩图 
UploadFilePath2 =  "../UploadFile/down/small"   //后台略缩图保存路径 
UploadFilePath3 =  "UploadFile/down/downfile/"     //前台原图显示路径
UploadFilePath4 =  "UploadFile/down/small/"     //前台略缩图显示路径
UploadFilePath5 =  "\UploadFile\down\small"         //后台略缩图删除绝对路径 
islit=0   //是否自动略缩图
isdel=0   //是否自动略缩图后删除原图
issize=1
isrename=0
formname1="form1"
inputname1="url1"
inputname2="spic"
inputname3="size"
picwidth=110   //略缩图宽
pichight=90   //略缩图高
 savepath=server.MapPath("../")&UploadFilePath1     //文件上传路径
 savepath1=server.MapPath("../")&UploadFilePath5     //略缩图删除路径
BrowerFilePath =  "/"
UploadLimitSize = 1024*1000   //1000M  最大上传文件大小，单位为K
NotAllowfileext = "rar|zip|avi|bmp|cab|cdr|chm|doc|dwg|eps|exe|gif|gz|htm|html|ini|ipx|jpeg|jpg|mdb|mid|mov|mp3|mpeg|mpg|pcb|pdf|ppt|psd|pub|qt|ra|ram|sch|tar|tif|tiff|txt|xls"  //可以上传的文件类型

case "movie"   //上传影视
Server.ScriptTimeOut=999999
UploadFilePath1 =  "\UploadFile\movie"         //后台原图保存绝对路径 
UploadFilePath =  "../UploadFile/movie/"     //后台读取原图路径，以生成略缩图 
UploadFilePath2 =  "../UploadFile/movie/small"   //后台略缩图保存路径 
UploadFilePath3 =  "UploadFile/movie/"     //前台原图显示路径
UploadFilePath4 =  "UploadFile/movie/small/"     //前台略缩图显示路径
UploadFilePath5 =  "\UploadFile\movie\small"         //后台略缩图删除绝对路径 
islit=0   //是否自动略缩图
isdel=0   //是否自动略缩图后删除原图
issize=1
isrename=1
formname1="form2"
inputname1="pic"
inputname2="spic"
inputname3="url"
inputname4="ext"
picwidth=110   //略缩图宽
pichight=90   //略缩图高
 savepath=server.MapPath("../")&UploadFilePath1     //文件上传路径
 savepath1=server.MapPath("../")&UploadFilePath5     //略缩图删除路径
BrowerFilePath =  "/"
UploadLimitSize = 1024*1000   //1000M  最大上传文件大小，单位为K
NotAllowfileext = "asf|avi|flv|wmv|mov|mpg|mpeg|qt|rm|rmvb"  //可以上传的文件类型

case "link"   //上传友情链接图片
Server.ScriptTimeOut=90
UploadFilePath1 =  "\UploadFile\link"         //后台原图保存绝对路径 
UploadFilePath =  "../UploadFile/link/"     //后台读取原图路径，以生成略缩图 
UploadFilePath2 =  "../UploadFile/link/small"   //后台略缩图保存路径 
UploadFilePath3 =  "UploadFile/link/"     //前台原图显示路径
UploadFilePath4 =  "UploadFile/link/small/"     //前台略缩图显示路径
UploadFilePath5 =  "\UploadFile\link\small"         //后台略缩图删除绝对路径 
islit=0   //是否自动略缩图
isdel=0   //是否自动略缩图后删除原图
issize=0
isrename=1
formname1="form1"
inputname1="fl_logo"
inputname2="spic"
inputname3="size"
picwidth=110   //略缩图宽
pichight=90   //略缩图高
 savepath=server.MapPath("../")&UploadFilePath1     //文件上传路径
 savepath1=server.MapPath("../")&UploadFilePath5     //略缩图删除路径
BrowerFilePath =  "/"
UploadLimitSize = 30   //30k  最大上传文件大小，单位为K
NotAllowfileext = "jpg|jpeg|gif"  //可以上传的文件类型
end select
if request("act")="upload" then
On Error Resume Next
function CanUpload(Fileurl)
dim NotAllowfileextstr
 Fileurl = lcase("|"& Mid(Fileurl, InstrRev(Fileurl, ".") + 1)& "|")
 NotAllowfileextstr = "|"&NotAllowfileext&"|"
 if instr(NotAllowfileextstr,Fileurl)>0 then
  CanUpload = true
 else
  CanUpload = false
 end if
end function
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -