⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 fjup.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
字号:
🔍 
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->


<body>
<script language="javascript">
function okpress(){
	document.fmfj.cmdup.disabled=true;
	tipproc.style.display=""
	document.fmfj.submit();
}
</script>

<!--插入网站置顶-->
<% if u_name="" then
	Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>

<%
'判断用户权限
IF u_power=0 THEN
	Response.Redirect "resp.asp?cmd=id_wait"
ELSEIF u_power<0 THEN
	Response.Redirect "resp.asp?cmd=id_forbid&time="&u_fobdate
END IF
%>

<!--获取附件限制-->
<!--#include file="in_sys_share.asp"-->



<%
dim str_act
IF DEF_fjsa=0 THEN
	str_act="fjup_deal.asp"
ELSEIF DEF_fjsa=1 THEN
	str_act="fjup_sa.asp"
ELSEIF DEF_fjsa=2 THEN
	str_act="fjup_pe.asp"
END IF
%>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
	<td width="100%" height="100%">
		&nbsp;<a href="index.asp">[首页]</a>-<a href="fjlist.asp">[共享附件]</a>-<font class="ft1">[上传附件]</font>
	</td>
</tr></table>


<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
<form name="fmfj" action="<% =str_act %>" enctype="multipart/form-data" method="post">
	<tr><td valign="top" width="100%" height="35" style="padding:0px;">
		<table width="100%" height="100%" cellspacing="0" cellpadding="6" border="0"><tr>
			<td width="100%">
				&nbsp;<b>班级总的共享空间：<% =DEF_fjall %>KB&nbsp;&nbsp;&nbsp;当前已用空间：<% =DEF_fjnow %>KB&nbsp;&nbsp;&nbsp;
				<%
				if DEF_fjall<1 then
					Response.Write "班级总使用率：<font color=red>共享空间已禁用</font>"
				else %>
					 班级总使用率：<font color=red><%
					if (DEF_fjnow/DEF_fjall)*100<1 then
					 	vooo="0"
					else
						vooo=""
					end if
					Response.Write vooo&FormatNumber(((DEF_fjnow/DEF_fjall)*100),2) 
					 %>%</font>
				<%
				end if
				%></b>
				<br>&nbsp;您的附件空间：<font class="ft1"><% =u_fj_max %>kb</font>&nbsp;&nbsp;&nbsp;已用空间：<% =u_fj %>kb&nbsp;&nbsp;&nbsp;剩余空间：<font color=red><% =u_fj_left %>kb</font>
				<br>
				<%
				if u_fj_limit=0 then
					Response.Write "&nbsp;本次上传的附件大小限制：<font color=red>无限制</font>"
				else
					Response.Write "&nbsp;本次上传的附件大小限制：<font color=red>"&u_fj_limit&"kb</font>，"
				end if
				
				if DEF_fjfen=0 then
				%>
				(原限制为：无)
				<%
				else
				%>
				(原限制为：<% =DEF_fjfen %>kb)
				<%
				end if
				%>
				<br>&nbsp;您的允许格式：<font class="ft1"><% =u_sup %></font>
			</td></tr>
			<tr>
			<td width="100%" class="rde">
			<%
			IF DEF_fjall=0 THEN
				Response.Write "<br>&nbsp;<font color=red>抱歉，系统已禁用附件上传，无法继续！</font>"
			ELSEIF DEF_fjnow>=DEF_fjall THEN
				Response.Write "<br>&nbsp;<font color=red>抱歉，系统共享空间已满，无法继续！</font>"
			ELSEIF u_fj_max=0 THEN
				Response.Write "<br>&nbsp;<font color=red>抱歉，您的身份不允许上传附件，无法继续！</font>"
			ELSEIF u_fj>=u_fj_max THEN
				Response.Write "<br>&nbsp;<font color=red>抱歉，您的个人附件空间已满，无法继续！</font>"
			%>
			
			<%
			ELSE
			%>

				&nbsp;<b><font color="red">**以下每项都必须填写完整：</font></b>
				<br>&nbsp;<b>**选择要上传的本地文件路径：</b>
				<br>&nbsp;<input type="file" name="ffj"><br>

				<br>&nbsp;<b>**选择附件类别：</b>(方便查找以及与他人共享)
				<br>&nbsp;<select name="stype">
				<option value=0>其他类别</option>
				<option value=1>影音视听</option>
				<option value=2>图片动画</option>
				<option value=3>软件下载</option>
				<option value=4>学习课件</option>
				</select><br>

				<br>&nbsp;<b>**描述：</b>（记录一下该附件的名称或内容）
				<br>&nbsp;<input type="text" name="txttip" size="45" maxlength="50">


				<div align="center">
				<br><input type="button" name="cmdup" value=" 确 定 上 传 " class="an" onClick="javascript:okpress();">
				</div>
			<%
			END IF
			%>
			<br>
			<div id="tipproc" align="center" onload="this.style.display:none" style="display:none ">
				<font color="red">上传处理之中………请耐心等候</font>
			</div>
			</td>
		</tr></table>
	</td></tr>
</form>
</table>

<br>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -