指定长度的随机字符串

 '指定长度为dlen的随机字符串
rem 设置随机数字
function cdstr(dlen)
'response.write cdstr(9) ''指定长度为9的随机字符串
    dim ss,sslen
    randomize timer
    ss="1234567890"
    sslen = len(ss)
    cdstr = ""
    for i = 1 to dlen
        t = cint(rnd*sslen)+1 ''这里加1，不然出现mid(ss,0,1)会出错
    cdstr = cdstr&mid(ss,t,1)
    next
end function