Application ile aranan kelimeleri hafızaya alıp listeleme
Kod Alanı:
<%
bu bölümü kelime.asp olarak kaydedip sitenizin ilgili sayfasına include edin
-------------------------
kodlar basliyor
coded by svmsz : )
Dim AranankelimeLink, AranankelimeSayi
BURAYI KENDINIZE GORE DUZENLEYIN
---------------------
AranankelimeLink = "x.asp?q=" arama yaparken kullandığınız url
AranankelimeSayi = 20 listelenmesini istediginiz kelime sayisi
---------------------
Sub kelimekaydet(strfld )
Dim kelimetemizle, kelimesekille,intloop, kelimekontrol
strfld=Server.HTMLEncode(Trim(strfld ) )
strfld=Replace(strfld,vbcrlf,"" )
AranankelimeSayi=Cint(AranankelimeSayi )
Application.Lock
if len(strfld )> 0 Then
If Not Application("kelimeler" )="" Then
kelimetemizle = SPLIT(Application("kelimeler" ),vbcrlf )
if isArray(kelimetemizle )=true Then
kelimekontrol=false
kelimesekille=""
For intloop=0 To ubound(kelimetemizle )
if intloop < (AranankelimeSayi-1 ) Then
if intloop > 0 Then kelimesekille = kelimesekille & vbcrlf
kelimesekille = kelimesekille & kelimetemizle(intloop )
if kelimetemizle(intloop )= strfld Then kelimekontrol=true
end if
Next
if kelimekontrol=false Then Application("kelimeler" )= strfld & vbcrlf & kelimesekille
End If
Else
Application("kelimeler" )=strfld
End If
End If
Application.Unlock
End Sub
Sub kelimeyazdir( )
Dim KelimeleriDiz, intloop
KelimeleriDiz = SPLIT(Application("kelimeler" ),vbcrlf )
If len(Application("kelimeler" ) ) > 0 Then Response.write "EN SON ARANAN " & AranankelimeSayi & " KELİME<br/>"
if isArray(KelimeleriDiz )=true Then
For intloop=0 To Ubound(KelimeleriDiz )
Response.write (intloop+1 ) & "- <a href=""" & AranankelimeLink & Server.URLEncode(KelimeleriDiz(intloop ) ) & """>"&KelimeleriDiz(intloop )&"</a><br/>" & vbcrlf
Next
Else
If len(Application("kelimeler" ) ) > 0 Then
Response.write "1- <a href=""" & AranankelimeLink & Application("kelimeler" ) & """>"&Application("kelimeler" )&"</a>" & vbcrlf
End If
End If
End Sub
kodlar bitti.
%>
