?? fjup_kj_sa.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%">
<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
%>
上傳附件成功！已經自動將相應地址添加到發表內容的末尾。
<br> 相對地址引用：<% =vpurl %>
<br> 絕對地址引用：<% =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 + -