วนรอบหาค่าใน Object ที่ส่งมาจาก Stored Procedure

Dim objMail As New DataClassesHomeDataContext

Dim mail As String

Dim result = objMail.mod_getEditor_Mail().ToList.FindAll(Function(p) Not p.regEmail = "")

For Each p In result

   mail += p.regEmail.ToString & ";"

Next

Repeater1_ItemCommand และ Repeater1_ItemDataBound

<asp:Repeater ID="Repeater1"  runat="server" DataSourceID="LinqDataSource1"  >

            <ItemTemplate>

                <asp:HiddenField ID="hddA" runat="server" Value ='999' />

            </ItemTemplate>

            <FooterTemplate>

                   

            </FooterTemplate>

</asp:Repeater>

Private Sub Repeater1_ItemCommand(source As Object, e As RepeaterCommandEventArgs) Handles Repeater1.ItemCommand

End Sub

Private Sub Repeater1_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles Repeater1.ItemDataBound

        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then

            Dim hddA As HiddenField = e.Item.FindControl("hddA ")

        End If

        If e.Item.ItemType = ListItemType.Footer Then

        End If

End Sub

javascript: How to upload a file on the click of a button.

<script type="text/javascript">

function loadCommand(btn) {

document.getElementById("fiUpload").click();

}

function AlertFilesize(ClientID) {

if (window.ActiveXObject) {

var fso = new ActiveXObject("Scripting.FileSystemObject");

var filepath = ClientID.value;

var thefile = fso.getFile(filepath);

var sizeinbytes = thefile.size;

} else {

var sizeinbytes = ClientID.files[0].size;

}

var fSExt = new Array('Bytes', 'KB', 'MB', 'GB');

fSize = sizeinbytes / 1024; i = 0;

if (Math.round(fSize * 100) / 100 >= 7168) {

ClientID.value = null;

alert("ขนาดเกิน:" + fSize);

}

document.getElementById("btnLoad").innerHTML = '<i class="fa fa-spinner fa-spin fa-lg"></i> Please Wait';

document.getElementById("btnUpload").click();

}

</script>

<asp:FileUpload ID="fiUpload" runat="server" Width="455px"   style ="display:none" onchange="AlertFilesize(this);" />

<asp:LinkButton ID="btnUpload" runat="server"  style ="display:none"   ></asp:LinkButton>                                      

<input id ="btnLoad" type ="button" onclick="loadCommand(this); return;" value ="Upload File" />

************** VB.net ****************

    Protected Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click

        fiUpload.SaveAs(Server.MapPath(fiUpload.FileName))

    End Sub

wait for button click javascript

<script type="text/javascript">

     function loadCommand(btn) {

         /*document.getElementById("btnUpload").innerHTML = '<i class="fa fa-spinner fa-spin fa-lg"></i> Please Wait';*/

         btn.innerHTML = '<i class="fa fa-spinner fa-spin fa-lg"></i> Please Wait';

     }

</script>

***********************

<asp:LinkButton ID="btnUpload" runat="server" CssClass="btn-u btn-u-orange btn-u-lg" OnClientClick ="loadCommand(this);" > upload file</asp:LinkButton>

***********************

http://fortawesome.github.io/Font-Awesome/examples/

GridView1_RowCommand

    Private Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand

        Select Case e.CommandName

            Case "btnOk"

                Dim row As GridViewRow = DirectCast(DirectCast(e.CommandSource, Control).NamingContainer, GridViewRow)

                Dim projectID As HiddenField = DirectCast(row.FindControl("projectID"), HiddenField)

                Dim txtNote As TextBox = DirectCast(row.FindControl("txtNote"), TextBox)

                Dim obj As New DataClassesProjectViewDataContext

                obj.ProjectCancelUpdateComment(projectID.Value, txtNote.Text)

        End Select

    End Sub

Request.Form --Checkbox

                  <div class="form-group">

                  <div >

                    <div class="checkbox">

                      <label>

                        <input id="chkTerms2" name="chkTerms2"  value="1" checked="checked" type="checkbox">

                     <strong>   &nbsp;ฉันอ่านและยอมรับเงื่อนไข </strong></label>

                    </div>

                  </div>

                </div>

**********************************************************

Dim b_chkTerms As Boolean = Val(Request.Form("chkTerms2"))

ส่งชุดคำสั่ง SQL ไปยัง Stored Procedure ประมวลผลครั้งเดียวทีละหลายๆคำสั่ง

--------------- ใน ฟอร์ม -----------------

* ท้ายคำสั่ง SQL อย่างลืมปิดด้วยเครืองหมาย ; นะครับ

sql.Append("UPDATE student SET student_score=1,student_scoreComment='ทดสอบครั้งที่ 1' WHERE student_ID='0001';")

sql.Append("UPDATE student SET student_score=1,student_scoreComment='ทดสอบครั้งที่ 2' WHERE student_ID='0002';")

sql.Append("UPDATE student SET student_score=1,student_scoreComment='ทดสอบครั้งที่ 3' WHERE student_ID='0003';")

Dim obj As New DataClasses_viewDataContext

obj.teacher_Save_activity(sql.ToString)

--------------- ใน Stored Procedure -----------------

CREATE PROCEDURE [dbo].[teacher_Save_activity]

(

       @prmSQL as  text

)

AS

BEGIN

       EXECUTE (@prmSQL);

END

GO