Get current url of the page (used URL Rewrite)

asp-classicvbscript

I am working on classic asp application.
I have use URL rewrite on some pages.

How can i get current url of the page in classic asp?

Example:
http://www.site.com/page.asp —> url rewrite in IIS —> http://www.site.com/home/page

so here i want current url of the page which is http://www.site.com/home/page

Please help me.
Thanks.

Best Answer

There's no fancy one function that does it all.

First you need to get the protocol (if it is not always http):

Dim protocol
Dim domainName
Dim fileName
Dim queryString
Dim url

protocol = "http" 
If lcase(request.ServerVariables("HTTPS"))<> "off" Then 
   protocol = "https" 
End If

Now the rest with optional query string:

domainName= Request.ServerVariables("SERVER_NAME") 
fileName= Request.ServerVariables("SCRIPT_NAME") 
queryString= Request.ServerVariables("QUERY_STRING")

url = protocol & "://" & domainName & fileName
If Len(queryString)<>0 Then
   url = url & "?" & queryString
End If

Hope it works for you.

Related Solutions

Windows – Disable NIC advanced properties in Windows server 2008/2012

I manage to do this with this powershell script.

$root = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}'
$items = Get-ChildItem -Path Registry::$Root -Name
Foreach ($item in $items) {
    if ($item -ne "Properties") {
        $path = $root + "\" + $item
        $DriverDesc = Get-ItemProperty -Path Registry::$path | Select-Object -expandproperty DriverDesc
        if ($DriverDesc -eq "Citrix PV Ethernet Adapter") {
            Set-ItemProperty -path Registry::$path -Name LROIPv4 -Value 0
        }
    }
}

new-ItemProperty -force -Path hklm:\\\\HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Services\\TCPIP\\Parameters -Name IPChecksumOffloadIPv4  -Value 0
new-ItemProperty -force -Path hklm:\\\\HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Services\\TCPIP\\Parameters -Name LSOv2IPv4 -Value 0
new-ItemProperty -force -Path hklm:\\\\HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Services\\TCPIP\\Parameters -Name NeedChecksumValue  -Value 0
new-ItemProperty -force -Path hklm:\\\\HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Services\\TCPIP\\Parameters -Name TCPChecksumOffloadIPv4  -Value 0
new-ItemProperty -force -Path hklm:\\\\HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Services\\TCPIP\\Parameters -Name UDPChecksumOffloadIPv4  -Value 0
new-ItemProperty -force -Path hklm:\\\\HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Services\\TCPIP\\Parameters -Name LROIPv4  -Value 0

The important thing its to see the pproperties to be changed.

Using:

PS > Get-NetAdapter

PS > Get-NetAdapterAdvancedProperty name_of_the_nic

PS > Get-NetAdapterAdvancedProperty name_of_the_nic | ft RegistryKeyword

Now update that RegistryKeyword as you need it

Detailed 500 error message, ASP + IIS 7.5

I have come to the same problem and fixed the same way as Alex K.

So if "Send Errors To Browser" is not working set also this:

Error Pages -> 500 -> Edit Feature Settings -> "Detailed Errors"

enter image description here

Also note that if the content of the error page sent back is quite short and you're using IE, IE will happily ignore the useful content sent back by the server and show you its own generic error page instead. You can turn this off in IE's options, or use a different browser.

Best Answer

Related Solutions

Windows – Disable NIC advanced properties in Windows server 2008/2012

Detailed 500 error message, ASP + IIS 7.5

Related Topic