Asp Her tıklamada Farklı Site Açılması.

DamgaNet · 28 Haziran 2006

Merhaba .

diyelimki www.sitemiz.com/site.asp diye bir link var ve bu linke tıklandıgında her seferinde siteler.txt dosyasındaki sitelerden birini açmasını istiyorum. Bunu asp de nasıl yapabiliriz.

Teşekkürler.

iyinet · 28 Haziran 2006

PHP olsaydi, cok yardimci olan cikardi sanirim.
Rastgele resim gosteren bir kod burada var tam istedigin degil ama, benzer, biraz ASP bilgin varsa ustune eklersin:

<%
dim generated_array
redim generated_array(3)

generated_array(1)="http://paradox24-7.com/asp/images/gen1.gif"
generated_array(2)="http://paradox24-7.com/asp/images/gen2.gif"
generated_array(3)="http://paradox24-7.com/asp/images/gen3.gif"

randomize timer
dim result
result=int(rnd*3)+1

dim strOut
select case result
case 1
strOut="<img src="&generated_array(1)&" border=0>"
case 2
strOut="<img src="&generated_array(2)&" border=0>"
case 3
strOut="<img src="&generated_array(3)&" border=0>"
end select
response.write (strOut)
%>

Kaynak: http://www.aspin.com/func/content-search?id=2297110

DamgaNet · 29 Haziran 2006

<%
dim generated_array
redim generated_array(3)

generated_array(1)="http://www.damga.net"
generated_array(2)="http://www.yeniforum.gen.tr"
generated_array(3)="http://www.kraloyun.gen.tr"

randomize timer
dim result
result=int(rnd*3)+1

dim strOut
select case result
case 1
strOut=""&generated_array(1)&""
case 2
strOut=""&generated_array(2)&""
case 3
strOut=""&generated_array(3)&""
end select
SiteUrl = (strOut)

Response.Redirect SiteUrl
%>

Ben denedim ve çalıştı artık sitenize göre kendiniz ayarlarsınız gerisini.

Saygılar

KerneL32 · 10 Temmuz 2006

Text dosyasindan rastgele verileri cekelim...

1-) once url.txt dosyasini olusturun ve alt alta ( her satira bir tane gelmek sarti ile ) adreslerinizi yazin.

2-) asagida verecegim kodlari site.asp seklinde kaydedin.

3-) site.asp yi calistirin

Kod:

<%
	Set Fsys = Server.CreateObject("Scripting.FileSystemObject")
	Set Fdeg = Fsys.OpenTextFile("url.txt", 1)

	yazi = Split(Fdeg.ReadAll, vbCrLf)

	Randomize
	satir	= Int(Rnd*UBound(yazi)+1)

	Response.Redirect yazi(satir)
	Set Fsys = Nothing
%>

Saygilar.

Deneyemedim. Ama problem cikacagini sanmiyorum. Malum su anda pc de iis yok. Problem cikarsa ulasabilirsiniz.

KerneL32 · 10 Temmuz 2006

Bu arada yukari da ki kodu daha kisaltabilirsiniz. ( @iyinet 'in verdigi @damganet in test ettigi kodlardan bahsediyorum. )

<%
generated_array(1)="http://www.damga.net"
generated_array(2)="http://www.yeniforum.gen.tr"
generated_array(3)="http://www.kraloyun.gen.tr"

randomize timer
result=int(rnd*UBound(generated_array))+1

Response.Redirect generated_array(result)
%>

Saygilar.

Asp Her tıklamada Farklı Site Açılması.

DamgaNet

0

iyinet

Root

DamgaNet

0

KerneL32

0

KerneL32

0

Çevrimiçi üyeler

Botlar