การใช้ WebClient สำหรับเรียก URL

Dim _url As String = "https://www.MyDomain.com/?q=ทดสอบ"

Dim wc As New System.Net.WebClient()

wc.Encoding = System.Text.Encoding.UTF8

' เสนอการใช้งาน 3 แบบคือ

' 1) ใช้เรียก HTML ของเว็บไซต์นั้นแล้วส่งค่าให้ตัวแปร

Dim Result As String = wc.DownloadString(_url) 

' 2) ใช้ส่งค่าไปยังเว็บไซต์ผ่าน URL
wc.OpenRead(_url)

' 3) เรียก HTML แล้วนำไปสร้างเป็นไฟล์ในเครื่องเรา
wc.DownloadFile(_url, "C:\Log Files\123.html")

 

wc.Dispose()

wc = Nothing

 

'******************* อีกแบบครับ ****************

Dim HttpWebRequestX As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(_url), System.Net.HttpWebRequest)

HttpWebRequestX.Method = "GET"

Dim WebResponseX As System.Net.WebResponse = HttpWebRequestX.GetResponse()

Dim StreamReaderX As System.IO.StreamReader = New System.IO.StreamReader(WebResponseX.GetResponseStream(), System.Text.Encoding.UTF8)

Dim Source As String = StreamReaderX.ReadToEnd()

StreamReaderX.Close()

WebResponseX.Close()

วิธีการเรียกข้อมูลจาก Item ใน Repeater ด้วยการคลิกที่ button

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

                <HeaderTemplate>

 

                </HeaderTemplate>

                <ItemTemplate>

                    <div>

                        <asp:TextBox ID="txt_member_print_vocab_num" runat="server" Text='<%#Eval("member_print_vocab_num").ToString  %>'></asp:TextBox>

                      <%#Eval("member_print_vocab_num").ToString  %>

                        <%#Eval("member_code").ToString  %>

                        <%#Eval("member_email").ToString  %>

                        <%#Eval("member_Fullname").ToString  %>

                       

                    </div>

                </ItemTemplate>

                <FooterTemplate>

                </FooterTemplate>

            </asp:Repeater>

 

            <asp:Button ID="Button1" runat="server" Text="OKkkkk" /> 

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

    Protected Sub Page_Load() Handles Me.Load

        Dim sql As String = ""

        sql = "SELECT  ……. WHERE  ……"

        Dim obj As New MyClassExecuteData

        Repeater1.DataSource = obj.GetDataTable(sql)

        Repeater1.DataBind()

        obj = Nothing

    End Sub

 

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim ss As Double

        For Each item As RepeaterItem In Repeater1.Items

            Dim txt_member_print_vocab_num As TextBox = item.FindControl("txt_member_print_vocab_num")

            ss = ss + Val(txt_member_print_vocab_num.Text)

        Next

 

        Button1.Text = ss

    End Sub

การใช้ AJAX ใน ASP.NET ร่วมกับ JavaScript and XML โดยการส่งค่าผ่าน URL

<a href="javascript:void(0)" onclick="showHint('ทดสอบๆ')"> บันทึก </a>

<script>

    function showHint(str) {

        if (str.length == 0) {

      alert("ไม่มีข้อความ");

                 return;

   } else {

                            var xmlhttp = new XMLHttpRequest();

      xmlhttp.onreadystatechange = function() {

                         if (this.readyState == 4 && this.status == 200) {

                    alert(this.responseText);

            }

      };

      alert(str);

      xmlhttp.open("GET", "<%= Request.Url.AbsoluteUri%>" + "&xyz=" + str, true); // ค่าที่แอบส่งไปพร้อมกับ URL

      xmlhttp.send();

    }

    }

</script>

ที่มา: https://www.w3schools.com/asp/asp_ajax.asp

optimize : Fast loading image โหลดเพจให้เร็วด้วย b-lazy

<style>

    .b-lazy {

        -webkit-transition: opacity 500ms ease-in-out;

        -moz-transition: opacity 500ms ease-in-out;

        -o-transition: opacity 500ms ease-in-out;

        transition: opacity 500ms ease-in-out;

        max-width: 100%;

        opacity: 0;

    }

    .b-lazy.b-loaded {

        opacity: 1;

    }

</style>

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

<script type="text/javascript" src="/script/js/blazy.js"></script>

<script>

    ;(function() {

        var bLazy = new Blazy();

    })();

</script>

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

<img  class="b-lazy" src="data:image/gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw==" data-src="/images/translator-6.png" alt="คำอธิบายภาพ">

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

อ้างอิง:   http://dinbror.dk/blazy/examples/?ref=blog

optimize Image and file เข้ารหัส รูปภาพและไฟล์ ด้วย GZipStream

ติดตั้ง Microsoft.AspNet.Web.Optimization ก่อนตามขั้นตอนในรูปภาพ

จากนั้นคัดลอกคำสั่ง และวางลงไป

PM> Install-Package System.IO.Compression -Version 4.3.0

รอสักครู่........จกมีข้อความแจ้งผลสำเร็จ

Successfully installed 'Microsoft.AspNet.Web.Optimization 1.1.3' to XXXXXXXXXXXXXXXXX

Executing nuget actions took 1.48 sec

Time Elapsed: 00:00:03.7181004

ในโค้ดหลักให้คัดลอกโค้ดส่วนนี้ไปวาง

Imports System.IO.Compression

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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Filter = New GZipStream(Response.Filter, CompressionMode.Compress)
        Response.AddHeader("Content-Encoding", "gzip")

    End Sub