繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 输出带日期格式的随机数.asp
- ASP
- ASP中用Join和Array，可以加快字符连接速度。
- 采用ODBC接口访问MySQL指南
- 最大限度优化你的Asp性能
- 实现让每句话的头一个字母都大写
- 如何尽快释放掉Connection对象建立的连接？
- 把数据插入到数据库的两种方法
- Connection对象的应用
- 查看ASP Session 变量的小工具
- 用XMLHTTP组件正确解析图片地址并将其保存
- 利用XMLHTTP 从其他页面获取数据
- Request与Request.Form的速度测试
- 用SOAP和ASP进行服务器端更新
- ASP开发网页时需要牢记的注意事项列表
- 面向对象的ASP技术：思考与实践
- 提供一种“间接防止另存为”的方法
- 格式化数字函数FormatNumber
- 怎么样写一段高效，安全的sql查询代码
- 关于Adodb.Stream的使用说明
- 不用EOF以加快记录循环
- 防止重复提交的巧妙方法
ASP 中的 输出带日期格式的随机数.asp
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 239 ::
收藏到网摘: 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
%>
评论 (0) All
