bác NF dâu ? do?n code này ti?n hon cái random kia c?a bác nè, v?a nh? v?a don z?n ví z? nhá : #!/usr/local/bin/perl $basedir = "http://12a4ams.hypermart.net/hadd/"; @files = ("unso3.gif","unso4.gif","unso5.gif","unso6.gif","unso7.gif","unso8.gif","unso9.gif","unso10.gif","unso12.gif","unso13.gif","unso14.gif","unso15.gif","unso16.gif","unso17.gif","unso19.gif","unso20.gif"); $uselog = 0; # 1&0 $logfile = "/"; ############################################################################## srand(time ^ $$); $num = rand(@files); print "Location: $basedir$files[$num] "; if ($uselog eq '1') { open (LOG, ">>$logfile"); print LOG "$files[$num] "; close (LOG); } M?i l?n b?n ?n F5, b?n s? th?y m?i hình ?nh khác nhau c?a cô ngu?i iu nhí nh?nh c?a tôi.
heheeh tui có cái m?i rùi !! kh?i c?n list hình chi cho m?c công !! Bi gi? có g?n ngàn cái , dánh cái list ch?c ch?t wá!!! c?a chú ch? có 20 hình thôi !! c?a tui ga72nngàn cái l?n !! NICE FIFTEEN DO EVERYTHING U LIKE !! E***ed by - NF on 31/05/2001 05:59:53
nó là file CGI thôi !! Chuong trình này s? t? d?ng serach nh?ng file có duôi JPG và GIF --> sau do91 s? random nh?ng file dó --> c?ng thêm cái URL c?a hình r?i xu?t ra ! NICE FIFTEEN DO EVERYTHING U LIKE !!
