<٪
'-تحميل
'-version1.5.2
'-lastupdated12/5/2002
'
'Faisalkhan
'[email protected]
www.stardeveloper.com
'classforhandlingbinaryuploads
charloader
الخصوصية
privatesubclass_initialize
setDict = server.createBject ("scripting.dictionary")
ينتهي
privatesubclass_terminate
IfisObject (intdict) ثم
intdict.removeall
setIntDict = لا شيء
Endif
IfisObject (DICT) ثم
dict.removeall
setDict = لا شيء
Endif
ينتهي
PublicPropertygetCount
العد = dict.count
endproperty
publicsubinitialize
ifrequest.totalbytes> 0then
Dimbindata
bindata = request.binaryRead (request.totalbytes)
getDatabindata
Endif
ينتهي
publicfunctiongetFiledata (الاسم)
ifdict.exists (الاسم) ثم
getFiledata = dict (name) .item ("value")
آخر
getFileData = ""
Endif
الوظيفية
publicfunctiongetValue (الاسم)
Dimgv
ifdict.exists (الاسم) ثم
GV = CSTR (dict (name) .Item ("value"))
GV = اليسار (GV ، Len (GV) -2)
getValue = GV
آخر
getValue = ""
Endif
الوظيفية