C#代碼
  /// <summary>
    /// 返回地址頁面的原始字串
    /// </summary>
    /// <param name="url">http地址</param>
    /// <returns>返回地址頁面的原始字串</returns>
    public string GetPageValue(string url)
    {
        System.Net.WebRequest request = System.Net.WebRequest.Create(url);
        System.Net.WebResponse response = request.GetResponse();
        System.IO.Stream stream = response.GetResponseStream();
        System.IO.StreamReader reader = new System.IO.StreamReader(stream, System.Text.Encoding.Default);
        System.Text.StringBuilder sbHtml = new System.Text.StringBuilder();
        string line = "";
        while ((line = reader.ReadLine()) != null)
        {
            sbHtml.Append(line);
        }
        return sbHtml.ToString();
    }
VB.Net 代碼

    ''' <summary>
    ''' 返回地址頁面的原始字串
    ''' </summary>
    ''' <param name="url"></param>
    ''' <returns>http地址</returns>
    ''' <remarks>返回地址頁面的原始字串</remarks>
    Public Function GetPageValue(ByVal url As String) As String
        Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(url)
        Dim response As System.Net.WebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        Dim reader As New System.IO.StreamReader(stream, System.Text.Encoding.Default)
        Dim sbHtml As New System.Text.StringBuilder()
        Dim line As String = ""
        While (Not line Is Nothing)
            line = reader.ReadLine()
            sbHtml.Append(line)
        End While
        Return sbHtml.ToString()
    End Function

ASP 代碼 ：

        '請求的檢証地址
        Set objSrvHTTP = CreateObject("MSXML2.ServerXMLHTTP")

        objSrvHTTP.open "GET",“https://max053/SSO.Authentication/CheckID.aspx”, False
        objSrvHTTP.send
        Response.ContentType = "text/html"
        '經檢証後，返回的信息
        Result =  objSrvHTTP.responseText