如何利用当前时间生成随机函数？
更新时间：2006年11月16日 00:00:00 作者：
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]
相关文章
如何在ASP中恰当地运用Cookies？...2006-11-11
如何判断用户是否非正常离开聊天室？...2006-11-11
如何上传一个单纯的HTML文件？...2006-11-11
如何使图象随机显示？...2006-11-11
这篇文章主要为大家介绍了字节跳动解决SLA治理难题的了解，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪2022-05-05
如何编写一个最简单的聊天程序？...2006-11-11
如何让计数器只对新进用户计数？...2006-11-11
如何编写一个过滤掉HTML代码的函数？...2006-11-11
如何用ASP建立Index Server查询对象并为其参数赋值？
如何用ASP建立Index Server查询对象并为其参数赋值？...2006-11-11
如何创建一个PDF文件？...2006-11-11
最新评论