ASP

一段随机英文+数字的过程

作者:JTee 日期:2009-8-25 22:03:25

字体大小: 小中大

一段随机英文+数字的过程，过程只有一个参数，传递位数的长度

ASP/Visual Basic 代码

<%
' 随机英文+数字
Function GetRamCode(f_number)
Randomize
Dim f_Randchar,f_Randchararr,f_RandLen,f_Randomizecode,f_iR
f_Randchar="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"
f_Randchararr=split(f_Randchar,",")
f_RandLen=f_number '定义密码的长度或者是位数
for f_iR=1 to f_RandLen
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
next
GetRamCode = f_Randomizecode
End Function
%>