📄 upload.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="bbs.css" -->
<!--#include FILE="upload.inc"-->
<%'取出变量
dim h_uploadtext,lockupload, uploadsize,send_upload
sql="select h_uploadtext,lockupload, uploadsize,send_upload from home"
set rsconn1=conn.execute(sql)
if not rsconn1.eof then
uploadsize =rsconn1("uploadsize")
lockupload =rsconn1("lockupload")
h_uploadtext=rsconn1("h_uploadtext")'上传文件类型
send_upload=rsconn1("send_upload")
end if
set rsconn1=nothing%>
<body bgcolor=<%=tcolor2%> class=tdc topmargin="5">
<% if chktopic(Request.Cookies(l_url&"feiyue")("username"))="" and chktopic(request.Cookies(l_url&"feiyue")("userid"))="" then
response.write "错误:登陆论坛后才可以上传"
response.end
end if
select case lockupload
case "0"
call upload0()
case else
response.write "错误:上传功能已经被管理员关闭"
response.end
end select
'无组件
sub upload0()
set upload=new upload_file ''建立上传对象
formPath=upload.form("uploadtypefy")
if session("upcount")="" then session("upcount")=0
set file=upload.file("file1") ''生成文件对象
if file.FileSize=0 then
response.write "错误:请选择要上传的文件! <a href='javascript:history.go(-1)'>返回</a>"
response.end
elseif session("upcount")>=send_upload then
response.write "错误:每次只能上传"&send_upload&"个文件 <a href='javascript:history.go(-1)'>返回</a>"
response.end
else
if file.filesize>uploadsize then
response.write "错误:上传的文件大小超过了限制! <a href='javascript:history.go(-1)'>返回</a>"
response.end
end if
filehz = lcase(file.FileExt)
h_uploadtext1 = split(h_uploadtext, ",")
for i = 0 to ubound(h_uploadtext1)
'采用lcase函数为的是后缀名为大写时传不上去
if filehz<>lcase(h_uploadtext1(i)) then
errornum=1
else
errornum=0
exit for
end if
next
if filehz="asp" and filehz="asa" and filehz="aspx" then'判断上传的是否为非法文件
errornum=1
end if
if upload.form("uploadtypefy")="uploadface/" then'判断是否是上传头像,如果是，在判断上传的是否为图片
if filehz<>"jpg" and filehz<>"jpeg" and filehz<>"gif" and filehz<>"bmp" then
errornum=1
end if
end if
if errornum=1 then
response.write "错误:上传的文件格式不对! <a href='javascript:history.go(-1)'>返回</a>"
response.end
end if
if upload.form("uploadtypefy")="uploadface/" then'判断是否是上传头像
feiyue="fyzw_"&chktopic(request.Cookies(l_url&"feiyue")("userid"))&"."&filehz
file.SaveAs Server.mappath(formPath&feiyue) ''保存文件
cpbfy=formPath&feiyue
%>
<script>
parent.form1.imghead.value='<%=cpbfy%>'
</script>
<% response.write file.FileName&" ("&file.FileSize&") 头像上传成功!请记住你上传的头像下面的路径<br>"
else
feiyue="fyzw_"&year(nowtime)&month(nowtime)&day(nowtime)&hour(nowtime)&minute(nowtime)&second(nowtime)&"."&filehz
file.SaveAs Server.mappath(formPath&feiyue) ''保存文件
%>
<script>
parent.form1.f3_content.value+='[upload=<%=filehz%>]<%=feiyue%>[/upload]'
</script>
<% session("upcount")=session("upcount")+1
response.write file.FileName&" ("&file.FileSize&") 上传成功!<a href='javascript:history.go(-1)'>返回继续上传</a><br>"
end if
end if
set file=nothing
set upload=nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -