Burak ŞİMŞEK - Kişisel İnternet Sitesi - Ücretsiz BŞ & UWN Scriptleri

  • Increase font size
  • Default font size
  • Decrease font size

Hoş geldiniz, Ziyaretçi
Kullanıcı Adı Şifre: Beni hatırla
  • Sayfa:
  • 1

BAŞLIK: Selamlar yardım edermisiniz?

Selamlar yardım edermisiniz? 17 Ağu 2011 21:44 #698

  • Ben Hasan
Merhabalar burak hocam ben sizin link script bankası scriptinizi aldım daha dogrusu indirdim ancak her şey tamam.
-Ben veriden bu linklerinin resimlerini sitenin sag sol üst alt kısmına rastgele çekmek istiyorum.
-Bir sayfa yaptım ve bu sayfadaki kodlar rastgele linkne yönlendiriyor ama ben bunu kategori sistemindeki linklere göre yönlendirmesini istiyorum yani

default.asp den 3 sayfa pop-up pençere açtırıyorum

sayfa1.asp

<!-- #include file=inc_ayar.asp -->
<center>
<%
Set Rawkmetal = Server.CreateObject("ADODB.Connection")
Rawkmetal.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/hasan.mdb")

Server.MapPath("db/hasan.mdb")
set Rawk = server.createobject("ADODB.Recordset")
sql = "select *from LINK WHERE ONAY=1"
Rawk.open sql,Rawkmetal,1,3
Randomize
rastgele = Int((Rnd*Rawk.RecordCount)+0)
Rawk.Move(rastgele)

Rawk("ONAY")= Rawk("ONAY") - 1
Rawk.update

Response.Redirect Rawk("LINK_URL")
%>

bu kodlar var

sayfa2.asp
<!-- #include file=inc_ayar.asp -->
<center>
<%
Set Rawkmetal = Server.CreateObject("ADODB.Connection")
Rawkmetal.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/hasan.mdb")

Server.MapPath("db/hasan.mdb")
set Rawk = server.createobject("ADODB.Recordset")
sql = "select *from LINK WHERE ONAY=1"
Rawk.open sql,Rawkmetal,1,3
Randomize
rastgele = Int((Rnd*Rawk.RecordCount)+0)
Rawk.Move(rastgele)

Rawk("ONAY")= Rawk("ONAY") - 1
Rawk.update

Response.Redirect Rawk("LINK_URL")
%>

sayfa3.asp

<!-- #include file=inc_ayar.asp -->
<center>
<%
Set Rawkmetal = Server.CreateObject("ADODB.Connection")
Rawkmetal.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/hasan.mdb")

Server.MapPath("db/hasan.mdb")
set Rawk = server.createobject("ADODB.Recordset")
sql = "select *from LINK WHERE ONAY=1"
Rawk.open sql,Rawkmetal,1,3
Randomize
rastgele = Int((Rnd*Rawk.RecordCount)+0)
Rawk.Move(rastgele)

Rawk("ONAY")= Rawk("ONAY") - 1
Rawk.update

Response.Redirect Rawk("LINK_URL")
%>

bu kodlar tamam deil yani misal 3 kategori var

genel-ticari-diger

sayfa1.asp ye genel kategorisinden bütün linkleri rastgele bir şekilde yönlendirme yapacam ama nasıl yapabilirim yardım edermisiniz

sayfa2.asp ye ticari kategorisinden bütün linkleri rastgele bir şekilde yönlendirme yapacam ama nasıl yapabilirim yardım edermisiniz

sayfa3.asp ye diger kategorisinden bütün linkleri rastgele bir şekilde yönlendirme yapacam ama nasıl yapabilirim yardım edermisiniz

yardımlarınız için şimdiden teşekürler ederim

Cvp: Selamlar yardım edermisiniz? 18 Ağu 2011 00:44 #699

Merhaba Hasan bey, öncelikle scriptimizi kullandığınız için teşekkür ederim.

Birinci sorunuzu tam olarak anlayamadım, biraz daha açıklayabilirseniz sevinirim.

İkinci soruna gelince eğer kodları hazırladıysanız yapmanız gereken o kodlara şöyle bir ufak kod eklemenizdir.

Örnek olarak sizdeki kodu şu şekilde:
sql = "select *from LINK WHERE ONAY=1"


Bu kodu şu şekilde değiştiriniz:
sql = "select *from LINK WHERE KAT_ID=10 AND ONAY=1"


Burada benim eklemiş olduğum 10 sayısı kategorinin id numarasını göstermektedir. Dolayısıyla sizin yapmanız gereken buradaki 10 sayısı yerine yapmak istediğiniz kategorinin id numarasını yazmanızdır.
  • Sayfa:
  • 1
Sayfa oluşturulma süresi: 0.38 saniye

Beğen:
Takip Et: RSS