如何利用當(dāng)前時(shí)間生成隨機(jī)函數(shù)？
更新時(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
' 生成基于表頭的隨機(jī)數(shù), RANDOMIZE語句對(duì)確保一個(gè)隨機(jī)數(shù)非常重要.
RandomValue = INT(header*RND)+1
Count=0
' 循環(huán)直到行號(hào)等于隨機(jī)數(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]
您可能感興趣的文章:
- sql server中隨機(jī)函數(shù)NewID()和Rand()
- python中隨機(jī)函數(shù)random用法實(shí)例
- php中隨機(jī)函數(shù)mt_rand()與rand()性能對(duì)比分析
- perl寫的一個(gè)隨機(jī)編故事的程序(rand隨機(jī)函數(shù))
- Oracle隨機(jī)函數(shù)之dbms_random使用詳解
- php數(shù)組函數(shù)序列 之shuffle()和array_rand() 隨機(jī)函數(shù)使用介紹
- 如何產(chǎn)生真正的隨機(jī)函數(shù)？
- 詳解C語言中rand函數(shù)的使用
相關(guān)文章
如何在ASP中恰當(dāng)?shù)剡\(yùn)用Cookies？
如何在ASP中恰當(dāng)?shù)剡\(yùn)用Cookies？...2006-11-11
如何判斷用戶是否非正常離開聊天室？...2006-11-11
如何上傳一個(gè)單純的HTML文件？...2006-11-11
如何使圖象隨機(jī)顯示？...2006-11-11
這篇文章主要為大家介紹了字節(jié)跳動(dòng)解決SLA治理難題的了解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-05-05
如何編寫一個(gè)最簡(jiǎn)單的聊天程序？...2006-11-11
如何讓計(jì)數(shù)器只對(duì)新進(jìn)用戶計(jì)數(shù)？
如何讓計(jì)數(shù)器只對(duì)新進(jìn)用戶計(jì)數(shù)？...2006-11-11
如何編寫一個(gè)過濾掉HTML代碼的函數(shù)？...2006-11-11
如何用ASP建立Index Server查詢對(duì)象并為其參數(shù)賦值？
如何用ASP建立Index Server查詢對(duì)象并為其參數(shù)賦值？...2006-11-11
如何創(chuàng)建一個(gè)PDF文件？...2006-11-11