当前位置: 首页 > 图文教程 > 网络编程 > ASP > 输出带日期格式的随机数.asp

ASP
用密码保护页面 (II)
用密码保护页面 (III)
简单的文件目录浏览源程序
ASP中的函数应用方法及应用举例(一)
ASP中的函数应用方法及应用举例(二)
完整的访问统计系统（一：数据库篇）
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
一个提供用户输入时期的绝好程序之(一)
一个提供用户输入时期的绝好程序之(二)
构建你的网站新闻自动发布系统之五
构建你的网站新闻自动发布系统之六
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
ASP环境下邮件列表功能的实现 （一）
ASP环境下邮件列表功能的实现 （二）
ASP环境下邮件列表功能的实现 （三）
ASP环境下邮件列表功能的实现 （四）
ASP进阶之文章在线管理更新(1)
ASP进阶之文章在线管理更新(2)

No. « 215 216 217 218 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 72 ::
收藏到网摘: 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
%>