'#################################################################################
    '取得网络地址的内容(http://www.mewww.net/MirrorFriendsLinkGroups.html)
    '<!-- 开始魅尔网络网站友情连接联盟群 -->
    '#################################################################################
    Public Function CareFGetMirrorXml() As String
        Try
            Dim GetContext As String
            If Application("StrMirrorLink") Is Nothing Then
                Dim GetUrl As String = "http://www.mewww.net/MirrorFriendsLinkGroups.html"
                Dim GetWebRequest As HttpWebRequest
                Dim GetWebResponse As HttpWebResponse
                GetWebRequest = CType(GetWebRequest.Create(GetUrl), HttpWebRequest)
                GetWebResponse = CType(GetWebRequest.GetResponse(), HttpWebResponse)
                If GetWebResponse.StatusCode = HttpStatusCode.OK Then
                    Dim GetStream As Stream
                    GetStream = GetWebResponse.GetResponseStream()
                    Dim GetStreamReader As StreamReader
                    GetStreamReader = New StreamReader(GetStream, System.Text.Encoding.GetEncoding("GB2312"))
                    GetContext = GetStreamReader.ReadToEnd()
                    GetStreamReader.Close()
                End If
                GetWebResponse.Close()
                Application("StrMirrorLink") = GetContext
            Else
                GetContext = Application("StrMirrorLink")
            End If
            '#################################################################################
            Str0451sky = GetContext
            Str0451sky = Str0451sky.Replace("{$webaddr()}", Request.Url.ToString)
            Str0451sky = Str0451sky.Replace("{$now()}", DateTime.Now.ToString)
            CareFGetMirrorXml = Str0451sky
            '#################################################################################
        Catch ex As Exception

        End Try
    End Function