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

如何利用当前时间生成随机函数？ 下面，我们就从当前时间来取得随机数，调用的时候用包含文件就可以了： !--#INCLUDE VIRTUAL /quote.asp-- 代码： quote.asp %Set MyFileObj Server.CreateObject Scripting.FileSystemObject Set MyTextFile MyFileObj.OpenTextFile c:\quote.txt 设置好路径IF NOT MyTextFile.AtEndOfStream THENheader CInt MyTextFile.ReadLine 读表头END IFRANDOMIZE 生成基于表头的随机数, RANDOMIZE语句对确保一个随机数非常重要RandomValue INT header*RND +1Count 0 循环直到行号等于随机数,保存在变量引用WHILE NOT MyTextFile.AtEndOfStream AND NOT Count RandomValuequote MyTextFile.ReadLineCount Count + 1WEND 关闭文本文件MyTextFile.Close% 现在引用的是: % quote%