📄 admin_upfile.asp
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<!--#include file="../inc/upload.inc"-->
<!--#include file="../inc/upfile.asp"-->
<html>
<head>
<title>文件上传</title>
<link href="load.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
if WebAllowFile=0 then '系统上传禁止参数
response.write "系统禁止上传"
response.end
elseif WebAllowFile=1 then
if session("CnendWeb_filepath")="" or session("CnendWeb_info")="" then
response.write "参数丢失,可能您停留页面时间过长,请刷新后访问![ <a href='javascript:onclick=history.go(-1)'>返回</a> ]"
response.end
end if
'判断是否丢失上传目录参数及上传位置参数
dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_cnendweb
if session("CnendWeb_info")="BookFace" then
formPath=session("CnendWeb_filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each formName in upload.file
set file=upload.file(formName) '获取文件
if file.filesize<10 then '判断文件大小
response.write "您要上传的文件过小或不存在,请选择你要上传的文件 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
if file.filesize>BookFaceMaxFileSize*1000 then
response.write "您要上传的文件大小超过了系统限制"&BookFaceMaxFileSize&"K [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
fileExt=lcase(right(file.filename,4)) '提取文件后缀
uploadsuc=false
if fileEXT=".jpg" or fileEXT=".gif" or fileEXT=".bmp" or fileEXT=".png" then
uploadsuc=true
else
uploadsuc=false
end if
if uploadsuc=false then '判断文件格式
response.write "您要上传的文件格式不正确 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt
if file.FileSize>0 then
if TrueStr(FileName)=false then
response.write "非法文件"
response.end
end if
file.SaveAs Server.mappath(formPath&FileName)
If not CheckFileType(Server.mappath(formPath&FileName)) then
Set fso = CreateObject("Scripting.FileSystemObject")
Set ficn = fso.GetFile(Server.mappath(formPath&FileName))
ficn.delete
set ficn=nothing
set fso=nothing
response.write "您要上传的文件格式不正确 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
set rsfile=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from filetest where fileurl_name='"&FileName&"' order by id desc"
else
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from [filetest] where fileurl_name='"&FileName&"' order by id desc"
end if
rsfile.open strSQL,conn,1,3
rsfile.addnew
rsfile("fileurl_name")=FileName
rsfile("fileurl_info")=file.filename
rsfile("fileurl_user")="管理员："&request.cookies("CnendWeb")("admininfo_loginname")
rsfile("fileurl_size")=int(file.FileSize/1000)
rsfile("fileurl_path")=formPath
rsfile("fileurl_class")=3
rsfile("fileurl_Types")=Replace(fileExt,".","")
rsfile.update
if IsSqlDataBase = 0 then
attachid=rsfile("id")
end if
rsfile.close
if IsSqlDataBase = 1 then
rsfile.open strSQL,conn,1,1
attachid=rsfile("id")
rsfile.close
end if
set rsfile=nothing
response.write "<script>parent.book_form.pic.value+='"&formPath&FileName&"'</script>"
response.write "<script>parent.book_form.attach.value+='[attach]"&attachid&"[/attach];'</script>"
end if
set file=nothing
next
Htmend "文件上传结束!"
elseif session("CnendWeb_info")="Bookview" then
formPath=session("CnendWeb_filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
response.write "<body>"
iCount=0
for each formName in upload.file
set file=upload.file(formName)
if file.filesize<10 then
response.write "您要上传的文件过小或不存在,请选择你要上传的文件 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
if file.filesize>BookviewMaxFileSize*1000 then
response.write "您要上传的文件大小超过了限制"&BookviewMaxFileSize&"K [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
fileExt=lcase(right(file.filename,4))
uploadsuc=false
Forumupload=split(AllowFileExtStr,",")
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='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt
if file.FileSize>0 then
if TrueStr(FileName)=false then
response.write "非法文件"
response.end
end if
file.SaveAs Server.mappath(formPath&FileName)
if fileEXT=".jpg" or fileEXT=".gif" or fileEXT=".bmp" or fileEXT=".png" then
If not CheckFileType(Server.mappath(formPath&FileName)) then
Set fso = CreateObject("Scripting.FileSystemObject")
Set ficn = fso.GetFile(Server.mappath(formPath&FileName))
ficn.delete
set ficn=nothing
set fso=nothing
response.write "您要上传的文件格式不正确 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
set rsfile=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from filetest where fileurl_name='"&FileName&"' order by id desc"
else
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from [filetest] where fileurl_name='"&FileName&"' order by id desc"
end if
rsfile.open strSQL,conn,1,3
rsfile.addnew
rsfile("fileurl_name")=FileName
rsfile("fileurl_info")=file.filename
rsfile("fileurl_user")="管理员："&request.cookies("CnendWeb")("admininfo_loginname")
rsfile("fileurl_size")=int(file.FileSize/1000)
rsfile("fileurl_path")=formPath
rsfile("fileurl_class")=1
rsfile("fileurl_Types")=Replace(fileExt,".","")
rsfile.update
if IsSqlDataBase = 0 then
attachid=rsfile("id")
end if
rsfile.close
if IsSqlDataBase = 1 then
rsfile.open strSQL,conn,1,1
attachid=rsfile("id")
rsfile.close
end if
set rsfile=nothing
response.write "<script>parent.input.message.value+='[attachimg]"&SiteSystemPath&"attachment.asp?id="&attachid&"[/attachimg]'</script>"
else
set rsfile=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from filetest where fileurl_name='"&FileName&"' order by id desc"
else
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from [filetest] where fileurl_name='"&FileName&"' order by id desc"
end if
rsfile.open strSQL,conn,1,3
rsfile.addnew
rsfile("fileurl_name")=FileName
rsfile("fileurl_info")=file.filename
rsfile("fileurl_user")="管理员："&request.cookies("CnendWeb")("admininfo_loginname")
rsfile("fileurl_size")=int(file.FileSize/1000)
rsfile("fileurl_path")=formPath
rsfile("fileurl_class")=1
rsfile("fileurl_Types")=Replace(fileExt,".","")
rsfile.update
if IsSqlDataBase = 0 then
attachid=rsfile("id")
end if
rsfile.close
if IsSqlDataBase = 1 then
rsfile.open strSQL,conn,1,1
attachid=rsfile("id")
rsfile.close
end if
set rsfile=nothing
response.write "<script>parent.input.message.value+='[attach]"&attachid&"[/attach]'</script>"
end if
response.write "<script>parent.input.attach.value+='[attach]"&attachid&"[/attach];'</script>"
end if
set file=nothing
next
Htmend "上传成功 [ <a href='javascript:onclick=history.go(-1)'>继续上传</a>]"
elseif session("CnendWeb_info")="authorFace" then
formPath=session("CnendWeb_filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each formName in upload.file
set file=upload.file(formName)
if file.filesize<10 then
response.write "您要上传的文件过小或不存在,请选择你要上传的文件 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
if file.filesize>AuthorFaceMaxFileSize*1000 then
response.write "您要上传的文件大小超过了限制"&MaxFileSize&"K [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
fileExt=lcase(right(file.filename,4))
uploadsuc=false
if fileEXT=".jpg" or fileEXT=".gif" or fileEXT=".bmp" or fileEXT=".png" then
uploadsuc=true
else
uploadsuc=false
end if
if uploadsuc=false then
response.write "您要上传的文件格式不正确 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt
if file.FileSize>0 then
if TrueStr(FileName)=false then
response.write "非法文件"
response.end
end if
file.SaveAs Server.mappath(formPath&FileName)
If not CheckFileType(Server.mappath(formPath&FileName)) then
Set fso = CreateObject("Scripting.FileSystemObject")
Set ficn = fso.GetFile(Server.mappath(formPath&FileName))
ficn.delete
set ficn=nothing
set fso=nothing
response.write "您要上传的文件格式不正确 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
set rsfile=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from filetest where fileurl_name='"&FileName&"' order by id desc"
else
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types from [filetest] where fileurl_name='"&FileName&"' order by id desc"
end if
rsfile.open strSQL,conn,1,3
rsfile.addnew
rsfile("fileurl_name")=FileName
rsfile("fileurl_info")=file.filename
rsfile("fileurl_user")="管理员："&request.cookies("CnendWeb")("admininfo_loginname")
rsfile("fileurl_size")=int(file.FileSize/1000)
rsfile("fileurl_path")=formPath
rsfile("fileurl_class")=6
rsfile("fileurl_Types")=Replace(fileExt,".","")
rsfile.update
if IsSqlDataBase = 0 then
attachid=rsfile("id")
end if
rsfile.close
if IsSqlDataBase = 1 then
rsfile.open strSQL,conn,1,1
attachid=rsfile("id")
rsfile.close
end if
set rsfile=nothing
response.write "<script>parent.input.author_face.value+='"&formPath&FileName&"'</script>"
response.write "<script>parent.input.attach.value+='[attach]"&attachid&"[/attach];'</script>"
end if
set file=nothing
next
Htmend "上传成功 "
elseif session("CnendWeb_info")="articleFace" then
formPath=session("CnendWeb_filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each formName in upload.file
set file=upload.file(formName)
if file.filesize<10 then
response.write "您要上传的文件过小或不存在,请选择你要上传的文件 [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
end if
if file.filesize>ArticleviewMaxFileSize*1000 then
response.write "您要上传的文件大小超过了限制"&MaxFileSize&"K [ <a href='javascript:onclick=history.go(-1)'>重新上传</a> ]"
response.end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -