繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 输出带日期格式的随机数.asp
- ASP
- 如何编写适合FireFox的对话框？
- 关于处理GET方式提交的含有特殊字符的参数
- 对URL地址进行编码 优化2
- 在线管理数据库 类
- 用Asp备份与恢复SQL Server 数据库
- 计算两个时间之差的函数
- asp实现sql的备份与恢复
- SQL Server 存储过程的分页
- sql 存储过程分页
- 邹建的分页存储过程改了一下
- 关于使用存储过程创建分页
- SQL SERVER编写存储过程小工具
- 各种存储过程使用指南
- SQL Server--怎样用ADO在SQL SERVER中建库，建表
- 几例在ASP存储过程的使用方法
- 用ASP+XML打造留言本
- 让 Asp 与 XML 交互
- msxml3.dll 错误 ''800c0005''解决方案
- MSXML4.0 版中的新增功能
- 关于ASP生成伪参数技巧
ASP 中的 输出带日期格式的随机数.asp
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 159 ::
收藏到网摘: n/a
<%
Function GetRanNum()
'****************************************
'函数名：GetRanNum
'作 用：输出带日期格式的随机数
'参 数：无 ----
'返回值：如GetRanNum()，即输出200409071553464617，为2004年09月07日15时53分46秒4617随机数
'关联函数：FormatIntNumber
'****************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
randomize
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
End Function
Function FormatIntNumber(Expression,Digit)
'****************************************
'函数名：FormatIntNumber
'作 用：输出Digit位左边带0整数
'参 数：Expression ----要格式化整数
'参 数：Digit ----要格式化位数
'返回值：如0005，如FormatIntNumber(5,4)，整数5被格式化为0005
'关联函数：无
'****************************************
While Len(Expression) < Digit
Expression = "0"&Expression
wend
FormatIntNumber = Expression
End Function
%><%
Function GetRanNum()
'****************************************
'函数名：GetRanNum
'作 用：输出带日期格式的随机数
'参 数：无 ----
'返回值：如GetRanNum()，即输出200409071553464617，为2004年09月07日15时53分46秒4617随机数
'关联函数：FormatIntNumber
'****************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
randomize
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
End Function
Function FormatIntNumber(Expression,Digit)
'****************************************
'函数名：FormatIntNumber
'作 用：输出Digit位左边带0整数
'参 数：Expression ----要格式化整数
'参 数：Digit ----要格式化位数
'返回值：如0005，如FormatIntNumber(5,4)，整数5被格式化为0005
'关联函数：无
'****************************************
While Len(Expression) < Digit
Expression = "0"&Expression
wend
FormatIntNumber = Expression
End Function
%>
评论 (0) All
