·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 输出带日期格式的随机数.ASP

输出带日期格式的随机数.ASP

类别: ASP教程  评论数:0 总得分:0
<%
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
%>
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1