 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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 %> 返回类别: 教程 上一教程: 悠哉悠哉，一个复合查询方式 下一教程: ASP直接调用EXCEL数据的例子 您可以阅读与"输出带日期格式的随机数.ASP"相关的教程: · 输出带日期格式的随机数 · ASP的随机数的应用技术 · 关于ASP程序中日期型数据的格式问题 · 谈两种数据库内容HTML格式的输出方式 · 用ASP随机产生随机数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
