<%
'--Loader.asp--
'--version1.5.2
'--lastupdated12 / 5/2002
'
'Faisalkhan
'[email protected]
'www.stardevelopper.com
'Classforhandlingbinaryuploads
Chargeur de classe
Privict
PrivésubClass_Initialize
SetDict = server.createObject ("scripting.dictionary")
Fin
PrivésUbclass_termince
IfisObject (intdict) puis
intdict.removeall
SetIntDict = rien
Endire
IfisObject (dict) alors
dict.removeall
SetDict = rien
Endire
Fin
PublicPropertyGetCount
Comte = dict.Count
Endproperty
Publiquebinialialise
IfRequest.TotalBytes> 0Then
Dibindata
bindata = request.binaryread (request.totalbytes)
getDatabindata
Endire
Fin
PublicFunctionGetFileData (nom)
Ifdict.exists (nom) puis
getFileData = dict (nom) .item ("valeur")
Autre
getFileData = ""
Endire
Finition de fin
PublicFunctionGetValue (nom)
Dimgv
Ifdict.exists (nom) puis
gv = cstr (dict (nom) .item ("valeur"))
gv = gauche (gv, len (gv) -2)
getValue = gv
Autre
getValue = ""
Endire
Finition de fin