当前位置：首页 > 资讯 > 技术文档

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

时间：2022-08-08 00:14 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何利用当前时间生成随机函数？

[u]quote.asp

[/u]

<% 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> [b][1][/b]

全部评论(0)

上一篇：如何检测用户第一次访问我的网站并显示友好信息？
下一篇：如何做一个密码“生成器”？

资讯排行榜
更多>>