quote.asp
%
Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObj.OpenTextFile("c:\quote.txt")
' 設置好路徑.
IF NOT MyTextFile.AtEndOfStream THEN
header = CInt(MyTextFile.ReadLine)
' 讀表頭.
END IF
RANDOMIZE
' 生成基于表頭的隨機數, RANDOMIZE語句對確保一個隨機數非常重要.
RandomValue = INT(header*RND)+1
Count=0
' 循環直到行號等于隨機數,保存在變量引用.
WHILE NOT MyTextFile.AtEndOfStream AND NOT Count = RandomValue
quote = MyTextFile.ReadLine
Count = Count + 1
WEND
' 關閉文本文件.
MyTextFile.Close
%>
html>
body>
現在引用的是: %=quote%>
/body>/html>
[1]
您可能感興趣的文章:- sql server中隨機函數NewID()和Rand()
- python中隨機函數random用法實例
- php中隨機函數mt_rand()與rand()性能對比分析
- perl寫的一個隨機編故事的程序(rand隨機函數)
- Oracle隨機函數之dbms_random使用詳解
- php數組函數序列 之shuffle()和array_rand() 隨機函數使用介紹
- 如何產生真正的隨機函數？
- 詳解C語言中rand函數的使用
