网站地图    收藏   

子栏目

主页 > 入门引导 > 网站问答 >

如何利用当前时间生成随机函数？_编程10000问_

来源：自学PHP网    时间：2015-02-03 17:41 作者： 阅读:次

[导读] 如何利用当前时间生成随机函数？...

NEWSZW_HZH_BEGIN-->

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]

NEWSZW_HZH_END-->

最新评论

    加载更多~~

    添加评论

    更多文章推荐

    自学PHP网专注网站建设学习,PHP程序学习,平面设计学习，以及操作系统学习

    京ICP备14009008号-1@版权所有www.zixuephp.com

    网站声明：本站所有视频，教程都由网友上传，站长收集和分享给大家学习使用，如由牵扯版权问题请联系站长邮箱904561283@qq.com

    添加评论