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

2008-02-23 05:30:08来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

<%
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
%>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP创建SQL Server数据库的两种方法

下一篇:一个高效的数据分页的存储过程