Morpheusweb.it - Risorse per webmaster: script, ASP.NET, C#, Visual Basic .Net, tutorial, asp, javascript, css, php, html, java, ADO, VBScript, forms, frames, Active Server Pages, Dynamic HTML, database, gratis per webmaster e webdesigner

HttpRequest - << VERSIONE C# >>

Inviare delle richieste Http e leggerne le risposte

<%@ Import namespace="System.Net" %>
<%@ Import namespace="System.IO" %>
<%@ Page Language="vb" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
  lbHtml.Text = ""
End Sub
Private Sub BTNSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  'Crea la richiesta
  Try
    Dim wrRequest As WebRequest
    wrRequest = WebRequest.Create(txtURL.Text)
    'ottiene la risposta
    Dim wrResponse As WebResponse = wrRequest.GetResponse()
    'mostra gli header ricevuti
    Dim strHeader As String
    lbHtml.Text += "<p><b>Response Header</b><br>"
    For Each strHeader In wrResponse.Headers
      lbHtml.Text += strHeader + "--" _
        + wrResponse.Headers(strHeader) + "<br>"
    Next
    'Lege la pagina ricevuta
    Dim objStream As Stream = wrResponse.GetResponseStream()
    Dim objStreamReader As StreamReader = New StreamReader(objStream)
    lbHtml.Text += objStreamReader.ReadToEnd()
    Catch ex As Exception
    lbHtml.Text += "Errore:" & ex.Message
  End Try
End Sub
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<TABLE id="Table1" cellSpacing="1" cellPadding="1" width="474" border="0" bgColor="white"
style="WIDTH: 474px; HEIGHT: 55px">
<TR>
<TD style="WIDTH: 102px; HEIGHT: 3px">
<asp:Label id="LBLAddress" runat="server" Width="124px" Font-Size="X-Small" Font-Names="Verdana">Inserisci l'indirizzo</asp:Label></TD>
<TD style="WIDTH: 315px; HEIGHT: 3px">
<asp:TextBox id="txtURL" runat="server" Width="351px" Font-Size="X-Small" Font-Names="Verdana">http://</asp:TextBox></TD>
</TR>
<TR>
<TD style="WIDTH: 102px; HEIGHT: 3px"></TD>
<TD style="WIDTH: 315px; HEIGHT: 3px">
<asp:Button OnClick="BTNSubmit_Click" id="BTNSubmit" runat="server" Width="110px" Text="Invia richiesta"
Height="24px" Font-Size="X-Small" Font-Names="Verdana"></asp:Button></TD>
</TR>
</TABLE>
<HR width="100%" SIZE="1">
<BR>
<asp:Label id="lbHtml" runat="server" Width="784px" Height="9px" BackColor="Transparent"></asp:Label>
</form>
</body>
</HTML>

Scarica il Codice...

Stampa la pagina

Inizio pagina