<％
'-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
最終功能
