|
Description
This script will pick from a list of quotes that you provide and display one randomly on the page.
Random Quote in PHP
Put this code in a file to get a random quote. The quotes file must be named quotes.txt and stored in the
same directory as the random quote file.
<?
$quoteFile = "quotes.txt"; //File holding qoutes
$fp = fopen($quoteFile, "r"); //Opens file for read
$content = fread($fp, filesize($quoteFile));
$quotes = explode("\n",$content); //Put quotes into array
fclose($fp); //Close the file
srand((double)microtime()*1000000); // randomize
$index = (rand(1, sizeof($quotes)) - 1); //Pick random qoute
echo $quotes[$index]; //Print quote to screen
?>
Random Quote in ASP
Just include the following code to print random text to the screen.
<%
Dim quotes(3), iNumber, iRandom 'Dim an array of 3 variables
quotes(0) = "First quote"
quotes(1) = "Second quote"
quotes(2) = "Third quote"
iRandom = ubound(quotes)
randomize 'call random function
iNumber = Int((iRandom)* Rnd) 'get random quote number
Response.Write(arrQuote(iNumber)) 'write output to screen
%>
| 
