|
<% onceki=shf-1%>
<%if shf=1 then%>
««
<%else%>
««
<%end if%>
| <%if onceki<1 then%>
«
<%else%>
«
<%end if%>
|
<% for y=1 to sayfa %>
<% x=x+1
if shf=y then
response.write ""&y&" | "
else%>
<%=y%> |
<% end if
if x>18 then
response.write (" |
| ")
x=0
end if
next
sonraki=shf+1
if sonraki>sayfa then
%>
»
<%else%>
»
<%end if%>
|
<%if shf=sayfa then%>
»»
<%else%>
»»
<%end if%>
|
<% End Function %>
<%function resme_yazi_yaz(resim)
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(""&resim &"") '{Burasi resimlerimizi depoladigimiz alan Server'daki.}
Jpeg.Open Path
Jpeg.Canvas.Font.Color = &HFF0000 '{Yazinin Font Rengi}
Jpeg.Canvas.Font.Family = "Verdana" '{Yazimizin Türünü belirliyoruz}
Jpeg.Canvas.Font.Bold = TRUE '{Kalin veya normal yazim özelligi}
Jpeg.Canvas.Pen.Color = &H000000 '{Yazi rengi}
Jpeg.Canvas.Pen.Width = 1 '{Yazi Kalinlik}
jpeg.Canvas.Font.Size = 20 '{Yazinin büyüklügü}
Jpeg.Canvas.Brush.Solid = False '{Firça Baski Sekli}
Jpeg.Canvas.PrintText 1, 180, ""&siteadi&""
Jpeg.Save Server.MapPath(""&resim &"") '{Resimler klasörümüzün altina .jpg uzantili resmimizin adini yazdiriyoruz.}
end function%>
<%function yazar_bul(yid)
set yazaRbul =veri.execute("select * from yazar where durum<>1 and id="&yid)
if yazarbul.eof then
response.write("Yazar Bulunamadi.")
else
response.write(yazarbul("ad_soyad"))
end if
yazarbul.close
end function%>
<%
Function bcevir(metin)
metin = Replace(metin, "a", "A")
metin = Replace(metin, "b", "B")
metin = Replace(metin, "c", "C")
metin = Replace(metin, "ç", "Ç")
metin = Replace(metin, "d", "D")
metin = Replace(metin, "e", "E")
metin = Replace(metin, "f", "F")
metin = Replace(metin, "g", "G")
metin = Replace(metin, "g", "G")
metin = Replace(metin, "h", "H")
metin = Replace(metin, "i", "I")
metin = Replace(metin, "i", "I")
metin = Replace(metin, "j", "K")
metin = Replace(metin, "k", "K")
metin = Replace(metin, "l", "L")
metin = Replace(metin, "m", "M")
metin = Replace(metin, "n", "N")
metin = Replace(metin, "o", "O")
metin = Replace(metin, "ö", "Ö")
metin = Replace(metin, "p", "P")
metin = Replace(metin, "r", "R")
metin = Replace(metin, "s", "S")
metin = Replace(metin, "s", "S")
metin = Replace(metin, "t", "T")
metin = Replace(metin, "u", "U")
metin = Replace(metin, "ü", "Ü")
metin = Replace(metin, "v", "V")
metin = Replace(metin, "w", "W")
metin = Replace(metin, "x", "X")
metin = Replace(metin, "y", "Y")
metin = Replace(metin, "z", "Z")
bcevir = metin
End Function
Function kcevir(kelime)
kelime = Replace(kelime, "A", "a")
kelime = Replace(kelime, "B", "b")
kelime = Replace(kelime, "C", "c")
kelime = Replace(kelime, "Ç", "ç")
kelime = Replace(kelime, "D", "d")
kelime = Replace(kelime, "E", "e")
kelime = Replace(kelime, "F", "f")
kelime = Replace(kelime, "G", "g")
kelime = Replace(kelime, "G", "g")
kelime = Replace(kelime, "H", "h")
kelime = Replace(kelime, "I", "i")
kelime = Replace(kelime, "I", "i")
kelime = Replace(kelime, "J", "j")
kelime = Replace(kelime, "K", "k")
kelime = Replace(kelime, "L", "l")
kelime = Replace(kelime, "M", "m")
kelime = Replace(kelime, "N", "n")
kelime = Replace(kelime, "O", "o")
kelime = Replace(kelime, "Ö", "ö")
kelime = Replace(kelime, "P", "p")
kelime = Replace(kelime, "R", "r")
kelime = Replace(kelime, "S", "s")
kelime = Replace(kelime, "S", "s")
kelime = Replace(kelime, "T", "t")
kelime = Replace(kelime, "U", "u")
kelime = Replace(kelime, "Ü", "ü")
kelime = Replace(kelime, "V", "v")
kelime = Replace(kelime, "W", "w")
kelime = Replace(kelime, "X", "x")
kelime = Replace(kelime, "Y", "y")
kelime = Replace(kelime, "Z", "z")
Kcevir = kelime
End Function%>
-<%=cevir(rf("adi"))%>.html"><%= rf("adi") %>
