<Html>
<Meta http-equiv = "Refresh" content = "2">
<! --
Place this code into an ASP Page and run it!
-->
<Code>
Random FileName Creation
<%
Function Generator (Length)
Dim I, tempS, v
Dim c (39)
TempS = ""
C (1) = "a": c (2) = "B": c (3) = "c": c (4) = "d": c (5) = "e": c (6) = "f": c (7) = "g"
C (8) = "h": c (9) = "I": c (10) = "j": c (11) = "k": c (12) = "l": c (13) = "m": c (14) = "n"
C (15) = "o": c (16) = "p": c (17) = "q": c (18) = "r": c (19) = "s": c (20) = "t": c (21) = "u"
C (22) = "v": c (23) = "w": c (24) = "x": c (25) = "y": c (26) = "z": c (27) = "1": c (28) = "2"
C (29) = "3": c (30) = "4": c (31) = "5": c (32) = "6": c (33) = "7": c (34) = "8": c (35) = "9"
C (36) = "-": c (37) = "_": c (38) = "@": c (39) = "! "
If isNumeric (Length) = False Then
Response. Write "A numeric datatype was not submitted to this function ."
Exit Function
End If
For I = 1 to Length
Randomize
V = Int (39 * Rnd) + 1)
TempS = tempS & c (v)
Next
Generator = tempS
End Function
For I = 1 to 20
Randomize
X = Int (20 * Rnd) + 1) + 10
Response. Write Generator (x) & "<br>" & vbnewline
Next
%>
</Code>
(Source: Viphot)