📄 upload.asp

📁 本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
dim lguserid
if int(application(prefix&"canupload"))<>1 then response.end
lguserid=int(session(prefix&"lguserid"))
if isnull(lguserid) or lguserid="" then response.end

%>
<script>
if (top.location==self.location){
	top.location="index.asp"
}
</script>
<%dim uploadtype,i,action
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="inc/Comm.css">
</head>

<body leftmargin="0" topmargin="5">
<%
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>，限制：<%=application(prefix&"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=application(prefix&"uploadtype")
uploadtype=split(uploadtype,"|")
for i=0 to ubound(uploadtype)
response.write"<option>"&uploadtype(i)&"</option>"
next
%>
</select>，限制：<%=application(prefix&"uploadnum")%> 个，每个 <%=application(prefix&"uploadsize")%> K
</form>
<%end select%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -