?? upfile.asp
字號(hào):
<!--#include file="../inc/office_open.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->
<%
set conn=opendb
set rsUpload = Server.CreateObject("ADODB.Recordset")
Uploadsql = "SELECT * FROM UploadSet where id=1"
rsUpload.Open Uploadsql,conn
FilePath=rsUpload("filepath")
FileMaxSize=rsUpload("size")
FileType=rsUpload("FileType")
fileweb=rsUpload("weburl")
nameset =rsUpload("nameset")
dim upload,file,formName,iCount
set upload=new upload_5xSoft ''建立上傳對(duì)象
UpFilePath = FilePath
''在目錄后加(/)
if right(UpFilePath,1)<>"/" then UpFilePath=UpFilePath&"/"
iCount=0
Session("UploadFileCount")=0
Session("UploadFileDir")=""
for each formName in upload.file ''列出所有上傳了的文件
set file=upload.file(formName) ''生成一個(gè)文件對(duì)象
if file.FileSize>0 then ''如果 FileSize > 0 說(shuō)明有文件數(shù)據(jù)
if file.FileSize<FileMaxSize then ''如果未超過(guò)文件大小限制
if FileType<>"" then '如果限制了上傳文件類型
if Instr(FileType,GetExtendName(file.FileName)) then
TypeFlag = 1 '文件為允許的類型
else
TypeFlag = 0 '文件為不允許的類型
response.write "<script language=JavaScript>{window.alert('上傳失敗,系統(tǒng)不支持您所上傳的附件類型!');window.history.go(-1);}</script>"
end if
else
TypeFlag = 1 '沒有限制上傳文件類型
end if
if TypeFlag = 1 then
vfname = makefilename(now())
if nameset = 1 then
fname = vfname & iCount & "." & GetExtendName(file.FileName)
elseif nameset =2 then
fname = file.FileName
elseif nameset = 3 then
fname = vfname & iCount & file.FileName
end if
file.SaveAs Server.mappath(UpFilePath&fname) ''保存文件
iCount=iCount+1
FileNameStr = FileWeb&UpFilePath&fname
'記錄上傳附件的個(gè)數(shù)及上傳附件的路徑
Session("UploadFileCount")=iCount
Session("UploadFileDir")=Session("UploadFileDir")+"*"+FileNameStr
end if
else
response.write "<script language=JavaScript>{window.alert('上傳失敗,上傳附件大小超出指定范圍!');window.history.go(-1);}</script>"
exit for
end if
end if
set file=nothing
next
set upload=nothing ''刪除此對(duì)象
if iCount>0 then
response.write "<script language=JavaScript>{window.alert('附件上傳成功!');window.history.go(-2);}</script>"
else
response.write "<script language=JavaScript>{window.alert('附件上傳失敗,請(qǐng)與系統(tǒng)管理員聯(lián)系!');window.history.go(-1);}</script>"
end if
sub HtmEnd(Msg)
set upload=nothing
end sub
''將當(dāng)前的日期和時(shí)間轉(zhuǎn)為文件名
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
rsUpload.Close
set rsUpload=nothing
conn.close
set conn=nothing
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -