<％
'-loder.asp---
'-version1.5.2
'-lastupdated12/5/2002
'
'Faisalkhan
'[email protected]
'www.stardeveloper.com
'classforhandlingbinaryuploads
クラスローダー
privatedict
privatesubclass_initialize
setDict = server.createObject（ "Scripting.Dictionary"）
Endingub
privatesubclass_terminate
ifisobject（intdict）then
intdict.removeall
setintdict =何もない
endif
ifisobject（dict）then
dict.removeall
setDict =何もない
endif
Endingub
publicPropertygetCount
count = dict.count
Endproperty
publicsubinitialize
ifrequest.totalbytes> 0then
Dimbindata
bindata = request.binaryread（request.totalbytes）
GetDataBindata
endif
Endingub
publicFunctionGetFileData（名前）
ifdict.exists（name）then
getFileData = dict（name）.item（ "value"））
それ以外
getFileData = ""
endif
エンド機能
publicFunctionGetValue（name）
dimgv
ifdict.exists（name）then
gv = cstr（dict（name）.item（ "value"））
gv = left（gv、len（gv）-2）
getValue = gv
それ以外
getValue = ""
endif
エンド機能
