مثال نصيحة ASP: حول برنامج نماذج التشغيل

إدخال محتوى النموذج في قاعدة بيانات مع ASP.

<٪

' -loader.asp -

' - الإصدار 1.5.2

' - آخر تحديث 12/5/2002

'

فيصل خان

'[email protected]

www.stardeveloper.com

'فئة للتعامل مع التحميلات الثنائية

تحميل فئة

التقليل الخاص

sub class_initialize الخاص

تعيين dict = server.createBject (scripting.dictionary)

نهاية الفرعية

sub class_terminate الخاص

إذا isObject (intdict) ثم

intdict.removeall

تعيين intdict = لا شيء

إنهاء إذا

إذا isObject (DICT) ثم

dict.removeall

تعيين dict = لا شيء

إنهاء إذا

نهاية الفرعية

الممتلكات العامة الحصول على العد

العد = dict.count

نهاية الملكية

تهيئة عامة

إذا طلب. totalbytes> 0 ثم

قاتمة بيناتا

bindata = request.binaryRead (request.totalbytes)

getData bindata

إنهاء إذا

نهاية الفرعية

وظيفة عامة getFiledata (الاسم)

إذا dict.exists (الاسم) ثم

getFiledata = dict (name) .item (القيمة)

آخر

getFileData =

إنهاء إذا

وظيفة نهاية

وظيفة عامة getValue (الاسم)

قاتمة GV

إذا dict.exists (الاسم) ثم

GV = CSTR (dict (name) .item (value))

GV = اليسار (GV ، Len (GV) -2)

getValue = GV

آخر

getValue =

إنهاء إذا

وظيفة نهاية

الوظيفة العامة savetofile (الاسم ، المسار)

إذا dict.exists (الاسم) ثم

درجة الحرارة الخافتة

temp = dict (name) .item (القيمة)

قاتمة FSO

set fso = server.createObject (scripting.filesystemObject)

ملف قاتمة

تعيين ملف = fso.createTextFile (المسار)

لـ tpoint = 1 إلى Lenb (temp)

file.write chr (ASCB (midb (temp ، tpoint ، 1))))

التالي

file.close

savetofile = صحيح

آخر

savetofile = خطأ

إنهاء إذا

وظيفة نهاية

وظيفة عامة getFilename (الاسم)

إذا dict.exists (الاسم) ثم

خافتة درجة الحرارة ، temppos

temp = dict (name) .item (اسم الملف)

temppos = 1 instrev (temp ، /)

getFilename = منتصف (درجة الحرارة ، temppos)

آخر

getFilename =

إنهاء إذا

وظيفة نهاية

وظيفة عامة getFilePath (الاسم)

إذا dict.exists (الاسم) ثم

خافتة درجة الحرارة ، temppos

temp = dict (name) .item (اسم الملف)

temppos = instrev (temp ، /)

getFilePath = Mid (Temp ، 1 ، Temppos)

آخر

getFilePath =

إنهاء إذا

وظيفة نهاية

وظيفة عامة getFilePathcomplete (اسم)

إذا dict.exists (الاسم) ثم

getFilePathComplete = dict (name) .item (اسم الملف)

آخر

getFilePathComplete =

إنهاء إذا

وظيفة نهاية

وظيفة عامة getFilesize (الاسم)

إذا dict.exists (الاسم) ثم

getFilesize = lenb (dict (name) .item (value))

آخر

getFilesize = 0

إنهاء إذا

وظيفة نهاية

وظيفة عامة getFilesizetRanslated (الاسم)

إذا dict.exists (الاسم) ثم

temp = lenb (dict (name) .item (value))

إذا درجة الحرارة <= 1024 ثم

getFilesizetRanslated = temp & bytes

آخر

temp = formatnumber ((temp / 1024) ، 2)

getFilesizetRanslated = temp & kilobytes

إنهاء إذا

آخر

getFilesizetRanslated =

إنهاء إذا

وظيفة نهاية

وظيفة عامة getContentType (الاسم)

إذا dict.exists (الاسم) ثم

getContentType = dict (name) .item (contentType)

آخر

getContentType =

إنهاء إذا

وظيفة نهاية

GetData الفرعي الخاص (RawData)

فاصل خافت

فاصل = midb (RawData ، 1 ، instr (1 ، RawData ، Chrb (13)) - 1)

قاتمة lenseparator

LenseParator = LenB (فاصل)

Dim Currentpos

CurrentPos = 1

قاتمة Instrbyte

Instrbyte = 1

قيمة خافتة ، mvalue

قاتمة tempvalue

tempvalue =

بينما Instrbyte> 0

Instrbyte = Instrb (CurrentPos ، Rawdata ، فاصل)

mvalue = Instrbyte - CurrentPos

إذا mvalue> 1 ثم

القيمة = midb (rawdata ، currentpos ، mvalue)

Dim Begpos ، endpos ، midvalue ، nvalue

قاتمة intdict

تعيين intdict = server.createBject (scripting.dictionary)

begpos = 1 instr (1 ، القيمة ، chrb (34))

Endpos = instr (Begpos 1 ، القيمة ، Chrb (34))

nvalue = endpos

خافت نامين

namen = midb (القيمة ، begpos ، endpos - begpos)

dim nameValue ، isvalid

isValid = صحيح

إذا instrb (1 ، value ، stringtobyte (نوع المحتوى))> 1 ثم

BEGPOS = 1 instr (Endpos 1 ، القيمة ، Chrb (34))

Endpos = instr (Begpos 1 ، القيمة ، Chrb (34))

إذا كان endpos = 0 ثم

endpos = begpos 1

isValid = خطأ

إنهاء إذا

MIDVALUE = MIDB (القيمة ، BEGPOS ، ENDPOS - BEGPOS)

intdict.add filename ، trim (bytetostring (midvalue))

BEGPOS = 14 Instrb (Endpos 1 ، value ، StringTobyte (نوع المحتوى :))

Endpos = instr (Begpos ، القيمة ، Chrb (13))

MIDVALUE = MIDB (القيمة ، BEGPOS ، ENDPOS - BEGPOS)

intdict.add contentType ، trim (bytetostring (midvalue))

begpos = endpos 4

endpos = lenb (القيمة)

NameValue = midb (القيمة ، BegPos ، ((endpos - begpos) - 1))

آخر

nameValue = trim (bytetostring (midb (value ، nvalue 5))))

إنهاء إذا

إذا isValid = صحيح إذن

intdict.add القيمة ، nameValue

intdict.add اسم ، نامين

dict.add bytetostring (namen) ، intdict

إنهاء إذا

إنهاء إذا

CurrentPos = LenseParator Instrbyte

ويند

نهاية الفرعية

الطبقة النهائية

الوظيفة الخاصة StringTobyte (TOCONV)

خافت Tempchar

لأني = 1 إلى لين (TOCONV)

Tempchar = Mid (ToConv ، i ، 1)

StringToByte = StringTobyte & Chrb (ASCB (Tempchar))

التالي

وظيفة نهاية

بوايت الوظيفة الخاصة (TOCONV)

لأني = 1 إلى lenb (toConv)

BytetoString = BytetoString & CHR (ASCB (MIDB (TOCONV ، I ، 1)))

التالي

وظيفة نهاية

٪>

1. واجهة المستخدم:

<لغة البرنامج النصي = javaScript>

وظيفة checkall (النموذج)

{for (var i = 0 ؛ i <form.elements.length ؛ i)

{var e = form.Elements [i] ؛

إذا (e.name! = 'chkall')

e.checked = form.chkall.checked ؛

}

}

</script>

</head>

<body>

<method method = post action = del.asp name = form1>

<griding>

<tr>

<td> <type type = checkbox value = 111 name = tradeName> البريد الإلكتروني 1 </td>

</r>

<tr>

<td> <type type = checkbox value = 111 name = tradeName> البريد الإلكتروني 2 </td>

</r>

<tr>

<td> <type type = checkbox value = 111 name = tradeName> البريد الإلكتروني 3 </td>

</r>

<tr>

<td> <type type = checkbox value = 111 name = tradeName> البريد الإلكتروني 4 </td>

</r>

<tr>

<td> <type type = checkbox value = 111 name = tradeName> البريد الإلكتروني 5 </td>

</r>

<tr>

<td> <type type = checkbox value = 111 name = tradeName> البريد الإلكتروني 6 </td>

</r>

<tr>

<td bgcolor =#f1fbfc الارتفاع = 25 colspan = 2>

<p align = left> <type type = checkbox name = chkall value = on onClick = checkall (this.form)> <font color =#ff9900> حدد جميع الرسائل المعروضة </font> </p>

</td>

<centre>

</r>

</table>

</form>

2. حذف الملف del.asp

<٪

يكتب هذا السطر الرمز الذي يتصل بقاعدة البيانات

معرف قاتم ، strid

strid =

لكل strid في request.form (اسم tradeName)

معرف = cint (strid)

إذا كان strid <> ثم

delrs = server.createBject (adodb.recordset)

conn.execute حذف من tbname حيث id = & cstr (id)

strid =

إنهاء إذا

التالي

conn.close

تعيين conn = لا شيء

Response.redirect تم حذفه بنجاح!

٪>