AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > ASP编程

输出带日期格式的随机数

51自学网 2015-09-11 http://www.51zixue.net

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

 

 

 
上一篇:一个高效的数据分页的存储过程  下一篇:ASP创建SQL&nbsp;Server数据库的两种方法