asp如何利用当前时间生成随机函数？
来源：asp之家 发布时间：2010-01-01 15:44:00
标签：时间,随机,函数
下面，我们就从当前时间来取得随机数，调用的时候用包含文件就可以了：
<!--#INCLUDE VIRTUAL="/quote.asp"-->
代码：
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>
0
投稿猜你喜欢
- 首先，我要在这里写上一些很官方的概念，意在说明面向对象是很具体化的，很实体的模式，不能让有些人看见“对象&rdq
- 本文介绍了随机提取N条记录的例子，通过Sql server与access数据库的代码比较让你更快的掌握。随机提取10条记录的例子：Sql s
- 每个浏览器都有自己的默认样式，这是一段预定义的CSS，用以简单地呈现网页。在Firefox中的地址栏中输入resource://gre/re
- Access 连接字符串 strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;
阅读上一章：Css布局Chapter 13 为文字指定样式我想以一章的篇幅来讨论用CSS设定文字样式的做法是个好点子.一般处理文字内容大概是- 一、使用css缩写使用缩写可以帮助减少你CSS文件的大小，更加容易阅读。css缩写的主要规则请参看《常用css缩写语法总结》，这里就不展开描
- 见下：<form action="./calculation.asp"><input&nbs
- SQL Server2005扩展函数已经不是一件什么新鲜的事了，但是我看网上的大部分都是说聚合函数，例子也比较浅，那么这里就讲讲我运用扩展函
- 困扰我很久问题终于在昨天被解决了。其实问题很简单<％ =now ％>老是显示12小时制，总是出现上午、下午。这个问题虽然很小，但
- 这是一篇知识性的文档，主要目的是为了让Web缓存相关概念更容易被开发者理解并应用于实际的应用环境中。为了简要起见，某些实现方面的细节被简化或
- 继续我们的 Javascript 优化计划，上期已经做到怎么尽可能的缩小 Javascript 脚本的文件体积便于传输。不过这样做仅仅是不够
- jQuery 1.4 源码 449 行（core.js 431 行），判断是否为函数的方法如下（思路来源于 Douglas Crockfor
- 总结了部分所学、所听、所看、所问的一些CSS写作经验，书写高效的CSS - 漫谈CSS的渲染效率，它们与渲染效率及所占用
- 记得当时我们要跟网友天下合作,需要这样的一个鼠标划过放大的列表效果,就写了一个效果截图：演示代码：<!DOCTYPE html PUB
- 在进行WEB标准网页设计时，必不可少的是写入大量的CSS语法，一般情况下我们可以通过Dreamweaver软件的“CSS样式”面板自动生成相
- create or replace PROCEDURE proceudre_name AS BEGIN DECLARE sPara VARC
- 今天把博客的日历脚本又改了一改，就帖上了，以后找起来方便一点，同时也给需要的人带来方便，本来还想加点功能再帖上来，不过我看还是没必要了，帖的
- 在正文前，先简短介绍自己。我任职于广州的某个网站服务公司的系统开发员，主要任务是以.Net编写各种web系统，例如CMS.EIP。大家都知道
- 前几天，看到有人写了个superLink的东东，主要的做什么用呢？我们有时会给在大块元素加个window.location='htt
- ERROR 2003:Can't connect to MySQL server on 'localhost' (1
