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

超级冤案

超级冤案

2016-01-29 18:49

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

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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/) 
展开更多 56%)
分享
qqQQ
qzoneQQ空间
weibo微博

猜你喜欢

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

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

用ASP随机产生随机数

ASP
用ASP随机产生随机数

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Oracle 随机数

编程语言 网络编程
Oracle 随机数

随机数算法

编程语言 网络编程
随机数算法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Javascript随机数教程

Web开发
Javascript随机数教程

Javascript教程:随机数

Web开发
Javascript教程:随机数

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

简单快捷实现ASP在线发邮件功能

简单快捷实现ASP在线发邮件功能

ASP+Access莫名奇妙的sql语句错误解决

ASP+Access莫名奇妙的sql语句错误解决
下拉加载更多内容 ↓