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

เรียกใช้ Web Control ใน Repeater จากปุ่ม Button ด้วยคำสั่ง FindControl

    Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

        With Repeater1

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

            chkSelect.Checked = True

        End With

    End Sub

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

อีกตัวอย่างนะครับ คือ เป็นการวนรอบ ในการเรียกค่าจาก Web control ในแต่ละแถว

    Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

        With Repeater10

            Dim i As Integer

            For i = 0 To .Items.Count - 1

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

                Dim chk As String = chkSelect.Checked

            Next

        End With

    End Sub

GridView1 RowDataBound (DataControlRowType.Footer)

<asp:GridView ID="GridView1" runat="server" AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False"

    CssClass="table table-striped table-bordered table-hover" DataKeyNames="slide_ID" DataSourceID="LinqDataSource1" GridLines="None">

    <Columns>

        <asp:BoundField DataField="slide_type" HeaderText="ประเภท" SortExpression="slide_type">

        <HeaderStyle Width="150px" />

        <ItemStyle HorizontalAlign="Center" />

        </asp:BoundField>

        <asp:BoundField DataField="slide_img" HeaderText="ตำแหน่งรูปภาพ" SortExpression="slide_img" />

        <asp:CommandField ButtonType="Button" SelectText="แก้ไข" ShowSelectButton="True" />

       <asp:TemplateField >

           <ItemTemplate >

               <asp:HiddenField ID="hddslide_ID" runat="server" Value ='<%# Eval("slide_ID")%>'  />

           </ItemTemplate>

       </asp:TemplateField>

    </Columns>

</asp:GridView>

<div class="pull-right well" >

    <div class =""> ผลรวม :

            <asp:Literal ID="ltrSum" runat="server"></asp:Literal>

        </div>

</div>

   

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

Private Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView1.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then

            Try

                Dim hddslide_ID As HiddenField = CType(e.Row.FindControl("hddslide_ID"), HiddenField)

                sum = sum + Val(hddslide_ID.Value)

            Catch ex As Exception

            End Try

        End If

        If e.Row.RowType = DataControlRowType.Footer Then

            ltrSum.Text = sum

        End If

    End Sub