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

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.

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

<%
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

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


Saygilar.

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

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.