upload.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 53 行
ASP
53 行
<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim userid
if int(canupload)<>1 and checkadmin(ckuname)<3 then response.end
userid=int(userid)
if isnull(userid) or userid="" then response.end
%>
<script>
if (top.location==self.location){
top.location="default.asp"
}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="images/main.css">
</head>
<body leftmargin="0" topmargin="5" bgColor="#FFFFFF">
<%
action=request("action")
select case action
case"headpic"
%>
<form name="form1" method="post" action="saveup.asp?action=headpic" enctype="multipart/form-data" >
<input type="hidden" name="act" value="upload">上传头像：
<input type="file" name="file1" size=10>
<input type="submit" name="Submit" value="上传"> <select size="1" name="D1" style="font-size: 9pt">
<option>可上传类型</option>
<option>gif</option>
<option>jpg</option>
<option>bmp</option>
</select>，限制：<%=uploadsize%> K
</form>
<%case""%>
<form name="form" method="post" action="saveup.asp" enctype="multipart/form-data" >
<input type="hidden" name="act" value="upload"><input type="file" name="file1" size=10>
<input type="submit" name="Submit" value="上传"> <select size="1" name="D1" style="font-size: 9pt">
<option>可上传类型</option>
<%
uploadtype=split(uploadtype,"|")
for i=0 to ubound(uploadtype)
response.write"<option>"&uploadtype(i)&"</option>"
next
%>
</select> 限制上传<b><%=uploadnum%></b>个，每个不大于<b><%=uploadsize%></b>K
</form>
<%end select%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?