<% ' -- Loader.asp -- ' -- version 1.5.2 ' -- last updated 12/5/2002 ' ' Faisal Khan ' faisal@stardeveloper.com ' www.stardeveloper.com ' Class for handling binary uploads
Class Loader Private dict
Private Sub Class_Initialize Set dict = Server.CreateObject("Scripting.Dictionary") End Sub
Private Sub Class_Terminate If IsObject(intDict) Then intDict.RemoveAll Set intDict = Nothing End If If IsObject(dict) Then dict.RemoveAll Set dict = Nothing End If End Sub
Public Property Get Count Count = dict.Count End Property
Public Sub Initialize If Request.TotalBytes > 0 Then Dim binData binData = Request.BinaryRead(Request.TotalBytes) getData binData End If End Sub
Public Function getFileData(name) If dict.Exists(name) Then getFileData = dict(name).Item("Value") Else getFileData = "" End If End Function
Public Function getValue(name) Dim gv If dict.Exists(name) Then gv = CStr(dict(name).Item("Value"))
gv = Left(gv,Len(gv)-2) getValue = gv Else getValue = "" End If End Function
Public Function saveToFile(name, path) If dict.Exists(name) Then Dim temp temp = dict(name).Item("Value") Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim file Set file = fso.CreateTextFile(path) For tPoint = 1 to LenB(temp) fi
