FAQ |
Kalender |
2011-08-13, 13:29 | #9 | |||
|
||||
Mycket flitig postare
|
Lite mer avanserat script som du även kan ha flera unika webbsidor på samma konto utan att du har flera webbhotellskonton fungerar på windows
'************************************** ' Name: Multi Domain Redirect ' Description:If you have multiple domai ' n names pointing to the same web site, t ' his code will allow you to redirect the ' user to a subdirectory based on the web ' address then type in the browser. ' By: Glenn C. ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.6349/lngWId.4/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** <%@ Language=VBScript %> <% ' Set up your variables Dim sURL, sPath ' Get the domain name typed in the brows ' er. sURL = Request.ServerVariables("HTTP_HOST") ' Get the rest of the path after the dom ' ain name. sPath = Request.ServerVariables("PATH_INFO") ' Based on the domain name, redirect the ' user ' to the correct directory and attach th ' e rest ' of the path. Select Case sURL Case "www.maindomain.com", "maindomain.com" ' Ignore...this is the current site. Case "www.domain2.com", "domain2.com" ' redirect to the "domain2" directory Response.Redirect "domain2" & sPath Case "www.domain2.net", "domain2.net" ' redirect to the "domain2net" directory ' Response.Redirect "domain2net" & sPath End Select %> |
|||
Svara med citat |
|
|