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

 1   
 2Function GetRanNum()   
 3'****************************************   
 4'函数名：GetRanNum   
 5'作 用：输出带日期格式的随机数   
 6'参 数：无 ----   
 7'返回值：如GetRanNum()，即输出200409071553464617，为2004年09月07日15时53分46秒4617随机数   
 8'关联函数：FormatIntNumber   
 9'****************************************   
10GetRanNum = ""   
11GetRanNum = GetRanNum&FormatIntNumber(year(now),4)   
12GetRanNum = GetRanNum&FormatIntNumber(month(now),2)   
13GetRanNum = GetRanNum&FormatIntNumber(day(now),2)   
14GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)   
15GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)   
16GetRanNum = GetRanNum&FormatIntNumber(second(now),2)   
17randomize   
18ranNum=int((9000*rnd)+1000)   
19GetRanNum = GetRanNum&ranNum   
20End Function   
21Function FormatIntNumber(Expression,Digit)   
22'****************************************   
23'函数名：FormatIntNumber   
24'作 用：输出Digit位左边带0整数   
25'参 数：Expression ----要格式化整数   
26'参 数：Digit ----要格式化位数   
27'返回值：如0005，如FormatIntNumber(5,4)，整数5被格式化为0005   
28'关联函数：无   
29'****************************************   
30While Len(Expression) < Digit   
31Expression = "0"&Expression   
32wend   
33FormatIntNumber = Expression   
34End Function