Redirect ไปยังหน้าเพจอื่นโดยใช้ TextBox Search โดยการ Enter

จากโค้ดเป็นการสั่งให้ Redirect ไปยังหน้าเพจค้นหา โดยรับค่าจาก TextBox Search เมื่อพิมพ์ข้อความแล้ว ต้องกด ปุ่ม Enter ที่แป้นคีย์บอร์ด จากนั้นคำค้นจะถูกส่งผ่าน URL เพื่อทำการค้นหาในหน้าเพจที่เราต้องการ

form onkeypress ="javascript:return  searchActive(event);" >

    <div class="form-group">

        <input type="text" id="top_search" name="top-search" runat ="server" >

    </div>

</form>

<script type="text/javascript">

    function searchActive(evt) {

        var charCode = (evt.which) ? evt.which : event.keyCode;

        if (charCode == 13) {

            window.location.replace("/?search=" + document.getElementById('<%=top_search.ClientID%>').value);

            return false;

        }

    }

</script>

ฟังก์ชั่นในการปัดเศษ Math.Ceiling

หากต้องการปัดเศษ เพื่อการคำนวณหรือแสดงผล เช่นในตัวอย่างเป็น โปรเจค บทเรียนออนไลน์ที่ผู้สอนสามารถกำหนดร้อยละในการผ่านเกณฑ์ (ในภาพคือ 75%) ซึ่งผลเรียนจะต้องผ่าน 7.5 ข้อขึ้นไป แต่หากข้อสอบมีการนับเป็นจำนวนเต็ม ซึ่งต้องแสดงผล คือ 8 ข้อ เราสามารถเขียนชุดคำสั่ง ดังตัวอย่างนี้

----------------------- VB.NET SourceCode----------------------------

Dim num As Double = Math.Ceiling((10 * 75) / 100)

------------------------------------------------------------

Dim press As Integer = Math.Ceiling((Repeater1.Items.Count - 1) * Val(hdd_Present.Value) / 100)

------------------------------------------------------------

ตารางซ้อนตาราง (Repeater in Repeater) ASP.NET & VB.NET

*********************  ASP.NET Code ***********************
<asp:Repeater ID="ParentRepeater" runat="server">

    <ItemTemplate>

        <!-- Repeated data -->

        <asp:Repeater ID="ChildRepeater" runat="server">

            <ItemTemplate>

                <!-- Nested repeated data -->

            </ItemTemplate>

        </asp:Repeater>

    </ItemTemplate>

</asp:Repeater>

*********************  VB.NET Code ***********************
Private Sub ParentRepeater_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles ParentRepeater.ItemDataBound

Dim ChildRepeater As Repeater = e.Item.FindControl("ChildRepeater")

Dim SQL As String

       SQL = "SELECT………FROM ………"

       ChildRepeater.DataSource = objMyClassExecuteData.GetDataTable(SQL)

       ChildRepeater.DataBind()

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    Dim SQL As String

    SQL = "SELECT………FROM ………"

    ParentRepeater.DataSource = objMyClassExecuteData.GetDataTable(SQL)

    ParentRepeater.DataBind()
End Sub


อ้างอิง:http://stackoverflow.com/questions/2923137/repeater-in-repeater

คำสั่ง เลือกทั้งหมด โดยใช้ CheckBox แสดงผลรายการข้อมูลด้วย Repeater

<asp:Repeater id="myRepeater" runat="server"  >

       <HeaderTemplate>

              <table  class ="table  table-bordered">

                     <tr>

                <th>

                   <input id="chkAll" onclick="javascript: SelectAllCheckboxes(this);"

                   runat="server" type="checkbox"  /> <b style="color :red"> เลือกทั้งหมด</b>

                </th>

                     </tr>

       </HeaderTemplate>

       <ItemTemplate>

              <tr>

            <td>

                <asp:CheckBox ID="chkSelect" runat="server"  /> <%# Eval("student_Fullname")%>

            </td>

              </tr>              

       </ItemTemplate>

    <FooterTemplate>

        </table>

    </FooterTemplate>

       </asp:Repeater>

<script language="javascript">

    function SelectAllCheckboxes(spanChk) {

        // Added as ASPX uses SPAN for checkbox

        var oItem = spanChk.children;

        var theBox = (spanChk.type == "checkbox") ?

            spanChk : spanChk.children.item[0];

        xState = theBox.checked;

        elm = theBox.form.elements;

        for (i = 0; i < elm.length; i++)

            if (elm[i].type == "checkbox" &&

                     elm[i].id != theBox.id) {

                //elm[i].click();

                if (elm[i].checked != xState)

                    elm[i].click();

                //elm[i].checked=xState;

            }

    }

</script>

********************** Source Code **************************************

Function SaveData() As Boolean

 With myRepeater

  Dim i As Integer

  Dim sql, sqlScore As New StringBuilder

  Dim score As Integer

   For i = 0 To .Items.Count - 1

    Dim chkSelect As CheckBox = CType(.Items(i).FindControl("chkSelect"), CheckBox)

   Next

 End With

End Function