asp生成带日期的随机数
作者：亮亮 来源：亮亮blog 发布时间：2008-09-03 13:13:00
标签：日期,随机,函数
很简单的一个函数，就是根据当前的日期生成一个随机数。
<％
Function getRnd()
'****************************************
'返回值：如getRnd()，即输出200808241553464617，为2008年08月24日15时53分46秒4617随机数
'关联函数：formatInt()
'****************************************
getRnd = ""
getRnd = getRnd&formatInt(year(now),4)
getRnd = getRnd&formatInt(month(now),2)
getRnd = getRnd&formatInt(day(now),2)
getRnd = getRnd&formatInt(hour(now),2)
getRnd = getRnd&formatInt(minute(now),2)
getRnd = getRnd&formatInt(second(now),2)
randomize
ranNum=int((9000*rnd)+1000)
getRnd = getRnd&ranNum
End Function
Function formatInt(Expression,Digit)
'****************************************
'函数名：formatInt
'作 用：输出Digit位左边带0整数
'参 数：Expression ----要格式化整数
'参 数：Digit ----要格式化位数
'返回值：如006，如FormatIntNumber(6,3)，整数5被格式化为006
'关联函数：无
'****************************************
While Len(Expression) < Digit
Expression = "0"&Expression
wend
formatInt = Expression
End Function
response.Write(getRnd()&"<br>")
response.Write(formatInt(24,5))'输出00024
％>
0
投稿猜你喜欢
设法让用户happy吧～只要你的设计让用户乐了，产品的个性就得到了一次彰显，而用户对网站的情感就会获得一次升华，看看下面的知名网站的人性化设- 一个动态数组 a，如果你已经使用redim 语句给它设定了大小，那么在此之后使用 ubound(a) 就可以得到它的上边界。如果你没有使用
- 通常情况下，即使MyISAM表格式非常可靠（SQL语句对表做的所有改变在语句返回之前被写下），如果下列任何事件发生，你依然可以获得损坏的表：
- 在讲这个问题之前让我们来先看一段代码： dim sql_injdata,SQL_inj,SQL_Get,SQL_Data,Sql_
- 我们通常会通过单击按钮的操作，将定义好的内容直接复制到剪贴板对于用户来说点了按钮直接【Ctrl】+【V】就可以了。其实该功能的核心原理就是用
- 本文探讨了提高MySQL数据库性能的思路，并从8个方面给出了具体的解决方法。1、选取最适用的字段属性MySQL可以很好的支持大数据量的存取，
- 问：握怎样测试 MySQL安装?答：可以通过以下命令测试MySQL服务器是否工作：C:\> C:\Program Files\MySQ
- IIS设置首先打开IIS就不用说了巴第2步右建默认网站属性第3步主目录选项卡点击第3步的配置按钮弹出窗口的设置，至此IIS设置完毕任意编辑器
- 在Soundbreak我们每天24小时不间断地播放实况音频和视频，所以对于MySQL的新增的复制特性，我们不能做出很令人信服的测试。通过测试
- SOLyog的下载、安装以及使用很简单。我去了相关网站下载，它只有384K字节大小。它把两个文件(一个可执行文件.exe和一个动态链接库文件
- 人的大脑通过双眼来辨别视觉图形获取信息。大脑根据储存的经验，将所看到的视觉图形建立起优先级。由此可见，一个良好的视觉设计可以帮助大脑迅速有效
- 技巧之一：提高使用Request集合的效率 访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的
- Apple4.us的张亮问我：“很多人说用户体验是苹果的核心竞争力。在用户体验方面，我究竟该从苹果的设计中学习什么” ？关于这个问题的答案我
- 申明如下:1 本着大家都学习的目的,我们只研究官方对应的4.0板本,请大家注意尊重开发者,保护知识产权,商业使用,请到官方购买正板!2 文章
- 使用 IE8 时发现其原生的 JSON 解析器存在 Bug，让我们先用 IE8 打开 DEMO 页面体验下。http://lab.grace
- Q:Dreamweaver（简称DW）中如何输入空格？A：按下“Ctrl＋Shift＋空格键”或者在中
- 什么是JSON http://www.json.org/json-zh.htmlJSON(Javascript Object Notatio
- 本文帮你六步改善SQL Server安全规划全攻略。一、什么是SQL注入式攻击所谓SQL注入式攻击，就是攻击者把SQL命令插入到Web表单的
- asp防止用户同时登陆的方法，实现这个功能可有两种方式：1.使用application用application对象：如果做的是大型社区，可能
- Google以其简洁的搜索框引领着互联网，搜索系统似乎成了每个网站必备品，甚至于是那些本身几乎是由静态页面组成的企业网站都要来个搜索功能，这
