|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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版会好点吧 |
|