神马品牌网香河汉迪克家具厂:求用asp产生随即数
来源：百度文库 编辑：神马品牌网 时间：2024/05/11 05:10:51
用符号“,./;'[]\=-`”和数字0～9和字母随即组合产生一个16位或者指定位数的随机数。
请各位高手回答。
请各位高手回答。
我也是刚学ASP不久..查了查资料..写了一个..不足之处还望指正..
<%
'n---指定位数
'r---是否每个字符只用一次: true / false
'weiwei--2006/07/03
Function getStr(n,r)
Dim str1,str2
Dim cnt
str1=",_._/_;_'_[_]_\_=_-_`_0_1_2_3_4_5_6_7_8_9"
'把小写字母a--z加入到str1
For i=97 To 122
str1=str1&"_"&Chr(i)
Next
'把str1拆分到str2数组;取数组元素个数cnt
str2=Split(str1,"_")
cnt=UBound(str2)
i=0
While i<n
Randomize
str2_index=int((cnt-1)*Rnd +1)
If r then
If InStr(getStr,str2(str2_index))=0 Then
getStr=getStr&str2(str2_index)
i=i+1
End If
Else
getStr=getStr&str2(str2_index)
i=i+1
End if
Wend
End Function
response.write getStr(16,true) &"<p>"
response.write getStr(16,false)
%>