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