無組件上傳檔案,一個函數搞定

來源:互聯網
上載者:User
函數|上傳|無組件 本函數是用“化境ASP無組件上傳程式2.0”上傳檔案。
核心函數:
<%
'''''==============================
'函數名:upfile
'作用: 使用“化境上傳組件”上傳檔案到伺服器上
'參數: file1 檔案對象
' savepath 檔案要儲存的相對路徑,如"../"上一級上錄,""同目錄
' maxsize 允許上傳檔案的最大值,單位KB.為0不限大小.
' savetype 允許上傳檔案的類型,0不限制,限制的格式.如.jpg|.bmp|.zip
'傳回值:返回上傳資訊,也可自己根據須要設定傳回值
'前提:set upload=new upload_5xsoft ''建立上傳對象
' set file1=upload.file("file1") ''產生一個檔案對象
'Designer:suercool
function upfile(file1,savepath,maxsize,savetype)
if file1.filename="" and file1.filesize<=0 then
upfile="<script language='javascript'>alert('檔案不存在!')</script>"
exit function
end if

if maxsize<>"0" and file1.filesize>clng(maxsize)*1024 then
upfile="<script language='javascript'>alert('檔案大小超過了限制,最大隻能上傳" & cstr(maxsize) & "Kb的檔案!')</script>"
exit function
end if

dim filename,filetype
filename=file1.filename
filetype=getfiletype(filename)

if savetype<>"0" then
dim arrtype,i,foundtype
arrtype=split(savetype,"|")
foundtype=false
for i = 0 to ubound(arrtype)
if lcase(arrtype(i))=filetype then
foundtype=true
exit for
end if
next
if not foundtype then
upfile="<script language='javascript'>alert('檔案格式不下確,只允許上傳" & savetype &"格式的檔案!')</script>"
exit function
end if
end if
randomize()
filepath=savepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&int(rnd*9999)&filetype
file1.saveas server.mappath(filepath)
if err.description<>"" then
upfile="<script language='javascript'>alert('出現未知錯誤,上傳失敗,請重試!')</script>"
err.clear
else
upfile="<script language='javascript'>alert('上傳成功!"+filepath+"');</script>"
end if
set file1=nothing
end function
''''''''===========
'函數名:getfiletype
'作用: 得到檔案的類型
'參數: filename檔案名稱
'傳回值:檔案類型,無類型返回""
'Designer:suercool
function getfiletype(filename)
dim i
for i=(len(filename)-1) to 1 step -1
if mid(filename,i,1)="." then
getfiletype=lcase(mid(filename,i))
exit function
end if
next
getfile=""
end function
%>

執行個體(upfile3.asp):
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>Upfile</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<form action="upfile3.asp" name="frmupfile" id="frmupfle" enctype="multipart/form-data" method=post>
<input type=file name="file1">
<input type=submit value="上傳" name=subupfile>
<input type=hidden name="upfilename" value="">
<% set upload=new upload_5xsoft ''建立上傳對象
if upload.form("subupfile")="上傳" then
set file1=upload.file("file1")
dim re
savetype=".jpg|.htm|.bmp|"
re=upfile(file1,"","0",savetype)
response.write re
end if
%>
</form>
</body>
</html>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。