نحوه ايجاد كنترل های سرويس دهنده توسط اسكريپت

كنترل های پويا در ASP.NET ( بخش دوم )
در بخش اول به ضرورت استفاده پويا از كنترل های سرويس دهنده در برنامه های وب اشاره و با نحوه ايجاد ، دستيابی به خصلت ها و توليد رويدادها توسط اسكريپت آشنا شديم . در اين بخش به بررسی يك نمونه مثال كاربردی خواهيم پرداخت تا توان خود را جهت ايجاد كنترل های سرويس دهنده به صورت پويا افزايش دهيم .
به دليل استفاده از كنترل <asp:Literal > ، در ابتدا با اين كنترل و جايگاه استفاده از آن آشنا می شويم .

كنترل سرويس دهنده <asp:Literal >
در زمان كدينگ برنامه های وب به مواردی برخورد خواهيم كرد كه لازم است متن و يا تگ های XHTML را به يك PlaceHolder به منظور كمك در مديريت و فرمت كنترل هائی كه به صورت پويا ايجاد شده اند ، اضافه نمائيم . به عنوان نمونه ، ممكن است لازم باشد كه يك پاراگراف ، خطوط خالی و يا كاراكترهای خاصی را به همراه كنترل ها استفاده نمائيم تا آنها با يك فرمت مناسب بر روی صفحه نمايش داده شوند . با توجه به اين كه متن ، رشته و يا تگ های XHTML را نمی توان در PlaceHolder قرار داد ، می بايست آنها را توسط اسكريپت در زمان ايجاد كنترل ها به PlaceHolder اضافه نمود . در چنين مواردی می توان از كنترل <asp:Literal > استفاده نمود .
ايجاد كنترل Literal توسط اسكريپت همانند ساير كنترل های سرويس دهنده در ASP.NET است . بدين منظور كافی است كه كنترل به عنوان يك كنترل Literal تعريف و به خصلت Text آن يك متن و يا رشته مبتنی بر XHTML نسبت داده شود و در ادامه آن را به PlaceHolder اضافه كرد .از كنترل های Literal به تعداد مورد نياز می توان در يك PlaceHolder استفاده نمود .
در كد زير ، يك كنترل Literal تعريف تا در ادامه يك خط خالی در بين ساير كنترل های پويای ايجاد شده ، اضافه نمايد .

مثال : ايجاد كنترل های سرويس دهنده با استفاده از اسكريپت
در اين مثال قصد داريم متناسب با هر يك از گروه مقالات تعريف شده در بانك اطلاعاتی مقالات ، دكمه هائی را بر روی يك فرم وب قرار دهيم تا كاربران پس از كليك بر روی هر يك از آنها ، مقالات مربوط به گروه انتخابی را مشاهده نمايند .دكمه ها به صورت پويا و در زمان اجراء ايجاد خواهند شد و متناسب با تغيير داده موجود در بانك ، وضعيت آنها نيز تغيير خواهد كرد . شكل زير ، خروجی برنامه را نشان می دهد .

بدين منظور از يك بانك اطلاعاتی اكسس با نام Maghalat_Srco.mdb كه شامل دو جدول Article_Type و Article_Spec است ، استفاده خواهيم كرد . در اولين جدول با نام Article_Type ، گروه های مختلف مقالات ذخيره می گردد .

جدول Article_Type
نام فيلد	نوع
Group_ID	AutoNumber ، Primery Key
Name	Text
Description	Text

در جدول دوم با نام Article_Spec ، مشخصات هر يك از مقالات ذخيره می گردد .

جدول Article_Spec
نام فيلد	نوع
Article_ID	AutoNumber ، Primery Key
Group_ID	Number , Integer
Title	Text

در ادامه يك فرم وب با نام Show_Article_By_Group.aspx را ايجاد می نمائيم كه در هر يك از بخش های Script و Html آن از امكانات متعددی استفاده شده است .

در بخش Html از سه كنترل سرويس دهنده با اهداف زير استفاده شده است :

در بخش script از دو روتين Page_Load و Get_Article با اهداف زير استفاده شده است .

<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Drawing" %>

<SCRIPT Runat="Server">

Sub Page_Load

Dim DBConnection As OleDbConnection
Dim DBCommand As OleDbCommand
Dim DBReader As OleDbDataReader
Dim SQLString As String
Dim Counter As Integer = 0

DBConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("~/OurDataBase/Maghalat_Srco.mdb"))
DBConnection.Open()

SQLString = "SELECT DISTINCT Group_ID , Name FROM Article_Type order by Name"
DBCommand = New OleDbCommand(SQLString, DBConnection)
DBReader = DBCommand.ExecuteReader()

While DBReader.Read()
Dim MyButton as New Button
MyButton.Text = DBReader("Name")
MyButton.CommandName = DBReader("Group_ID")
MyButton.Width = Unit.Parse("100px")
MyButton.Font.Size = FontUnit.Parse("8pt")
MyButton.Font.Name = "Tahoma"
AddHandler MyButton.Command, AddressOf Get_Articles
ButtonArea.Controls.Add(MyButton)
Dim MyBlank As New Literal
MyBlank.Text = "  "
ButtonArea.Controls.Add(MyBlank)
Counter += 1
If Counter Mod 3 = 0 Then
      Dim MyBreak As New Literal
      MyBreak.Text = "<br/>"
      ButtonArea.Controls.Add(MyBreak)
End If
End While
DBReader.Close()
DBConnection.Close()

End Sub

Sub Get_Articles (Src as Object, Args As CommandEventArgs)

Dim SQLString As String
SQLString = "SELECT Title ,Description FROM Article_Spec " & _
"WHERE Group_ID = " & Args.CommandName & "

ArticlesSource.SelectCommand = SQLString

End Sub

</SCRIPT>
<form Runat="Server">
ايجاد كنترل های سرويس دهنده به صورت پويا

<asp:PlaceHolder id="ButtonArea" Runat="Server"/>

<asp:AccessDataSource id="ArticlesSource" Runat="Server"
    DataFile="~/OurDataBase/Maghalat_Srco.mdb"
    SelectCommand="SELECT Title , Description FROM Article_Spec "/>

<asp:GridView id="BookGrid" DataSourceID="ArticlesSource" Runat="Server" />

</form>