asp无组件上传类(2)

RequestBinDate=""
set tStream = nothing
End Sub

Private Sub Class_Terminate
'清除变量及对像
if not Request.TotalBytes<1 then
oUpFileStream.Close
set oUpFileStream =nothing
end if
Form.RemoveAll
File.RemoveAll
set Form=nothing
set File=nothing
End Sub

'取得文件路径
Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function

'取得文件全名
Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\") 1)
Else
GetFileName = ""
End If
End function

'取得扩展名
Private function GetFileExt(FileName)
If FileName <> "" Then
if instr(FileName,".")>0 then
GetFileExt = mid(FileName,InStrRev(FileName, ".") 1)
else
GetFileExt = ""
end if
Else
GetFileExt = ""
End If
End function

'取得去掉了扩展名的文件名 刘金才添加
Private function GetSmallFileName(FileName)
If FileName <> "" Then
if instr(FileName,".")>0 then
GetSmallFileName = mid(FileName,1,InStrRev(FileName, ".")-1)
else
GetSmallFileName = FileName
end if
Else
GetSmallFileName = ""
End If
End function

End Class

'文件属性类
'新添加一个smallFileName 表示去掉了扩展名的文件名 刘金才添加
Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt,smallFileName
Private Sub Class_Initialize
FileName = ""
smallFileName=""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
FileExt = ""
End Sub

'保存文件方法
Public function SaveToFile(FullPath)
dim oFileStream,ErrorChar,i
SaveToFile=1
if trim(fullpath)="" or right(fullpath,1)="/" then exit function
set oFileStream=CreateObject("Adodb.Stream")
oFileStream.Type=1
oFileStream.Mode=3
oFileStream.Open
oUpFileStream.position=FileStart
oUpFileStream.copyto oFileStream,FileSize
oFileStream.SaveToFile FullPath,2
oFileStream.Close
set oFileStream=nothing
SaveToFile=0
end function
End Class

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有