<%
'-loader.asp--
'--Version1.5.2
'--Lastupdated12/5/2002
'
'Faisalkhan
'[email protected]
'www.stardeveloper.com
'ClassForHandlingBinaryuploads
Classloader
Privatedict
Privatesubclass_initialize
SetDict = server.CreateObject ("Scripting.Dictionary")
Endsub
Privatesubclass_terminate
IfisObject (Intdict) lalu
Intdict.removeall
Setintdict = tidak ada
Endif
IfisObject (dikt) lalu
dikt.removeall
SetDict = tidak ada
Endif
Endsub
PublicPropertyGetCount
Count = Dict.Count
Endproperty
PublicSubInitialize
Ifrequest.totalbytes> 0then
Dimbindata
bindata = request.binaryread (request.totalbytes)
getdatabindata
Endif
Endsub
PublicFunctionGetFiledata (Nama)
Ifdict.exists (nama) lalu
getFiledata = dict (name) .item ("value")
Kalau tidak
getFiledata = ""
Endif
Fungsi endfungsi
PublicFunctionGetValue (nama)
Dimgv
Ifdict.exists (nama) lalu
gv = cstr (dict (name) .item ("value"))
GV = kiri (GV, Len (GV) -2)
GetValue = GV
Kalau tidak
getValue = ""
Endif
Fungsi endfungsi
