当前位置: 首页 > 图文教程 > 网络编程 > ASP > 输出带日期格式的随机数.asp

ASP
随机提取Access/SqlServer数据库中的10条记录的SQL语句
实现对Access数据库表重命名的一段代码
XML+XSL+CSS+ASP打造留言簿
小偷&小偷入库&采集入库
使用asp代码突破163相册的防盗连
CJJ专用ASP类库中的某个class
能不能在flash动画中给asp传递变量？
禁止站外提交表单
改进一下asp自带的formatNumber函数
收集asp的常用函数
CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格
ASP 指南
pjblog2的参数
ASP智能搜索的实现
网站生成静态页面攻略2:数据采集
网站生成静态页面攻略3:防采集策略
网站生成静态页面攻略4:防采集而不防搜索引擎策略
简单分页函数一 常用
asp最常用的分页函数
asp:生成静态页面函数

No. « 31 32 33 34 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 156 ::
收藏到网摘: n/a

 

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