إنشاء الجداول تلقائيًا، وإكمال وظائف الحذف والتحرير والتعبئة والترحيل تلقائيًا وتخصيص
رمز نمط الرأس باستخدام فئتين
.في البداية، فكرت كثيرًا وكانت الوظيفة قوية جدًا، وكلما كانت فئة asp أقوى، كانت أبطأ عندما يبدأ، يصبح الاهتمام أقل في النهاية، لا تزال هناك العديد من الوظائف التي لم تكتمل، مثل التحقق من نوع الحقل، وعرض الصور، وعناصر التحكم، وما إلى ذلك. يتم نشر الكود ليدرسه الجميع ويدرسونه معًا. يمكن للمهتمين إضافة
أمثلة لهذه الوظائف:
set a = new DataGrid
'a.Connstr="Provider=SQLOLEDB.1;معرف المستخدم=sa;كلمة المرور=servser;الكتالوج الأولي=temp_blue;مصدر البيانات=خادم;مهلة الاتصال=30;ترجمة تلقائية=صحيح;حجم الحزمة=4096;"
a.Connstr="Provider=Microsoft.Jet.OLEDB.4.0;"&" مصدر البيانات = "&server.mappath("test.mdb") 'الاتصال بسلسلة ACCSS
a.SQLString="select * from table1" 'إنشاء عبارة SQL لمجموعة السجلات المعروضة بواسطة datagrid
a.isAddnew = 1 'ما إذا كان من الممكن إضافة سجلات جديدة أم لا
a.Table = "table1" 'الجدول الرئيسي الذي يتم التحكم فيه بواسطة datagrid
a.UniqueField = "ID" 'حقل العلامة، يجب ألا تكرر كافة السجلات أعدادًا صحيحة
a.PagePosition = "down" 'موضع عرض الصفحة، أعلى لأعلى، أسفل لأسفل، أعلى لأسفل، أعلى وأسفل، ولا يتم عرض الآخرين
a.pagesize = 5 'عرض عدد السجلات في كل صفحة
a.Pagenumber = 10 'عرض رقم الصفحة
a.BorderColor="#ff0000" 'الافتراضي هو عرض العرض
a.BackGround="#00ff00" 'الافتراضي هو عرض العرض
a.BorderWidth=1 الافتراضي هو 1
a.
تعيين b1 = عمود جديد
b1.Field = "id" 'حقل قاعدة البيانات المرتبط بهذا العمود
b1.Title = "الشعار" 'Title
b1.Align = "center" 'Alignment
a.AddColumn(b1) 'أدخل هذا العمود في شبكة البيانات
تعيين b2 = عمود جديد
b2.Field = "الاسم الأول"
b2.Title = "الاسم الأخير"
a.AddColumn(b2)
set b3 = عمود جديد
b3.Field = "اسم العائلة"
b3.Title = "الاسم"
a.AddColumn(b3)
set b4 = عمود جديد
b4.Field = "أوقات تسجيل الدخول"
b4.Title = "عدد عمليات تسجيل الدخول"
b4.ReadOnly = true 'تم تعيينه للقراءة فقط ولن يظهر في مربع التحرير والسجلات الجديدة
a.AddColumn(b4)
set b5 = عمود جديد
b5.Title = "تحرير"
b5.Columntype ="edit" 'تحرير العمود
b5.EditCommandText = "تحرير" 'تحرير نص الزر
a.AddColumn(b5)
set b6 = عمود جديد
b6.align = "المركز"
ب6.العرض = 200
b6.Columntype = "حذف"
b6.DeleteCommandText = "زر الحذف"
ب6.العنوان = "حذف"
أ.AddColumn(b6)
a.CreateGrid()
set b1 = لا شيء
مجموعة ب2 = لا شيء
مجموعة B3 = لا شيء
مجموعة b4 = لا شيء
مجموعة b5 = لا شيء
مجموعة ب6 = لا شيء
ملف الفئة كما يلي:
<%Class DataGrid
صفحات خاصة
سلسلة strSQL الخاصة
PublicConnstr
الأعمدة الخاصة
مؤشر خاص
خاص strUniqueField، strTable
روبية خاصة
خاص strCellspacing،strCellpadding،strCssClass
خاص strBorderColorDark،strBorderColorLight،strBackGroundColor
عرض intBorderWidth الخاص
خاص strHeadStyle،strHeadBackgroudColor
strStyle الخاص، strAlternateStyle
مفتاح فريد خاص،dg_action،currPage
عنوان URL للإجراء الخاص، عنوان URL للصفحة، عنوان URL للتشغيل، عنوان URL للنموذج
موضع الصفحة العامة، حجم الصفحة، رقم الصفحة
العام هو Addnew
فئة فرعية خاصة_Initialize()
تعيين الأعمدة = Server.CreateObject("Scripting.Dictionary")
الفهرس = 0
حجم الصفحة = 10
رقم الصفحة = 10
PagePosition = "أعلى"
strSQLString = الجلسة ("DSN")
مفتاح فريد = طلب ("مفتاح فريد")
dg_action = طلب("dg_action")
currPage = طلب ("الصفحة")
actionURL = Request.ServerVariables("Script_name") & "?page=" & currPage
إذا كان dg_action= "تحرير" ثمformURL = actionURL& "&dg_action=update&uniquekey="&uniquekey
OperationURL = Request.ServerVariables("Script_name") & "?page=" & currPage& "&uniquekey=" & Uniquekey
pageURL = Request.ServerVariables("Script_name")&"?1=1"
إذا currPage = "" أو isnull(currPage) ثم currPage = 1
ستربورديركولوردارك = "#f7f7f7"
strBorderColorLight = "#cccccc"
strBackgroundColor = "#f7f7f7"
strHeadBackgroudColor = "#F2F2F2"
عرض الحدود = 1
strAlternateStyle="bgcolor=#f6f6f6"
اضافه جديده = 1
مجموعة rs = Server.CreateObject("Adodb.Recordset")
نهاية الفرعية
فئة فرعية خاصة_Terminate()
rs. Close
setrs=لا شيء
تعيين الأعمدة = لا شيء
نهاية الفرعية
الملكية العامة احصل على SQLString ()
SQLString = strSQLString
نهاية الملكية
السماح للملكية العامة بـ SQLString (القيمة)
strSQLString = القيمة
نهاية الملكية
نمط تأجير الملكية العامة (القيمة)
strStyle = القيمة ()
نهاية الملكية
الملكية العامة احصل على النمط()
النمط = strStyle
نهاية الملكية
السماح للملكية العامة بـ UniqueField(القيمة)
strUniqueField = lcase(Value)
نهاية الملكية
الملكية العامة تحصل على UniqueField()
UniqueField = strUniqueField
نهاية الملكية
جدول تأجير الممتلكات العامة (القيمة)
strTable = lcase(القيمة)
نهاية الملكية
الملكية العامة GetTable()
الجدول = strTable
نهاية الملكية
الملكية العامة دع DbConn (القيمة)
strConn = القيمة
نهاية الملكية
الملكية العامة احصل على النسخة()
الإصدار = "1.0"
نهاية الملكية
الملكية العامة دع تباعد الخلايا (القيمة)
strcellspacecing = القيمة
نهاية الملكية
الملكية العامة احصل على تباعد الخلايا ()
تباعد الخلايا = تباعد الخلايا
نهاية الملكية
الملكية العامة تسمح بحشو الخلايا (القيمة)
strcellpadding = القيمة
نهاية الملكية
الملكية العامة احصل على cellpadding()
cellpadding = strCellspacing
نهاية الملكية
الملكية العامة تسمح CssClass(القيمة)
strCssClass = القيمة
نهاية الملكية
الملكية العامة احصل على CssClass()
CssClass = strCssClass
نهاية الملكية
الملكية العامة تسمح لـ BorderColor(القيمة)
strBorderColorDark = value
نهاية الملكية
الملكية العامة GetBorderColor()
BorderColor = strBorderColorDark
نهاية الملكية
الخلفية للملكية العامة (القيمة)
strBorderColorDark = value
strBackgroundColor = value
نهاية الملكية
الملكية العامة احصل على الخلفية()
BackGround = strBorderColorLight
نهاية الملكية
عرض الحدود للملكية العامة (القيمة)
intBorderWidth = value
نهاية الملكية
الملكية العامة GetBorderWidth()
BorderWidth = intBorderWidth
نهاية الملكية
الملكية العامة احصل على nColumns(intIndex)
nkeys = Columns.Keys
nItems = Columns.Items
لأني = 0 إلى عدد الأعمدة - 1
إذا كان intIndex = nkeys(i) إذن
تعيين تمب = nItems(i)
نهاية إذا
التالي
تعيين nColumns = tmp
نهاية الملكية
صفحة الوظائف الخاصة (الصفحة الإجمالية، رقم الصفحة، هذه الصفحة)
MinPage = هذه الصفحة - رقم الصفحة/2
إذا كانت MinPage <= 0 فإن MinPage = 1
'إذا كانت MinPage + رقم الصفحة/2 > إجمالي الصفحة، فإن Maxpage = إجمالي الصفحة وإلا Maxpage = MinPage + رقم الصفحة
لأني = MinPage إلى MinPage + رقم الصفحة -1
إذا كنت <= Totalpage بعد ذلك
إذا سينت (هذه الصفحة) <> سينت (أنا) ثم
strtemp = strtemp & "<a href="&pageURL&"&page=" & i &">" & i & "</a> "
آخر
strtemp = strtemp & i&" "
نهاية إذا
آخر
الصفحة = strtemp
وظيفة الخروج
نهاية إذا
التالي
الصفحة = strtemp
وظيفة النهاية
إنشاء الشبكة الفرعية العامة ()
nkeys = Columns.Keys
nItems = Columns.Items
إذا dg_action = "تحديث" ثم
خافت strsql
strsql = "تحديث"&جدول &"تعيين"
خافت ي
ي=0
لأني = 0 للفهرس - 1
إذا كان nItems(i).Columntype<>"edit" وnItems(i).Columntype <> "delete" وليس nItems(i).readonly وnItems(i).field<>uniquefield إذن
إذا كان j <> 0 ثم strsql = strsql & "،"
حدد حالة nItems(i).DataType
حالة "نص"
strsql = strsql & nItems(i).field & "='" & Request(nItems(i).field)&"' "
حالة "رقم"، "int"، "bigint"، "tinyint"
strsql = strsql & nItems(i).field & "=" & Request(nItems(i).field) & " "
حالة "التاريخ" و"الوقت" و"التاريخ والوقت"
strsql = strsql & nItems(i).field & "=convert(datetime,'" & Request(nItems(i).field)&"',102) "
حالة أخرى
strsql = strsql & nItems(i).field & "='" & Request(nItems(i).field)&"' "
نهاية التحديد
ي=ي+1
انتهي إذا
التالي
strsql = strsql & "حيث" & UniqueField &" = "& Uniquekey
تعيين أول = Server.CreateObject("adodb.recordset")
rst.Open strsql، connstr
'أولاً.إغلاق
تعيين الأول = لا شيء
تعيين strsql = لا شيء
انتهي إذا
إذا dg_action = "حذف" ثم
سترسكل = ""
strsql = "حذف من " & الجدول & " حيث " & UniqueField &" = "& مفتاح فريد
استجابة.اكتب strsql
تعيين أول = Server.CreateObject("adodb.recordset")
rst.Open strsql، connstr
'أولاً.إغلاق
تعيين الأول = لا شيء
انتهي إذا
إذا كان dg_action = "addnew" وisAddnew = 1 إذن
'خافتة strsql
تعيين أول = Server.CreateObject("adodb.recordset")
rst.open الجدول، connstr، 1،3،2
rst.addnew
ي=0
لأني = 0 للفهرس - 1
إذا كان nItems(i).Columntype<>"edit" وnItems(i).Columntype <> "delete" وليس nItems(i).readonly وnItems(i).field<>uniquefield إذن
إذا كان j <> 0 ثم strsql = strsql & "،"
حدد حالة nItems(i).DataType
حالة "نص"
rst(nItems(i).field) = طلب(nItems(i).field)
حالة "رقم"، "int"، "bigint"، "tinyint"
rst(nItems(i).field) = طلب(nItems(i).field)
حالة "التاريخ" و"الوقت" و"التاريخ والوقت"
rst(nItems(i).field) = طلب(nItems(i).field)
حالة أخرى
rst(nItems(i).field) = طلب(nItems(i).field)
نهاية التحديد
ي=ي+1
انتهي إذا
التالي
rst.update
تعيين الأول = لا شيء
انتهي إذا
rs.Open strSQLString,connstr,1,1
strTable= "<table border=" & intBorderWidth & " bordercolordark=" & strBorderColorDark & " bordercolorlight=" & strbordercolorlight & "class=" &cssclass & " cellpacing=0>" 'إضافة نمط
strTable = strTable & "<form action=" & formURL & "name=""gridform"" الطريقة=post>"
إذا كان PagePosition="up" أو PagePosition="updown" ثم strTable = strTable & "<tr><td colspan="& فهرس &">"& page(rs.PageCount,Pagenumber,currPage )&"</td>< /tr>"
strTable = strTable & "<tr bgcolor=" & strHeadBackgroudColor & ">"
لأني = 0 للفهرس - 1
إذا nItems(i).Title<>"" إذن
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & nItems(i).Title &"</td>"
آخر
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs.Fields(i).Item.Name &"</td>"
نهاية إذا
التالي
strTable = strTable & "</tr>"
إذا سينت (currPage) > سينت (rs.PageCount) ثم currPage = rs.PageCount
intPage = Pagesize
rs.PageSize = حجم الصفحات
rs.AbsolutePage = currPage
افعل بينما لا يكون rs.eof وintPage > 0
intPage = intPage - 1
dbuniquekey = rs(حقل فريد)
إذا كان intPage mod 2 إذن
strTable = strTable & "<tr>"
آخر
strTable = strTable & "<tr "& strAlternateStyle &">"
انتهي إذا
'response.Write len(dg_action)>0 و int(dbuniquekey) = int(uniquekey)
إذا كان dg_action = "تحرير" و int(dbuniquekey) = int(uniquekey) إذن
لأني = 0 للفهرس - 1
إذا كان nItems(i).Columntype<>"edit" وnItems(i).Columntype <> "delete" وليس nItems(i).readonly وnItems(i).field<>uniquefield إذن
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name = """ & rs.Fields(nItems(i).field).Name &""" value = "" " & rs(nItems(i).field) &"""></td>"
آخر
حدد حالة الأحرف lcase(nItems(i).Columntype)
حالة "التسمية"
strTable = strTable & "<td "& nItems(i).HTMLstr &">" & rs(nItems(i).field) &"</td>"
حالة "الإذاعة"
حالة "صورة"
الحالة "مربع الاختيار"
حالة "مربع النص"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=text name=""" & rs.Fields(i).Name &""" value=" & rs(nItems(i) ).field) &"></td>"
حالة "رابط"
حالة "تحرير"
إذا كان UniqueField = "" فإن ErrorMsg = "لم يتم تعيين UniqueField"
إذا dg_action = "تحرير" ثم
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href=""JavaScript:document.gridform.submit()"">"&nItems(i).UpdateCommandText&"</a> <a href ="&actionURL&">"&nItems(i).CancelCommandText&"</a></td>"
آخر
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href="&actionURL&"&dg_action=edit&uniquekey=" & rs(UniqueField) &">"&nItems(i).EditCommandText&"</a>< /td>"
نهاية إذا
حالة "حذف"
إذا كان UniqueField = "" فإن ErrorMsg = "لم يتم تعيين UniqueField"
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href="&actionURL&"&dg_action=delete&uniquekey=" & rs(UniqueField) &">"&nItems(i).DeleteCommandText&"</a>< /TD>"
حالة "تحديث"
حالة أخرى
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs(nItems(i).field) & "</td>"
نهاية التحديد
نهاية إذا
التالي
آخر
لأني = 0 للفهرس - 1
حدد الحالة lcase(nItems(i).Columntype)
حالة "التسمية"
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs(nItems(i).field) &"</td>"
حالة "الإذاعة"
حالة "صورة"
الحالة "مربع الاختيار"
حالة "مربع النص"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=text value=" & rs(nItems(i).field) &"></td>"
حالة "رابط"
حالة "تحرير"
إذا كان UniqueField = "" ثم ErrorMsg = "لم يتم تعيين UniqueField"
strTable = strTable & "<td " & nItems(i).HTMLstr & "><a href=" & actionURL & "&dg_action=edit&uniquekey=" & rs(UniqueField) & ">" & nItems(i).EditCommandText & " </a></td>"
حالة "حذف"
إذا كان UniqueField = "" فإن ErrorMsg = "لم يتم تعيين UniqueField"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><a href=" & actionURL & "&dg_action=delete&uniquekey=" & rs(UniqueField) &">" & nItems(i).DeleteCommandText&"< /أ></تد>"
حالة "تحديث"
حالة أخرى
strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs(nItems(i).Field) & "</td>"
نهاية التحديد
التالي
انتهي إذا
'انتهى إذا
rs.movenext
strTable = strTable & "</tr>"& vbcrlf
حلقة
إذا كان PagePosition = "down" أو PagePosition = "updown" ثم strTable = strTable & "<tr><td colspan = "& فهرس &">"& page(rs.PageCount,Pagenumber,currPage )
'strTable =strTable&"<tr>"
لأني = 0 للفهرس - 1
إذا كان nItems(i).Columntype<>"edit" وnItems(i).Columntype <> "delete" وليس nItems(i).readonly وnItems(i).field<>uniquefield إذن
'strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></ تد>"
آخر
'strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>"
نهاية إذا
التالي
strTable =strTable&"</tr>"
strTable = strTable & "</form></table>"
إذا كان isAddnew = 1 إذن
strTable = strTable & "<form action=""?dg_action=addnew"" name=""dgridadd"" طريقة =""post""><table border=" & intBorderWidth & " bordercolordark=" & strBorderColorDark & " bordercolorlight= "& strbordercolorlight & "cellpacing=0><tr>"
لأني = 0 للفهرس - 1
إذا كان nItems(i).Columntype<>"edit" وnItems(i).Columntype <> "delete" وليس nItems(i).readonly وnItems(i).field<>uniquefield إذن
strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs.Fields(nItems(i).field).Name &"</td>"
آخر
'strTable = strTable & "<td " & nItems(i).HTMLstr &">"&nItems(i).Title&"</td>"
نهاية إذا
التالي
strTable = strTable & "<tdrowspan=2><a href=""JavaScript:document.dgridadd.submit()"">جديد</a></td></tr><tr>"
لأني = 0 للفهرس - 1
إذا كان nItems(i).Columntype<>"edit" وnItems(i).Columntype <> "delete" وليس nItems(i).readonly وnItems(i).field<>uniquefield إذن
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></td >" & vbcrlf
آخر
'strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>"
نهاية إذا
التالي
strTable = strTable &"</tr></table></form>"
انتهي إذا
الاستجابة.اكتب strTable
نهاية الفرعية
عمود إضافي فرعي عام(cColumn)
'تعيين تيم = عمود جديد
'tem = cColumn
'response.اكتب cColumn.ColumnHTMLstr
الأعمدة. أضف الفهرس، cColumn
الفهرس = الفهرس + 1
'الأعمدة.العناصر(i)
نهاية الفرعية
نهاية الفصل
عمود الطبقة
النوع الخاص
سلسلة خاصة
أسلوب خاص
نص العمود الخاص
عرض خاص
ارتفاع خاص
سترفيلد الخاص
عنوان خاص
حدث خاص
فئة strCss الخاصة
نص خاص
خاص strEditCommandText،strUpdateCommandText،strCancelCommandText،strDeleteCommandText
strRegExp الخاص
سلسلة خاصة للقراءة فقط
نوع strDataType الخاص
العامة MaxValue،MinValue،MaxLength،MinLength،IsEmpty،IsChar،IsNumber،isCharNumber،isDate،isEmail
فئة فرعية خاصة_Initialize()
نوع العمود = "النص"
strEditCommandText = "تحرير"
strUpdateCommandText = "تحديث"
strCancelCommandText = "إلغاء"
strDeleteCommandText = "حذف"
نهاية الفرعية
فئة فرعية خاصة_Terminate()
نهاية الفرعية
اسمحوا للملكية العامة بنوع العمود (القيمة)
strType = lcase(القيمة)
نهاية الملكية
الملكية العامة احصل على Columntype()
ColumnType = strType
نهاية الملكية
ملكية عامة دع الفقرة (القيمة)
الفقرة = القيمة
نهاية الملكية
الملكية العامة دع ParaLink (القيمة)
ParaLink = استبدال (القيمة،"{0}"، الفقرة)
نهاية الملكية
الملكية العامة دع اسم التحكم (القيمة)
اسم التحكم = القيمة
نهاية الملكية
نمط تأجير الملكية العامة (القيمة)
strStyle = القيمة
نهاية الملكية
ملكية عامة Let Eventstr(القيمة)
strEvent = Value
نهاية الملكية
الملكية العامة دع محاذاة (القيمة)
strAlign = القيمة
نهاية الملكية
الملكية العامة GetAlign()
محاذاة = strAlign
نهاية الملكية
الملكية العامة GetEventstr()
Eventstr = strEvent
نهاية الملكية
عرض الممتلكات العامة (القيمة)
intWidth = القيمة
نهاية الملكية
حقل تأجير الملكية العامة (القيمة)
strField = lcase(القيمة)
نهاية الملكية
الملكية العامة احصل على الحقل()
الحقل = strField
نهاية الملكية
ملكية عامة عنوان الإيجار (القيمة)
إذا كانت القيمة = "" ثم strTitle = strField وإلا strTitle = القيمة
نهاية الملكية
الملكية العامة احصل على العنوان()
إذا strTitle = "" ثم العنوان = strField عنوان آخر = strTitle
نهاية الملكية
الملكية العامة دع CssClass(القيمة)
strCssClass = القيمة
نهاية الملكية
الملكية العامة احصل على CssClass()
CssClass = strCssClass
نهاية الملكية
ملكية عامة نوع البيانات (القيمة)
strDataType = lcase(القيمة)
نهاية الملكية
الملكية العامة احصل على DataType()
DataType = strDataType
نهاية الملكية
نص دع الملكية العامة (القيمة)
حدد قيمة الحالة
قضية ""
strText = strType
حالة فارغة
strText = strType
حالة أخرى
strText = القيمة
حدد النهاية
نهاية الملكية
الملكية العامة احصل على نص ()
النص = strText
نهاية الملكية
الملكية العامة دعها للقراءة فقط (القيمة)
إذا كانت القيمة = "" أو كانت خالية (قيمة) فإن strReadOnly = False وإلا strReadOnly = value
نهاية الملكية
الملكية العامة احصل على القراءة فقط ()
للقراءة فقط = strReadOnly
نهاية الملكية
السماح للملكية العامة بتحرير نص الأوامر (القيمة)
strEditCommandText = Value
نهاية الملكية
الملكية العامة احصل على EditCommandText()
EditCommandText = strEditCommandText
نهاية الملكية
الملكية العامة تسمح لـ UpdateCommandText(Value)
strUpdateCommandText = Value
نهاية الملكية
الملكية العامة GetUpdateCommandText()
UpdateCommandText = strUpdateCommandText
نهاية الملكية
الملكية العامة تسمح بإلغاء الأمرCommandText(Value)
strCancelCommandText = Value
نهاية الملكية
الملكية العامة احصل على CancelCommandText()
CancelCommandText = strCancelCommandText
نهاية الملكية
الملكية العامة تسمح بحذفCommandText(Value)
strDeleteCommandText = Value
نهاية الملكية
الملكية العامة احصل على RemoveCommandText()
DeleteCommandText = strDeleteCommandText
نهاية الملكية
الملكية العامة دع RegExp(القيمة)
strRegExp = القيمة
نهاية الملكية
الملكية العامة احصل على RegExp()
RegExp = strRegExp
نهاية الملكية
الملكية العامة احصل على HTMLstr()
درجة الحرارة = ""
إذا intWidth <> "" ثم tempstr = tempstr & " width = """ & intWidth & """"
إذا كان intHeight <> "" ثم tempstr = tempstr & " height =""" & intHeight & """"
إذا كانت strStyle <> "" ثم tempstr = tempstr & " style = """ & strStyle & """"
إذا كان strEvent <> "" ثم tempstr = tempstr & " " & strEvent
إذا كانت strAlign <> "" ثم tempstr = tempstr & " align = """ & strAlign & """"
HTMLstr = tempstr
نهاية الملكية
نهاية الفصل
%>