?? fjup_pe.asp
字號:
<!--插入html頭部分以及數據庫接口-->
<!--#include file="in_conn.asp"-->
<%
Server.ScriptTimeOut=50000
%>
<body>
<!--插入網站置頂-->
<% 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"-->
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" height="100%">
<a href="index.asp">[首頁]</a>-<a href="fjlist.asp">[共享附件]</a>-<font class="ft1">[上傳附件]</font>
</td>
</tr></table>
<table align="center" width="700" height="50" border="0" cellspacing="0" cellpadding="11" class="rdkuang"><tr>
<td width="100%" height="100%" align="center">
<table align="center" width="400" height="50" border="0" cellspacing="0" cellpadding="0"><tr><td width="100%" height="100%">
<%
Dim UploadFilePath,UploadLimitSize,UploadfileAllowext
UploadFilePath = "fj/"
'文件上傳路徑
UploadLimitSize = 1024*u_fj_limit
'最大上傳文件大小，單位為K
UploadfileAllowext = u_sup
'可以上傳的文件類型
function CanUp(Fileurl)
if InStr(1,UploadfileAllowext,Fileurl,1)=0 OR InStr(1,UploadfileAllowext,Fileurl,1)=null Then
CanUp=False
else
CanUp=True
end if
end function
%>
<%
dim vtip,vpurl,vfjurl,NewName
dim vvvsize,vvvtype
dim vdate
on error resume next
dim savepath
savepath=Server.MapPath(UploadFilePath)
dim Upload
Set Upload=Server.CreateObject("Persits.Upload")
Upload.SetMaxSize UploadLimitSize,True
Upload.OverwriteFiles = false
Count=Upload.Save(savepath)
flagerr=0
'獲得表單傳值
vtip=trim(Upload.Form("txttip"))
vdate=now()
vvvtype=CInt(Upload.Form("stype"))
'檢查正確性
if Len(vtip)>50 OR Len(vtip)=0 then
flagerr=4
elseif Count<1 then
flagerr=1
end if
If Err.Number=8 Then
flagerr=2
ElseIF Err.Number<>0 Then
flagerr=-1
End If
dim size
For Each File in Upload.Files
strShortFileName=File.filename '取得文件名
strExtension=Mid(strShortFileName, InStrRev(strShortFileName, ".")+1) '取得擴展名
'檢查正確性
if Len(vtip)>50 OR Len(vtip)=0 then
File.Delete
flagerr=4
elseif strShortFileName="" OR InStrRev(strShortFileName, ".")=0 OR InStrRev(strShortFileName, ".")=Null then
File.Delete
flagerr=1
elseif CanUp(strExtension)=False then
File.Delete
flagerr=3
else
vvvsize=file.size
randomize
ranNum=int(900*rnd)+100
'這下面三行代碼功能為改名，如果不要改名，請去掉
NewName = year(now) & "-" & month(now) & "-" & day(now) & "-" & hour(now) & "-" & minute(now) & "-" & second(now) &ranNum&"."&LCase(strExtension)
File.Move savepath & "\" & NewName
end if
next
if flagerr<>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 4
Response.Write "<br>出錯：您沒有填寫附件的描述，不超過50字符！<br>"&"<a href='javascript:history.go(-1);'>[點擊這里<Font color=red>返回</Font>]</a>"
CASE else
Response.Write "<br>出錯：出現異常，上傳被終止！<br>錯誤號"&Err.Number&":"&Err.Description&"<br>"&"<a href='javascript:history.go(-1);'>[點擊這里<Font color=red>返回</Font>]</a>"
END SELECT
Upload.Flush
Else
'如果上傳成功
vpurl=UploadFilePath&NewName
vfjurl=theurl&vpurl
vvvsize=Abs(Int(vvvsize/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
%>
<img src="img/jjgo.gif" border="0">
恭喜，上傳附件成功！
<br> 附件相對地址：<% =vpurl %>
<br> 附件絕對地址：<% =vfjurl %>
<br><br> 可將以下ＵＢＢ代碼復制粘貼到要發表的帖子編輯框
<br> <Textarea name="txtubburl" class="fill" rows="6" cols="60">
相對地址引用：
[URL]<% =vpurl %>[/URL]
絕對地址引用：
[URL]<% =vfjurl %>[/URL]
</Textarea>
<br>選擇接下來的操作：
<br><img src="img/icn_go.gif" border="0" align="absmiddle"><a href="fjup.asp">返回并繼續上傳附件</a>
<br><img src="img/icn_go.gif" border="0" align="absmiddle"><a href="fjlist.asp">返回到[共享附件]</a>
<% End If
Set Upload=nothing
%>
</td></tr></table>
</td>
</tr></table>
<br>
<!--插入在線統計-->
<!--#include file="in_online.asp"-->
<!--插入網站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -