ASP.NET

<br />
 <br />
<br />
<br />
Imports System<br />
Imports System.Collections.Generic<br />
Imports System.ComponentModel<br />
Imports System.Text<br />
Imports System.Web<br />
Imports System.Web.UI<br />
Imports System.Web.UI.WebControls<br />
Imports System.Net<br />
Imports System.IO<br />
Imports System.Text.RegularExpressions<br />
Imports System.Web.Caching<br />
<br />
<br />
Namespace LavaBlast.CustomControls<br />
    <defaultproperty("text")> _<br />
    <toolboxdata("><{0}:screwturnvisualizer runat="server"></{0}:screwturnvisualizer>")> _<br />
    Public Class ScrewturnVisualizer<br />
        Inherits WebControl<br />
        <bindable(true)> _<br />
        <category("data")> _<br />
        <defaultvalue("")> _<br />
        <localizable(true)> _<br />
        Public Property PageName() As String<br />
            Get<br />
                Dim s As String = DirectCast(ViewState("PageName"), String)<br />
                Return (IIf((s Is Nothing),[String].Empty,s))<br />
            End Get<br />
            <br />
            Set<br />
                ViewState("PageName") = value<br />
            End Set<br />
        End Property<br />
        <br />
        <bindable(true)> _<br />
        <category("data")> _<br />
        <defaultvalue("")> _<br />
        <localizable(true)> _<br />
        Public Property BaseURL() As String<br />
            Get<br />
                Dim s As String = DirectCast(ViewState("BaseURL"), String)<br />
                If s IsNot Nothing AndAlso Not s.EndsWith("/") Then<br />
                    s += "/"<br />
                End If<br />
                Return (IIf((s Is Nothing),[String].Empty,s))<br />
            End Get<br />
            <br />
            Set<br />
                ViewState("BaseURL") = value<br />
            End Set<br />
        End Property<br />
        Public ReadOnly Property FullURL() As String<br />
            Get<br />
                Return GetFullPath(BaseURL, PageName)<br />
            End Get<br />
        End Property<br />
        <br />
        <bindable(true)> _<br />
        <category("data")> _<br />
        <defaultvalue("")> _<br />
        <localizable(true)> _<br />
        Public Property CacheText() As Boolean<br />
            Get<br />
                Return CBool((IIf(ViewState("CacheText") Is Nothing, (ViewState("CacheText") = True), ViewState("CacheText"))))<br />
            End Get<br />
            Set<br />
                ViewState("CacheText") = value<br />
                If Not value Then<br />
                    If Page IsNot Nothing Then<br />
                        Page.Cache.Remove("ScrewturnVisualizer_" + FullURL)<br />
                    End If<br />
                End If<br />
            End Set<br />
        End Property<br />
        <br />
        Public Function GetPageContents() As String<br />
            If CacheText AndAlso Me.Page.Cache("ScrewturnVisualizer_" + FullURL) IsNot Nothing Then<br />
                Return Me.Page.Cache("ScrewturnVisualizer_" + FullURL).ToString()<br />
            End If<br />
            <br />
            Dim s As String = GetScrewturnPageContent(BaseURL, PageName)<br />
            <br />
            If CacheText Then<br />
                Me.Page.Cache.Add("ScrewturnVisualizer_" + FullURL, s, Nothing, Cache.NoAbsoluteExpiration, New TimeSpan(1, 0, 0), CacheItemPriority.[Default], _<br />
                	Nothing)<br />
            End If<br />
            <br />
            Return s<br />
        End Function<br />
        <br />
        Public Shared Function GetFullPath(ByVal baseUrl As String, ByVal pageName As String) As String<br />
            Return baseUrl + "Print.aspx?Page=" + pageName<br />
        End Function<br />
        <br />
        Public Shared Function GetScrewturnPageContent(ByVal baseUrl As String, ByVal pageName As String) As String<br />
            Dim s As String = ""<br />
            Try<br />
                Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create(GetFullPath(baseUrl, pageName)), HttpWebRequest)<br />
                req.UserAgent = "LavaBlast"<br />
                req.CookieContainer = New CookieContainer()<br />
                Dim response As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)<br />
                response.Cookies = req.CookieContainer.GetCookies(req.RequestUri)<br />
                <br />
                Dim reader As New StreamReader(response.GetResponseStream())<br />
                s = reader.ReadToEnd()<br />
                reader.Close()<br />
                <br />
                s = Regex.Replace(s, "<a[^>]*>Edit", "", RegexOptions.Compiled)<br />
                s = Regex.Replace(s, "^.*<input.*id value=".[^""]*""" />", "", RegexOptions.Compiled Or RegexOptions.Singleline)<br />
                s = Regex.Replace(s, ".*$", "", RegexOptions.Compiled Or RegexOptions.Singleline)<br />
                s = Regex.Replace(s, "<h1 class=".pagetitle.">[^<]*</h1>", "", RegexOptions.Compiled)<br />
                s = Regex.Replace(s, "<h2 class=".seperator.">(?<title>[^<]*)</title></h2>", "<h2>${title}</h2>", RegexOptions.Compiled)<br />
                <br />
                s = Regex.Replace(s, "GetFile.aspx.File=", "images/", RegexOptions.Compiled)<br />
            Catch ex As Exception<br />
                System.Diagnostics.Debug.WriteLine([String].Format("An error has occurred accessing {0}.<br />{1}", baseUrl + "Print.aspx?Page=" + pageName, ex.ToString()))<br />
                s = "An error has occurred."<br />
            End Try<br />
            Return s<br />
        End Function<br />
        <br />
        Protected Overloads Overrides Sub RenderContents(ByVal output As HtmlTextWriter)<br />
            output.Write(GetPageContents())<br />
        End Sub<br />
    End Class<br />
End Namespace<br />
<br />
</a[^></localizable(true)></defaultvalue("")></category("data")></bindable(true)></localizable(true)></defaultvalue("")></category("data")></bindable(true)></localizable(true)></defaultvalue("")></category("data")></bindable(true)></toolboxdata("></defaultproperty("text")>

   <asp:radiobuttonlist id="rbperspect" runat="server" autopostback="True" font-bold="True"><br />
                    RepeatDirection="Horizontal" Width="202px" Height="18px" OnSelectedIndexChanged="rbperspect_SelectedIndexChanged"><br />
<br />
<br />
                       <br />
                    </asp:radiobuttonlist>