仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 408|回复: 7
打印 上一主题 下一主题

[学习教程] ASP编程:输入带日期格局的随机数.asp

[复制链接]
小妖女 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:35:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!<%
FunctionGetRanNum()
****************************************
函数名: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
EndFunction
FunctionFormatIntNumber(Expression,Digit)
****************************************
函数名:FormatIntNumber
作用:输入Digit位右边带0整数
参数:Expression----要格局化整数
参数:Digit----要格局化位数
前往值:如0005,如FormatIntNumber(5,4),整数5被格局化为0005
联系关系函数:无
****************************************
WhileLen(Expression)<Digit
Expression="0"&Expression
wend
FormatIntNumber=Expression
EndFunction
%><%
FunctionGetRanNum()
****************************************
函数名: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
EndFunction
FunctionFormatIntNumber(Expression,Digit)
****************************************
函数名:FormatIntNumber
作用:输入Digit位右边带0整数
参数:Expression----要格局化整数
参数:Digit----要格局化位数
前往值:如0005,如FormatIntNumber(5,4),整数5被格局化为0005
联系关系函数:无
****************************************
WhileLen(Expression)<Digit
Expression="0"&Expression
wend
FormatIntNumber=Expression
EndFunction
%>
转自:静态网制造指南www.ckuyun.com大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧
若天明 该用户已被删除
沙发
发表于 2015-1-19 17:56:22 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
谁可相欹 该用户已被删除
板凳
发表于 2015-1-24 16:57:44 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
飘飘悠悠 该用户已被删除
地板
发表于 2015-2-2 11:25:05 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
蒙在股里 该用户已被删除
5#
发表于 2015-2-7 19:01:39 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
分手快乐 该用户已被删除
6#
发表于 2015-2-23 00:25:51 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
深爱那片海 该用户已被删除
7#
发表于 2015-3-14 12:14:13 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
小魔女 该用户已被删除
8#
发表于 2015-3-21 06:47:28 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 14:29

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表