|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。随机|随机申明:经由过程随机发生暗码,然后将暗码EMail给注册用户,你能够确认用户的EMail填写是不是准确。主动发生的暗码常常平安性更高,同时,你能够过滤那些有效的用户。
把上面的代码保留为random.asp文件:
<%
SubStrRandomize(strSeed)
Dimi,nSeed
nSeed=CLng(0)
Fori=1ToLen(strSeed)
nSeed=nSeedXor((256*((i-1)Mod4)*AscB(Mid(strSeed,i,1))))
Next
RandomizenSeed
EndSub
FunctionGeneratePassword(nLength)
Dimi,bMadeConsonant,c,nRnd
ConststrDoubleConsonants="bdfglmnpst"
ConststrConsonants="bcdfghklmnpqrstv"
ConststrVocal="aeiou"
GeneratePassword=""
bMadeConsonant=False
Fori=0TonLength
nRnd=Rnd
IfGeneratePassword""AND(bMadeConsonantTrue)AND(nRnd<0.15)Then
c=Mid(strDoubleConsonants,Int(Len(strDoubleConsonants)*Rnd+1),1)
c=c&c
i=i+1
bMadeConsonant=True
Else
If(bMadeConsonantTrue)And(nRnd<0.95)Then
c=Mid(strConsonants,Int(Len(strConsonants)*Rnd+1),1)
bMadeConsonant=True
Else
c=Mid(strVocal,Int(Len(strVocal)*Rnd+1),1)
bMadeConsonant=False
EndIf
EndIf
GeneratePassword=GeneratePassword&c
Next
IfLen(GeneratePassword)>nLengthThen
GeneratePassword=Left(GeneratePassword,nLength)
EndIf
EndFunction
%>
然后在你的方针程序中如许挪用下面的代码,就能够完成暗码的主动天生:(仅仅是一个例子,你能够把他们粘贴到一个Test.asp的文件中,然后运转Test.asp)
<!--includefile="random.asp"-->
<%
发生一个六位的暗码
StrRandomizeCStr(Now)&CStr(Rnd)
response.writeGeneratePassword(6)
%>
<br><br>
<%
发生一个8位的暗码
StrRandomizeCStr(Now)&CStr(Rnd)
response.writeGeneratePassword(8)
%>
<br><br>
<%
发生一个10位的暗码
StrRandomizeCStr(Now)&CStr(Rnd)
response.writeGeneratePassword(10)
%>
<br><br>
<%
发生1000个暗码
dimt,t2
fort=1to500
Fort2=1to661
StrRandomizeCStr(Now)&CStr(Rnd)
next
StrRandomizeCStr(Now)&CStr(Rnd)
response.writeGeneratePassword(6)
response.write"<br>"
next
%></p>asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关. |
|