如何利用當(dāng)前時間生成隨機函數(shù)？
更新時間：2006年11月16日 00:00:00 作者：
quote.asp
<%
Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObj.OpenTextFile("c:\quote.txt")
' 設(shè)置好路徑.
IF NOT MyTextFile.AtEndOfStream THEN
header = CInt(MyTextFile.ReadLine)
' 讀表頭.
END IF
RANDOMIZE
' 生成基于表頭的隨機數(shù), RANDOMIZE語句對確保一個隨機數(shù)非常重要.
RandomValue = INT(header*RND)+1
Count=0
' 循環(huán)直到行號等于隨機數(shù),保存在變量引用.
WHILE NOT MyTextFile.AtEndOfStream AND NOT Count = RandomValue
quote = MyTextFile.ReadLine
Count = Count + 1
WEND
' 關(guān)閉文本文件.
MyTextFile.Close
%>
<html>
<body>
現(xiàn)在引用的是: <%=quote%>
</body></html>
[1]
相關(guān)文章
如何用POP3接收電子郵件？...2006-11-11
如何創(chuàng)建一個PDF文件？...2006-11-11
如何實現(xiàn)某一頁面只讓特定的用戶瀏覽？...2006-11-11
如何在網(wǎng)站中插播廣告？...2006-11-11
如何取回已忘記的密碼？...2006-11-11
如何實現(xiàn)非大小寫的替換？...2006-11-11
如何刪除客戶端的Cookies？...2006-11-11
如何限制上傳文件的大?。?..2006-11-11
如何判斷電子郵件的地址格式是否正確？...2006-11-11
如何對一個文件夾進行創(chuàng)建和刪除？...2006-11-11