sayfadaki tüm kod bu
<%Function gununsozu(x)
ay=month(Now)
gun=day(now)
sorgum="Select * from olay where ay="&"'"&ay&"'"&" and gun="&"'"&gun&"'"
Rf.Open Sorgum, Baglantim, 1, 3 %>
<% if x="soz" then %>
<%= rf("soz") %>
<% end if%>
<% if x="olay" then %>
<li><%= rf("olay1")&"<br>" %></li>
<li><%= rf("olay2")&"<br>" %></li>
<li><%= rf("olay3")&"<br>" %></li>
<% end if %>
<% rf.close %>
<% End Function %>
<% Function menu_yaz()
sorgum="Select * from sayfa where (id<>10 and id<>11) and goster=true"
Rf.Open Sorgum, Baglantim, 1, 3 %>
<table width="100%" border="0" cellpadding="2" cellspacing="2" align="center">
<% do while not rf.eof %>
<tr><td align="center">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="10"><img src="images/vurgu.gif"></td>
<td align="center"><div align="left"><a href="/sayfalar-<%= rf("id") %>-<%=cevir(rf("adi"))%>.html"> <%= rf("adi") %></a></div></td>
<td width="10" align="center"> </td>
</tr>
</table></td></tr>
<% rf.movenext
loop
Rf.close %>
</table>
<% End Function %>
<%
Function reklam_goster(id)
id=PostKontrol(id)
sorgum="Select * from reklam where id="&id
Rx.Open Sorgum, Baglantim, 1, 3
bittarihi=cdate(rx("bitis"))
if bittarihi>date() then
if rx("detay")<>"" then
Response.Write rx("detay")
else
Response.Write ("<center>"&siteadi&"</center>")
end if
else
response.write("<center>Bu Bannerin Süresi Dolmustur.</center>")
end if
Rx.close
End Function
Function sayfa_goster(id)
id=PostKontrol(id)
sorgum="Select * from sayfa where id="&id
Rx.Open Sorgum, Baglantim, 1, 3
if rx.eof or rx.bof then
Response.Write("<center>Kayit Bulamadim</center>")
else
Response.Write rx("detay")
end if
Rx.close
End Function
Function sayfa_baslik(id)
id=PostKontrol(id)
sorgum="Select * from sayfa where id="&id
Rx.Open Sorgum, Baglantim, 1, 3
if rx.eof or rx.bof then
Response.Write("Album Kaldırılmış.")
else
Response.Write rx("adi")
end if
Rx.close
End Function
Function galeri_baslik(id)
id=PostKontrol(id)
sorgum="Select * from galeri_kat where goster=1 and id="&id
Rx.Open Sorgum, Baglantim, 1, 3
if rx.eof or rx.bof then
Response.Write("Album Kaldırılmış.")
else
Response.Write rx("isim")
end if
Rx.close
End Function
Function urun_baslik(id)
id=PostKontrol(id)
sorgum="Select * from urun_kat where goster=1 and id="&id
Rx.Open Sorgum, Baglantim, 1, 3
if rx.eof or rx.bof then
Response.Write("Kategori Bulunamadı.")
else
Response.Write rx("isim")
end if
Rx.close
End Function
Function urun_altbaslik(aid)
aid=PostKontrol(aid)
sorgum="Select * from urun_altkat where goster=1 and id="&aid
Rx.Open Sorgum, Baglantim, 1, 3
if rx.eof or rx.bof then
Response.Write("Kategori Bulunamadı.")
else
Response.Write rx("isim")
end if
Rx.close
End Function
Function urun_altaltbaslik(aid)
aid=PostKontrol(aid)
sorgum="Select * from urun_altkat2 where goster=1 and id="&aid
Rx.Open Sorgum, Baglantim, 1, 3
if rx.eof or rx.bof then
Response.Write("Kategori Bulunamadı.")
else
Response.Write rx("isim")
end if
Rx.close
End Function
Function paket_baslik(id)
id=PostKontrol(id)
sorgum="Select * from paket_kat where goster=1 and id="&id
Rx.Open Sorgum, Baglantim, 1, 3
if rx.eof or rx.bof then
Response.Write("Paket Kaldırılmış.")
else
Response.Write rx("isim")
end if
Rx.close
End Function
Function haber_sayisi()
sorgum="Select * from haber where goster=true"
Rx.Open Sorgum, Baglantim, 1, 3
Response.Write rx.recordcount
Rx.close
End Function
Function hesapla_urun(sektor)
sektor=PostKondtrol(sektor)
Set Rx=Server.CreateObject("Adodb.Recordset")
sorgum="Select * from urun where Skodu="&sektor
Rx.Open Sorgum, Baglantim, 1, 3
Response.Write Rx.recordcount
Rx.close
End Function
Function hesapla_talep_alt(kodu)
kodu=PostKontrol(kodu)
tablo="talepler"
sorgum="Select * from "&tablo&" where Altsektor="&kodu
Rf.Open Sorgum, Baglantim, 1, 3
Response.Write Rf.recordcount
Rf.close
End Function
%>
<%
Function sayfa_numarasi()%>
<div align="center">
<table width="25" height="25" border="1" cellpadding="0" cellspacing="0" bordercolor="#000066">
<tr>
<td align="center"><span class="style2"><%= shf %></span>
</td>
</tr>
</table><br>
<table width="100%" border="0" cellpadding="2" cellspacing="2">
<tr>
<td align="center">
<% onceki=shf-1%>
<%if shf=1 then%>
««
<%else%>
<a href="?shf=1">««</a>
<%end if%>
| <%if onceki<1 then%>
«
<%else%>
<a href="?shf=<%=onceki%>">«</a>
<%end if%>
|
<% for y=1 to sayfa %>
<% x=x+1
if shf=y then
response.write ""&y&" | "
else%>
<a href="?shf=<%=y%>"><%=y%></a> |
<% end if
if x>18 then
response.write ("</td></tr><tr><td>")
x=0
end if
next
sonraki=shf+1
if sonraki>sayfa then
%>
»
<%else%>
<a href="?shf=<%=sonraki%>">»</a>
<%end if%>
|
<%if shf=sayfa then%>
»»
<%else%>
<a href="?shf=<%=sayfa%>">»»</a>
<%end if%>
</div>
</td>
</tr>
</table>
<% 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 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, "ğ", "Ğ")
metin = Replace(metin, "h", "H")
metin = Replace(metin, "i", "İ")
metin = Replace(metin, "ı", "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, "ş", "Ş")
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, "Ğ", "ğ")
kelime = Replace(kelime, "H", "h")
kelime = Replace(kelime, "I", "ı")
kelime = Replace(kelime, "İ", "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, "Ş", "ş")
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%><%
Function KarakterSay(byVal strVeri, byVal strKarakter)
Dim intSayi, intVeriUzunluk
If strVeri = "" OR strKarakter = "" Then Exit Function
intSayi = 0
intVeriUzunluk = Len(strVeri)
For intLooper = 1 To intVeriUzunluk
If Mid(strVeri, intLooper, 1) = strKarakter Then
intSayi = intSayi + 1
End If
Next
KarakterSay = intSayi
End Function
%>