Function make50file()
    dim a(8)
    For j=0 to 8
    Do
    Randomize
    asciicode=Int((122 - 48 + 1) * Rnd + 48)
    Loop Until asciicode<=57 or (65<=asciicode and asciicode<=90) or 97<=asciicode
    a(j)=chr(asciicode)
    Next
    make50file=Join(a,"")
End Function

上一篇：showModalDialog和showModelessDialog
下一篇：身份证号码检验函数JavaScript