asp无组件上传类

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

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!