-
'-loader.asp-
'-Version1.5.2
'-LASTUPDATED12/5/2002
-
'Faisalkhan
'[email protected]
'www.stardeveloper.com
'classforhandlingbinaryuploads
Classloader
ผู้มีสิทธิพิเศษ
Privatesubclass_initialize
setDict = server.createObject ("scripting.dictionary")
enddub
privateSubclass_terminate
ifisObject (Intdict) จากนั้น
intdict.removeall
setIntDict = ไม่มีอะไร
endif
ifisObject (dict) จากนั้น
dict.removeall
setDict = ไม่มีอะไร
endif
enddub
publicpropertygetCount
นับ = dict.count
ปลายทาง
Publicsubinitialize
ifrequest.totalbytes> 0 แล้ว
Dimbindata
bindata = request.binaryRead (request.totalbytes)
getDatabindata
endif
enddub
PublicfunctiongetFiledata (ชื่อ)
ifdict.exists (ชื่อ) จากนั้น
getFiledata = dict (ชื่อ) .item ("value")
อื่น
getFiledata = ""
endif
endfunction
PublicFunctionGetValue (ชื่อ)
DIMGV
ifdict.exists (ชื่อ) จากนั้น
gv = cstr (dict (ชื่อ) .item ("ค่า")))
GV = ซ้าย (GV, LEN (GV) -2)
getValue = gv
อื่น
getValue = ""
endif
endfunction
