📄 fjup_kj_sa.asp

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



<%
Server.ScriptTimeOut=5000
%>

<body style="background:none; margin:0px; background-color:<% =bg3 %>">
<%
if u_name="" then
	Response.Redirect "log_err.asp"
end if

sqlstr="SELECT ID,power,fobdate FROM tblmates WHERE name='"&u_name&"'"
rs.open sqlstr,conn,1,1
		'判断是否存在
		if rs.eof AND rs.bof then
			Session.Abandon
			Response.Redirect "log_err.asp?cmd=twosys"
		end if
	u_ID=rs("ID")
	u_power=rs("power")
	u_fobdate=rs("fobdate")
rs.close


'判断用户权限
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"-->

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
	<td width="100%" height="100%">
		&nbsp;<font class="ft1">[上传附件]</font>
	</td>
</tr></table>


<table align="center" width="700" height="50" border="0" cellspacing="0" cellpadding="2" class="rdkuang"><tr>
	<td width="100%" height="100%" align="center">
		<table align="center" width="80%" height="50" border="0" cellspacing="0" cellpadding="0"><tr><td width="100%" height="100%" valign="top">
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")

dim vtip,vpurl,vfjurl
dim vvvsize,vvvtype
dim vdate

'获得表单传值
vtip=trim(upl.Form("txttip"))
vdate=now()
vvvtype=CInt(upl.Form("stype"))

'检查正确性
dim oktip
oktip=1
If Len(vtip)>50 OR Len(vtip)=0 Then
	Response.Write "<br>出错：请填写附件描述，不超过50个字符！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
	oktip=0
End If
%>


<%  If Not IsObject(upl.Form("ffj")) Then %>
表单错误，请检查！

<% ElseIf upl.Form("ffj").ContentDisposition <> "form-data" Then %>
浏览器不支持FORM-DATA


<% ElseIF oktip=1 Then %>

<%
upl.Form("ffj").MaxBytes=u_fj_limit*1024
formPath="fj/" 
flagerr=0


			strShortFileName=mid(upl.Form("ffj").UserFileName,InStrRev(upl.Form("ffj").UserFileName, "\")+1) '取得文件名 
			strExtension=Mid(strShortFileName, InStrRev(strShortFileName, ".")+1) '取得扩展名

			If upl.Form("ffj").IsEmpty Then
				flagerr=1
			ElseIf upl.Form("ffj").TotalBytes>upl.Form("ffj").MaxBytes Then 
				flagerr=2
			ElseIf InStrRev(strShortFileName, ".")=0 OR InStr(1,u_sup,strExtension,1)=0 OR InStr(1,u_sup,strExtension,1)=null Then
				flagerr=3
			End If

on error resume next

	If flagerr=0 Then '如果文件通过检查，保存文件
			randomize 
			ranNum=int(900*rnd)+100 
			filename=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&ranNum&"."&LCase(strExtension) 
			upl.Form("ffj").SaveInVirtual formPath&filename '让文件名不重复，保存文件，这里用的是SaveInVirtual方法
	End If

	
	if flagerr<>0 OR Err<>0 Then
			'如果上传失败
			SELECT CASE flagerr
				CASE 1
					Response.Write "<br>出错：您没有选择要上传的文件！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回</Font>]</a>"
				CASE 2
					Response.Write "<br>出错：文件太大，请注意附件大小限制要求！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回</Font>]</a>"
				CASE 3
					Response.Write "<br>出错：该类型文件不允许上传！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回</Font>]</a>"
				CASE else
					Response.Write "<br>出错：出现异常，上传被终止！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回</Font>]</a>"
			END SELECT
			upl.Flush

	Else 
		'如果上传成功
		vpurl=formPath&filename
		vfjurl=theurl&vpurl
		vvvsize=Abs(Int(upl.Form("ffj").TotalBytes/1024*(-1)))
			if vvvsize<1 then
				vvvsize=1
			end if
		'开始写入数据
		sqlstr="UPDATE tblsys SET fj_now=fj_now+"&vvvsize
		conn.Execute sqlstr
		sqlstr="UPDATE tblmates SET myfj=myfj+"&vvvsize&" WHERE name='"&u_name&"'"
		conn.Execute sqlstr
		sqlstr="INSERT INTO tblfj(fj_tip,fj_type,fj_size,fj_owner,fj_url,fj_date) VALUES('"&stryin(vtip)&"',"&vvvtype&","&vvvsize&",'"&u_name&"','"&stryin(vpurl)&"',#"&vdate&"#)"
		conn.Execute sqlstr

'判断附件是否为图片
dim vhouzhui,vfjubb
vhouzhui=LCase(right(trim(vpurl),4))
if vhouzhui=".jpg" OR vhouzhui=".bmp" OR vhouzhui=".gif" OR vhouzhui="jpeg" OR vhouzhui=".png" then
	vfjubb="\n[IMG]"&vpurl&"[/IMG]"
else
	vfjubb="\n[URL="&vpurl&"]附件下载："&vpurl&"[/URL]"
end if
%>

&nbsp;上传附件成功！已经自动将相应地址添加到发表内容的末尾。
<br>&nbsp;相对地址引用：<% =vpurl %>
<br>&nbsp;绝对地址引用：<% =vfjurl %>

<br><img src="img/icn_go.gif" border="0" align="absmiddle"><a href="fjup_kj.asp">返回并继续上传附件</a>

<script language="javascript">
parent.addfj("<% =vfjubb %>");
</script>

<%	End If

End If

Set upl=nothing
%>

		</td></tr></table>
	</td>
</tr></table>

<%
conn.close
Set rs=Nothing
Set conn=Nothing
%>
</body>

</html>
⌨️ 快捷键说明

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