📄 upload.asp
字号:
<%
Dim AppealNum,AppealCount
AppealNum=2 '----------页面60秒打开网页次数的限制-----------
AppealCount=Request.Cookies("AppealCount")
If AppealCount="" Then
response.Cookies("AppealCount")=1
AppealCount=1
response.cookies("AppealCount").expires=dateadd("s",60,now())
Else
response.Cookies("AppealCount")=AppealCount+1
response.cookies("AppealCount").expires=dateadd("s",60,now())
End If
if int(AppealCount)>int(AppealNum) then
response.write "为防止恶意上传文件，请您等待60秒后再上传文件.<br>为您带来不便，请谅解！"
response.end
End If
%>
<!--#include FILE="inc.asp"-->
<html>
<head>
<title>上传系统</title>
<style>
body { font-size:9pt }
</style>
<base href="文件上传结果"></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#D2E4FC">
<p align="center">
<script language="Javascript">
function minipic(smileface)
{
window.opener.document.form1.minipic.value=smileface;
}
function pic(smileface)
{
window.opener.document.form1.pic.value=smileface;
}
</script>
<%
set upload=new upload_5xsoft
set file=upload.file("sf_upfile")
if file.fileSize<1 then
response.write"<script language=javascript>alert('您没有选择文件：\n\n－－－－－请点击浏览按钮，从弹出的窗口中选择要上传的文件。\n\n－－－－－然后点击上传按钮就可以把文件上传了。\n\n－－－－－不过要注意上传文件的格式哦。');history.back()</script>"
response.end
end if
if file.fileSize<10 or file.fileSize>100*1024 then '-------修改默认的数值 100 单位(KB)-----
response.write "<br><br><br><br><br>错误:上传的文件大小超过了限制! <a href='javascript:history.go(-1)'>退回上一步</a>"
response.end
end if
upfilename = split(file.FileName,".")
upfileext = upfilename(ubound(upfilename))
'------------在下面设置上传文件类型，增加（ and upfileext<>"文件类型" ）----------
if upfileext<>"rar" and upfileext<>"zip" and upfileext<>"txt" and upfileext<>"doc" and upfileext<>"RAR" and upfileext<>"ZIP" and upfileext<>"DOC" and upfileext<>"TXT"then
response.write "<br><br><br><br><br>错误:上传的文件格式不对! <a href='javascript:history.go(-1)'>退回上一步</a>"
response.end
end if
ufp="zxskj_"&day(now)&hour(now)&minute(now)&second(now)&"."&upfilename(ubound(upfilename))
file.saveas Server.mappath("pass/"&ufp)
picname="[up]"& ufp &"[/up]"
response.write "<br><br><br><br><br>文件上传成功！[ <a href='javascript:history.go(-1)'>我想继续上传</a> ]</a>"
%>
<%
set file=nothing
set upload=nothing
'set my_conn = nothing
'set rs = nothing
%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -