İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

Asp'de Seolu Link Oluşturma Nasıl Editlerim.

nanorator

0
İyinet Üyesi
Katılım
31 Aralık 2011
Mesajlar
16
Reaction score
0
Konum
istanbul
Merhaba arkadaşlar, bu sitemi aylardır uğraşıyorum ama yapamıyorum. Lütfen bi el atında yapalım. İsterseniz özelden cevap verin lütfen.

Sitemdeki seolu link : http://siteadi.com/u/178/urun-adi.htm

Olması istediğim link: http://siteadi.com/u178,urun-adi.htm

Yapmak istiyorum ama bir türlü yapamadım.

404.asp
HTML:
<%
Dim istekurl
Dim istekbolum
urun="u"
Set istekurl = Request.ServerVariables("QUERY_STRING") 
istekbolum = Split(istekurl,"/")
     
Elseif Lcase(istekbolum("3")) = urun Then
Server.Execute("urun.asp")
<%Else%>
<title>404 Hatalısı</title>
<%End if %>

Default.asp
HTML:
<%=""& siteurl &"/u/" & rec("id") & "/" & cevir(Lcase(rec("adi"))) &".htm"%><%end if%>

urun.asp
HTML:
<%
id=QueryFilter(Request.QueryString("id"))
%>
 
<%
ID=request("ID")
If Not Isnumeric(ID) Or Len(ID)=0 Then
response.Redirect(""&siteurl&"")
End If%>
 
<% Set urun = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Urunler where id="&id
urun.open rSQL,baglanti,3,3 %><% Else %><%
Set istekurl = Request.ServerVariables("QUERY_STRING") 
istekbolum = Split(istekurl,"/")
Gelendir=istekbolum(4)
Parcala=Split(Gelendir,"-")
id=QueryFilter(Parcala(0))
If id="" OR Isnumeric(id)=False Then Response.Redirect(""&siteurl&"")
%>
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst