来源:远方网络 | 2005-7-16 10:25:59 | (有1946人读过)
<% 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 %>
|