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