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]
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
