long = MkRnd(length)

Tạo một số ngẫu nhiên với độ dài được xác định trong đối số length. Trả về một số kiểu Long.

<%
'--- Tạo một số ngẫu nhiên có 10 chử số.
Response.Write MkRnd( 10 )
%>

<%
Private Function MkRnd(byVal length)
    Dim i, tmp
    For i = 1 to CInt( length )
        Randomize
        tmp = tmp & CInt(Rnd*9)
    Next
    MkRnd = StrReverse( tmp )
End Function
%>