欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

如何利用当前时间生成随机函数?

程序员文章站 2022-10-28 12:18:54
quote.asp<%set myfileobj = server.createobject("scrip...

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]