تحليل طريقة تنفيذ الإضافة الديناميكية ورمز نموذج تطبيق ASP

<table border = 0 width = 98 ٪ id = tabzx name = tabzx align = center

class = table_list>

<tr>

<td class = th_list عرض = 10 ٪>

العمود أ

</td>

<td class = th_list width = 10 ٪ align = center>

العمود ب </td>

<td class = th_list width = 10 ٪ align = center>

العمود ج

</td>

<td class = th_list width = 5 ٪ align = center>

العمود د

</td>

<td class = th_list width = 5 ٪ align = center>

العمود ه

</td>

<td class = th_list width = 5 ٪ align = center>

العمود و

</td> <٪-

<td class = th_list عرض = 7 ٪ محاذاة = المركز>

العمود ز

</td>

-٪> <td class = th_list عرض = 13 ٪>

[

<a href = javaScript: doselect (450،400 ، 'formedit.supplyid')> <font

color = ff0000> حدد الجهاز </font> </a>]

</td>

</r>

</table>

رمز JS كما يلي (تنبثق قائمة الأجهزة وفقًا للشروط ، ثم حدد الجهاز الحالي)

دالة doselect (العرض ، الارتفاع ، ctrlobj) {

var k ؛

var s = new Object () ؛

k = showmodaldialog (/applications_add_addsearch.jsp،s،dialogwidth:320px ؛status: no؛scroll:no؛dialogheight:280px) ؛

إذا (k! = خالية)

{

var url = /applicationsaction.do؟method=InsertAddSeach&stid=K Budap0] & sbid = k [1] & ggid = k [2] ؛

Window.Open (url ، 'newWindow' ، 'height = 600 ، width = 800 ، شريط الأدوات = لا ، menubar = no ، scrollbars = نعم ، resizable = لا ، الموقع = لا ، الحالة = لا ") ؛

}

}

====================================

إضافة رمز البيانات ديناميكيًا وفقًا للتحديد

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

قاتمة lcountmx

lcountmx = 0

وظيفة BADD (Stid ، Stname ، VCID ، VCNAME ، GGID ، GGNAME ، DWEI ، SLIANG ، DJIA)

lcountmx = lcountmx 1

قاتمة OROW ، OCELL ، II

SET OROW = TABZX.INSERTROW

orow.id = trzx & lcountmx

تعيين Ocell = orow.insertcell

DIM SSS

sss = <إدخال نوع = hidden name = cgdjmx & lcountmx & value =>

sss = sss & <input type = hidden name = stid & lcountmx & value = & stid &>

sss = sss & <input type = hidden name = stname & lcountmx & value = & stname &>

sss = sss & <input type = hidden name = vcid & lcountmx & value = & vcid &>

sss = sss & <input type = hidden name = ggid & lcountmx & value = & ggid &>

SSS = SSS و Stname

ocell.innerhtml = ss

Ocell.ClassName = listCellRow

تعيين Ocell = orow.insertcell

Ocell.ClassName = listCellRow

OCELL.Align = المركز

OCELL.WIDTH = 60

OCELL.INNERHTML = <input type = hidden name = vcname & lcountmx & value = & vcname &> & vcname

تعيين Ocell = orow.insertcell

Ocell.ClassName = listCellRow

OCELL.Align = المركز

OCELL.WIDTH = 60

OCELL.INNERHTML = <إدخال نوع = hidden name = ggname & lcountmx & value = & ggname &> & ggname

تعيين Ocell = orow.insertcell

Ocell.ClassName = listCellRow

OCELL.Align = المركز

OCELL.WIDTH = 60

ocell.innerhtml = <input type = text size = 10 name = thao & lcountmx & value = ''>

تعيين Ocell = orow.insertcell

Ocell.ClassName = listCellRow

OCELL.Align = المركز

OCELL.WIDTH = 60

OCELL.INNERHTML = <إدخال نوع = hidden name = dwei & lcountmx & value = & dwei &> & dwei

تعيين Ocell = orow.insertcell

Ocell.ClassName = listCellRow

OCELL.Align = المركز

OCELL.WIDTH = 60

ocell.innerhtml = <input type = text size = 3 name = sliang & lcountmx & onchange = 'changefun (& lcountmx &)' value = ''>

<٪-

تعيين Ocell = orow.insertcell

Ocell.ClassName = listCellRow

OCELL.Align = المركز

OCELL.WIDTH = 60

OCELL.INNERHTML = <إدخال نوع = حجم النص = 3 name = djia & lcountmx & onchange = 'changefun1 (& lcountmx &)' value = ''>

-٪>

تعيين Ocell = orow.insertcell

Ocell.ClassName = listCellRow

ocell.innerhtml = <input type = 'button' value = 'delete' onClick = 'vbscript: bdel (& lcountmx &)' id = button7 name = button7>

OCELL.Align = المركز

document.applicationsform.ypsl.value = lcountmx

وظيفة نهاية

وظيفة bdel (ل)

tabzx.deleterow document.getElementById (Trzx & L) .RowIndex

وظيفة نهاية

وظيفة التغيير (OBJ1)

تغيير OBJ1

وظيفة نهاية

الوظيفة changeFun1 (OBJ1)

Change1 OBJ1

وظيفة نهاية

</script>

=============================