Vikipedi deki yazılarda dikkatinizi çekmiştir.Vikipedi’nin veritabanında bulunan yazıların başlıkları yazı içerisinde link şeklinde çıkıyor.Tıkladığımızda ilgili yazıya ulaşabiliyoruz.İşte aşağıdaki fonksiyon ile bu olayı yapabilirsiniz. ;)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<% < br / >
< br / >
Function yazi_ekle ( yazi ) < br / >
set rs = Server . CreateObject ( "ADODB.Recordset" ) < br / >
sql = "Select * from yazilar" < br / >
rs . open sql , baglan , 1 , 3 < br / >
< br / >
for i = 1 to rs . recordcount < br / >
if InStr ( 1 , yazi , rs ( "baslik" ) , 1 ) > 0 then < br / >
if rs . eof then exit for < br / >
yazi = Replace ( yazi , rs ( "baslik" ) , "<a href=yazi.asp?id=" & #038;rs("id")&" rel="nofollow">"&rs("baslik")&"</a>",1,-1,1)<br />
end if < br / >
rs . movenext < br / >
< br / >
Next < br / >
yazi_ekle = yazi < br / >
End Function < br / >
%> < br / >
Bu fonksiyon ile yazilar adli tablomuzdaki başlıklar ,eklenecek yazının içinde aranıyor.Eğer başlık bulursa onu linke çeviriyor.Bu kadar basit.
Tablomuzun adı:yazilar
Veritabanımıza yazıyı eklerken de bu şekilde ekliyoruz.
rs . addnew < br / >
rs ( "baslik" ) = req üst . Form ( "baslik" ) < br / >
rs ( "yazi" ) = yazi_ekle ( req üst . form ( "metin" ) ) < br / >
rs . update < br / >
rs . close
Umarım açıklayıcı bir şekilde anlatabilmişimdir.
Saygılar…
