Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = Request.ServerVariables("HTTP_HOST")
TextBox1.Text = s
For Each s In Request.ServerVariables
TextBox2.Text += vbCrLf & s
TextBox2.Text += vbCrLf & "----------"
TextBox2.Text += vbCrLf & Request.ServerVariables(s)
TextBox2.Text += vbCrLf & vbCrLf
Next
End Sub
Dim s As String = Request.ServerVariables("HTTP_HOST")
TextBox1.Text = s
For Each s In Request.ServerVariables
TextBox2.Text += vbCrLf & s
TextBox2.Text += vbCrLf & "----------"
TextBox2.Text += vbCrLf & Request.ServerVariables(s)
TextBox2.Text += vbCrLf & vbCrLf
Next
End Sub