Private Sub Button1_Click(ByVal sender As System.ObjectByVal 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
posted on 2005-01-23 23:59  dahai.net  阅读(371)  评论(0编辑  收藏  举报