注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

小新之家

心灵的放松地点

 
 
 

日志

 
 

ASP随即产生密码  

2009-09-26 15:05:47|  分类: 学习资料 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

<%
dim mychar,my,mycodenum,mycode
mychar="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z" '将数字和小写字母组成一个字符串,也可以是数字和大写字母组成.
my=split(mychar,",") '将字符串过滤后生成数组
mycodenum=8 '定义密码的长度或者是位数
for i=1 to mycodenum
    Randomize
    mycode=mycode&my(Int((21*Rnd))) '数组一般从0开始读取,所以这里为21*Rnd
next
'在表单中使用时这样用:session("mynum")=mycode

'在网页中显示时这样用:response.write mycode

response.write(""&mycode&""+"<br>")
%>
<%dim num1
   dim rndnum
   Randomize
   Do While Len(rndnum)<6   '定义密码的长度或者是位数

   num1=CStr(Chr((57-48)*rnd+48))
   rndnum=rndnum&num1
   loop
'在显示时这样用:response.write rndnum

'在表单中使用时这样用:session("mynum")=rndnum
response.write(""&rndnum&"")
%>

  评论这张
 
阅读(121)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017