?? myupfile.asp
字號:
<!--#include file="myupgroupware.inc"-->
<%'引用上傳組件文件%>
<%
'定義上傳組件對象upload
set upload=new upgroupware
'判斷是否是上傳標識
if upload.form("act")="uploadfile" then
'設置上傳路徑
'filepath=trim(upload.form("filepath"))
filepath="pic/"
i=0
for each formName in upload.File
'獲取上傳文件名
set file=upload.File(formName)
'得到的文件擴展名不含有.并轉換成大寫
fileExt=lcase(file.FileExt)
'判斷上傳文件是否有數據流
if file.filesize<1 then
response.write "<script language=javascript>alert('請先選擇你要上傳的文件!');history.go(-1);</script>"
response.end
end if
'判斷上傳文件格式是否為"bmp","jpg","gif","png".如果想擴展可以在條件添加的
if (fileExt<>"bmp") and (fileExt<>"jpg") and (fileExt<>"gif") and (fileExt<>"png") and (fileExt<>"swf") then
response.write "<script language=javascript>alert('該文件類型不能上傳!');history.go(-1);</script>"
response.end
end if
'判斷上傳文件數據大小:M*1024=Mk
if file.filesize>(10240000) then
response.write "<script language=javascript>alert('圖片文件大小不能超過1000K!');history.go(-1);</script>"
response.end
end if
logo=upload.Form("logo")
if logo<>"-" then
filename=logo
else
randomize
ranNum=int(90000*rnd)+10000
filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
end if
%>
<%
if file.FileSize>0 then ''如果 FileSize > 0 說明有文件數據
'file.SaveAs Server.mappath(filename) ''保存文件
file.SaveToFile Server.mappath(FileName)
'response.write file.FileName&" 上傳成功! <br>"
'response.write "新文件名:"&FileName&"<br>"
'response.write "新文件名已復制到所需的位置,可關閉窗口!"
if filelx="swf" then
response.write "<script>window.opener.document."&upload.form("FormName")&".size.value='"&int(file.FileSize/1024)&" K'</script>"
end if
response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>"
%>
<%
end if
set file=nothing
next
set upload=nothing
end if
%>
<script language="javascript">
window.alert("文件上傳成功!!");
window.close()
</script>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -