逸云 - 秦皇岛最好的网站建设、网站制作、网络推广与SEO网站优化团队

<%
   function MyRandn(n) '生成随机数字，n为数字的个数
dim thechr'先定义
thechr = ""'赋空值
for i=1 to n'作1到n的循环
   dim zNum,zNum2'定义zNum,zNum2
   Randomize'初始化随机函数，我觉得要和没要这句没有什么变化
   zNum = int(9*rnd)'rnd返回一个0到1的数，乘以9得到0到9的数
   zNum = zNum + 48'得到48到57的数
   thechr = thechr & chr(zNum)'转ASIIC码（转成字符串），不知道这个“ASIIC”写错没有，呵呵，转过来是0-9的数，通过’&‘符号做连接。
next'循环
MyRandn = thechr '赋值
end function


function MyRandc(n) '生成随机字符，n为字符的个数
dim thechr
thechr = ""
for i=1 to n
   dim zNum,zNum2
   Randomize
   zNum = int(25*Rnd)
   zNum2 = int(10*Rnd)
   if zNum2 mod 2 = 0 then
     zNum = zNum + 97
   else
     zNum = zNum + 65
   end if
   thechr = thechr & chr(zNum)
next
MyRandc = thechr
end function



response.write ucase(MyRandc(8))&"---"
response.write MyRandn(8)&"---"
for a=48 to 58
response.Write chr(a)&"---"
next
%>