<%
'--loader.asp--
'--version1.5.2
'-lastupdated12/5/202
''
'Faisalkhan
'[email protected]
'www.stardeveloper.com
'ClassforHandlingBinaryuploads
Klassenloader
Privat
PrivateSubclass_initialize
SetDict = server.createObject ("scripting.Dictionary")
Ende
PrivateSubclass_terate
IfisObject (intDict) dann
intdict.removeall
SetIntDict = nichts
Endif
IfisObject (dikt) dann
dict.removeall
SetDict = nichts
Endif
Ende
PublicPropertygetCount
Count = dict.count
Endproperschaft
Publicsubinitialize
IFREQUEST.TOTALBYTES> 0Then
Dimbindata
Bindata = Request.BINYREAD (request.totalbytes)
GetDatabindata
Endif
Ende
PublicFunctionGetFiledata (Name)
IfDict.exists (Name) dann
getFiledata = dict (Name) .Item ("Wert")
Anders
GetFiledata = ""
Endif
Endfunktion
PublicFunctionGetValue (Name)
Dimgv
IfDict.exists (Name) dann
gv = cstr (dict (name) .Item ("value"))
GV = links (GV, Len (GV) -2)
GetValue = GV
Anders
GetValue = ""
Endif
Endfunktion