?? upload_save.asp
字號:
<%
''將當前的日期和時間轉為文件名
function makefilename(fname)
cctime=now()
fname =year(cctime)& month(cctime)& day(cctime)&hour(cctime)&minute(cctime)&second(cctime)
makefilename=fname
end function
%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上傳系統 </title>
</head>
<body>
<%
dim upload,file,formName,iCount,filemaxsize
filemaxSize=204800 'MaxSize is :200KB
fileType=".gif,.jpg"
set upload=new upload_5xSoft ''建立上傳對象
UpFilePath ="upload_img/" ''得到上傳目錄 ''在目錄后加(/)
iCount=0
for each formName in upload.file ''列出所有上傳了的文件
set file=upload.file(formName) ''生成一個文件對象
''如果 FileSize > 0 說明有文件數據
if file.filesize>204800 then
response.write " <font color=red>出現以下錯誤：</font><br><li>文件尺寸過大，請重新選擇文件！</li><br><br><div align=center><a href='javascript:history.go(-1)'>返回重新選擇</a></div>"
response.end
end if
if file.FileSize>0 and file.FileSize<FileMaxSize then ''如果未超過文件大小限制
ttype=GetExtendName(file.FileName)
if Instr(FileType,ttype)>0 then
TypeFlag = 1 '文件為允許的類型
fname= makefilename(now())
FileNameStr = UpFilePath&fname&"."&ttype
file.SaveAs Server.mappath(FileNameStr) ''保存文件
response.write "上傳文件"&FileNameStr&"成功! <br>"
else
TypeFlag = 0 '文件為不允許的類型
Response.write "不支持您所上傳的文件類型："
Response.write GetExtendName(file.FileName)
Response.write "<br>"
end if
else
response.write "文件大小超出限制，您最多可以上傳 "& FileMaxSize &"個字節的文件數據"
exit for
end if
set file=nothing
next
set upload=nothing ''刪除此對象
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
%>
</div>
</td>
</tr>
</table>
<script language="JavaScript">
window.opener.form1.picurl.value="<%=FileNameStr%>"
window.close()
</script>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -