ASP YardıM - R10.net

17-10-2008, 11:49:33

#1

~~Erol~~

Üyeliği durduruldu

Arkadaşlar siteadi.com yazınca otomatik www. eklemesini istiyorum, aspde nasıl yaparım bunu.

18-10-2008, 15:33:44

#2

apridev

bunun en en basit yolu;
diyelim ki sitenin ilk sayfası default.asp olsun. Siz bir index.asp hazırlayın ve içine
<META HTTP-EQUIV="refresh" CONTENT="0;URL= http://www.siteadı.com"> bu kodu koyun ve daha sonra bunuda ftp'ye atın. Plesk panelden web dizinlerden ayaralara girin ve ordan siteye ilk girişte ki sayfa tanıma alanını sadece index.asp yapın. Bu sayede biri www. kullansada kullanmasada sitenize giriş yaptığında ilk olarak index.asp girecek ve burdan otomatik www.siteadı.com yönlendirilecektir

NOT: index.asp veya default.asp isimleri sadece örnektir...

18-10-2008, 15:37:00

#3

~~Erol~~

Üyeliği durduruldu

google açısından sorun olmaz mı böyle?.

20-10-2008, 05:43:31

#4

ReFLeX

Kodu sitenin en üstüne koy SiteAdresi yazan bölüme sitenin adresini yaz işini görecektir kolay gelsin.

<%
'Site Adresi
SiteAdresi = "www.orneksiteadi.com"
If Not Request.ServerVariables("SERVER_NAME") = SiteAdresi Then
Response.Redirect "http://"&SiteAdresi&""
End If
%>

23-10-2008, 22:17:26

#5

yamac_paradox

Kimlik doğrulama veya yönetimden onay bekliyor.

Adres satırından http://domain.com gibi yazıp gelenler yada arama motorlarında böyle verilenm url'ler google page rank için yeni bir domain anlamına geldiğinden rankları düşük çıkıyor yada hiç çıkmıyor. aşağıdaki kodları inc_redirect_if_no_www.asp olarak kaydedip her sayfanın tepesine include ediniz.
_________________ inc_redirect_if_no_www.asp

<% 
Dim strAlanAdi, strUrl, strParametreler, strTamUrl, strProtokol, strSSL 
strAlanAdi = LCase(Request.ServerVariables("SERVER_NAME" )) 
If Left(strAlanAdi,4) <> "www." Then 
     If Request.ServerVariables("HTTPS" ) = "on" Then :  strSSL = "s" : Else :   strSSL = "" :  End If   
     strAlanAdi           = "www." & strAlanAdi 
     strUrl                = LCase(Request.ServerVariables("URL" )) 
     strParametreler      = Request.ServerVariables("QUERY_STRING" ) 
     strTamUrl          = "http" &strSSL&"://" & strAlanAdi & strUrl 
     If Parametreler <> "" Then strTamUrl = strTamUrl & "?" & strParametreler 
     Response.Redirect strTamUrl 
End If 
%>

25-10-2008, 20:50:03

#6

shiko

Kimlik doğrulama veya yönetimden onay bekliyor.

reflex in verdiği kod işe yarar

26-10-2008, 02:57:41

#7

svamder

bu kod işe yarar evet + rep