<％
'-loader.asp---
' - version1.5.2
' - lastupded12/5/2002
'
'Faisalkhan
'[email protected]
'www.stardeveloper.com
'ClassForhandlingBinaryUploads
ClassLoader
私人
PrivatesubClass_Initialize
setDict = server.createobject（“ scripting.dictionary”）
endub
PrivatesUbClass_terminate
然后
intdict.removeall
setIntdict =没有
Endif
然后
dict.removeall
setdict =没有
Endif
endub
PublicPropertyGetCount
count = dict.Count
Endproperty
PublicSubinitialize
ifrequest.totalbytes> 0
Dimbindata
bindata = request.binaryread（request.totalbytes）
GetDatabindata
Endif
endub
publicFunctionfiledata（名称）
Ifdict.exists（名称）
getfiledata = dict（name）.Item（“ value”）
别的
getfiledata =“”
Endif
最终功能
publicFunctionValue（名称）
DIMGV
Ifdict.exists（名称）
gv = cstr（dict（name）.Item（“ value”））
GV =左（GV，Len（GV）-2）
getValue = gv
别的
getValue =“”
Endif
最终功能
