<%
'--Loader.asp--
'--versión1.5.2
'-Sastupdated12/5/2002
'
'Faisalkhan
'[email protected]
'www.stardeveloveler.com
'ClassForHandlingBinaryUpploads
Cargador de clases
Privedicto
Privatesubclass_initialize
Setdict = server.createObject ("scripting.dictionary")
Endsub
Privatesubclass_merminate
IfisObject (intdict) entonces
intdict.removeall
Setintdict = nada
Endif
IfisObject (dict) entonces
dict.removeall
Setdict = nada
Endif
Endsub
PublicPropertygetCount
Count = dict.count
Endpropertía
Publicsubinitialize
Ifrequest.totalbytes> 0then
Dimbindata
bindata = request.binaryRead (request.totalbytes)
getDatabindata
Endif
Endsub
PublicFunctiongetFiledata (nombre)
Ifdict.exists (nombre) entonces
getFileData = dict (nombre) .Item ("Valor")
Demás
getFileData = ""
Endif
Función final
PublicFunctionGetValue (nombre)
Dimgv
Ifdict.exists (nombre) entonces
gv = cstr (dict (nombre) .Item ("valor"))
GV = izquierda (GV, LEN (GV) -2)
GetValue = GV
Demás
getValue = ""
Endif
Función final