<FORM ACTION=”<% = Request.ServerVariables(“PATH_INFO”) %>” METHOD=”POST”> |
<FORM ACTION=”<% = Request.ServerVariables(“SCRIPT_NAME”) %>” METHOD=”POST”> |
... <% strFullPath = Request.ServerVariables(“PATH_INFO”) ‘Strip off the file name strPathOnly = Left(strFullPath, InStrRev(strFullPath, “/”)) strNextPage = strPathOnly & “pages/next_page.ASP” %> ... <A HREF=”<% = strNextPage %>”>Next Page</A> ... |
strFullURL = http:// & Request.ServerVariables(“LOCAL_ADDR”) _ & “:” & Request.ServerVariables(“SERVER_PORT”) _ & Request.ServerVariables(“PATH_INFO”) |
http://194.74.60.254:1768/thispath/thispage.ASP |
<% strUA = Request.ServerVariables(“HTTP_USER_AGENT”) Response.Write “The User Agent string is <B>” & strUA & “</B> ” If InStr(strUA, “MSIE”) Then Response.Write “To upgrade your browser go to “_ & “<A HREF=” & Chr(34) & http://www.microsoft.com/ie/”_ & Chr(34) & “>http://www.microsoft.com/ie/<A> ” intVersion = Cint(Mid(strUA, InStr(strUA, “MSIE”) + 5, 1)) If intVersion >=4 Then Response.Write “You can use Microsoft Dynamic HTML” End If Else If InStr(strUA, “Mozilla”) Then If InStr(strUA, “compatible;”) = 0 Then Response.Write “Your browser is probably Navigator. You can “_ & “download the latest version of Navigator from “_ & “<A HREF=” & Chr(34) & http://home.netscape.com/”_ & “download/”& Chr(34) & “>http://home.netscape.com”_ & “/download/</A> ” intVersion = Cint(Mid(strUA, InStr(strUA, “/”) +1, 1)) If intVersion >= 4 Then Response.Write “You can probably use Netscape Dynamic HTML” End If Else strVersion = Mid(strUA, InStr(strUA, “compatible;”) + 12) strProduct = Left(strVersion, InStr(strVersion, “ “)) Response.Write “Your browser is Navigator-compatible. You can”_ & “search for the manufacturer using a search engine, such as”_ & “<A HREF=” & Chr(34) _ & “http://www.altavista.digital.com/cgi-bin/query?q=”_ & strProduct _ & Chr(34) & “>http://www.altavista.com/</A> ” End If End If End If %> |
StrLocale = Lcase(Left(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”),2)) Select Case strLocale Case “en”: Response.Redirect “http://uk_site.co.uk/” Case “de”: Response.Redirect “http://de_site.co.de/” Case “fr”: Response.Redirect “http://fr_site.co.fr/” ‘... etc Case Else: Response.Redirect “http://us_sitel.com/” End Select |
strLocale = Lcase(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”)) Select Case strLocale Case “en-gb”: Response.Redirect “http://uk_site.co.uk/” Case “en-us”: Response.Redirect “http://us_site.com/” Case “es-pe”: Response.Redirect “http://es_site2.co.pe/” ‘... Case Else: Response.Redirect “http://us_site1.com/” End Select |
If Request.ServerVariables(“SERVER_PORT”) = “443”) Then Response.Redirect “/securesite/default.ASP” ‘Secure user Else Response.Redirect “/normalsite/default.ASP” ‘Non-secure user End If |
... <A HREF=”dispcnfg.ASP”>Change Display Configuration</A> <A HREF=”dispcolr.ASP”>Change Display Colors</A> <A HREF=”keyboard.ASP”>Change Keyboard Configuration</A> <% If Request.ServerVariables(“AUTH_USER”) _ = Ucase(Request.ServerVariables(“SERVER_NAME”)) & “Administrator” Then %> <A HREF=”allusers.ASP”>Administer All Users</A> <A HREF=”usrlogon.ASP”>Administer Logon Information</A> <% End If %> ... |