Jasinski Technical Wiki

Navigation

Home Page
Index
All Pages

Quick Search
»
Advanced Search »

Contributor Links

Create a new Page
Administration
File Management
Login/Logout
Your Profile

Other Wiki Sections

Software

PoweredBy

Page History: ShowLinkAs Page - ASP.NET

Compare Page Revisions



« Older Revision - Back to Page History - Current Revision


Page Revision: Tue, Sep 08, 2009, 8:12 AM


Code

The following code depends on the ApplicationRootUrl function (found here) placed within a class called Helper.

GetPage.aspx

Create a new ASPX page called GetPage.aspx. It doesn't matter whether or not it has an associated master page.

GetPage.aspx Code-Behind

VB.NET

Imports System.Diagnostics

Namespace SalesMarketing
    Partial Class GetPage
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            Dim strRequestedURL As String = ""

            If Not Request("RP") Is Nothing Then

                strRequestedURL = Helper.ApplicationRootUrl
                strRequestedURL &= Request("RP")
                strRequestedURL &= Request("RF")

            End If

            WriteLog(strRequestedURL)
            Response.Redirect(strRequestedURL)

        End Sub
        Private Sub WriteLog(ByVal strRequestedUrl As String)

            'Dim intModuleId As Int16 = 0
            'Dim lngSearchLogId As Long = 0
            'Dim strFromURL As String = ""

            ''-- Inits -----------------------------------------------------------------------------
            'If Not Request("MId") Is Nothing Then
            '    If IsNumeric(Request("MId")) Then
            '        intModuleId = CType(Request("MId"), Int16)
            '    End If
            'End If
            'If Not Request("SLId") Is Nothing Then
            '    If IsNumeric(Request("SLId")) Then
            '        lngSearchLogId = CType(Request("SLId"), Long)
            '    End If
            'End If
            'If Request.ServerVariables("HTTP_REFERER") <> "" Then
            '    strFromURL = Request.ServerVariables("HTTP_REFERER") ' RequestFromPage
            'End If

            'Dim currUser As String
            'currUser = HttpContext.Current.Request.ServerVariables("AUTH_USER")
            'currUser = Mid(currUser, InStr(currUser, "\") + 1)

            'Dim strIsAuthor As String = CType(Me.Master, Site).IsAuthorByModule(intModuleId)

            ''-- Make Database Call ----------------------------------------------------------------
            'Dim cl As New SalesMarketing.BusinessLogicLayer.ClickLog

            'cl.Add(intModuleId, lngSearchLogId, currUser, strFromURL, strRequestedURL, Now(), _
            '            strIsAuthor)
            'cl = Nothing

        End Sub

    End Class

End Namespace

C#

TODO

Web.Config

<configuration>
  <appSettings>
    ...
    <add key="LinkAsPage" value="GetPage.aspx"/>
    ...
  </appSettings>
</configuration>

Image Files

Save the following images into your /images folder

link.jpglink.jpg
bullet.gifbullet.gif

ShowLinkAs.aspx

Create a new ASPX page called ShowLinkAs.aspx, having NO master page and with the following content.

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ShowLinkAs.aspx.vb" 
    Inherits="SalesMarketing.ShowLinkAs" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Link As</title>
    <link href="Styles.css" rel="stylesheet" type="text/css" />
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <table cellpadding="0" cellspacing="0" width="100%" height="100%" border="0">
    <tr>
        <td align="center" class="lbl-header">Link Document/URL As</td>
    </tr>
    <tr>
        <td class="standard-instruction">
        <img src="./images/bullet.gif" />&nbsp;Please copy the below text to 
            link the document/url.<br />
        </td>
    </tr>
    <tr>
        <td align="center">
            <br />&nbsp;<br />
            <asp:TextBox ID="txtLA" runat="server" Columns="100" Rows="5" Width="600" Height="100" 
                 Wrap="true" CssClass="standard-text"></asp:TextBox>
            <br />&nbsp;<br />
            <input type="button" value="Close" onclick="javascript:window.close();" />
            <br />
        </td>
    </tr>
    <tr><td>&nbsp;</td></tr>
    </table>
    </div>
    </form>
</body>
</html>

ShowLinkAs.aspx Code-Behind

VB.NET

Namespace SalesMarketing
    Partial Class ShowLinkAs
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            txtLA.Text = Helper.ApplicationRootUrl
            txtLA.Text &= ConfigurationManager.AppSettings("LinkAsPage") & "?MId="
            txtLA.Text &= Request("MId")
            txtLA.Text &= "&RP=" & Request("RP")
            txtLA.Text &= "&RF=" & Server.UrlEncode(Request("RF"))
        End Sub
    End Class
End Namespace

C#

TODO

Master Page

<script language="javascript">
. . .
function showLinkAs(iVal)
{
    var vURL = "ShowLinkAs.aspx" + iVal;
    if (window.showModelessDialog)
        sList = showModalDialog(vURL, window, "dialogHeight:250px; dialogWidth:750px; edge:sunken; center:yes; help:no; status:no; scroll:no; resizable:no;");
    else
        alert("This method is only supported by Internet Explorer 4 and above.");
}
. . .
</script>

Content Page

Here's a sample helper function that builds the link suitable for inclusion on an ASPX or HTML page. The QueryString parameters are as follows.

  • RP = path of requested document (without file)
  • RF = file name of requested document (without path)

VB.NET

Private Function BuildLink(ByVal id As Integer, ByVal file As String) As String

    '-- Inits ---------------------------------------------------------------------------------
    ' TODO: Adjust the queryString template appropriate to your implementation
    Dim queryString As String = "?RP=uploads/TD/{id}/&RF={file}"

    Dim imageLink As String = "<a href='javascript:showLinkAs(""{queryString}"")'>"
    imageLink &= "<img src=""./images/link.jpg"" border=none /></a>"

    Dim result As String = "<a target='_blank' href='GetPage.aspx{queryString}&SLId=0'>"
    result &= "{file}</a>&nbsp;&nbsp;&nbsp;{imageLink}&nbsp;&nbsp;&nbsp;"

    file = Server.UrlEncode(file)

    '-- "Fill In" the templates ---------------------------------------------------------------
    queryString = queryString.Replace("{id}", id)
    queryString = queryString.Replace("{file}", file)
    imageLink = imageLink.Replace("{queryString}", queryString)
    result = result.Replace("{queryString}", queryString)
    result = result.Replace("{file}", file)
    result = result.Replace("{imageLink}", imageLink)

    '-- Clean Up ------------------------------------------------------------------------------
    Return result

End Function

C#

TODO

ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam. Except where noted, all contents Copyright © 1999-2024, Patrick Jasinski.