function | random | filename generated by random file name function ...
<meta http-equiv= "Refresh" content= "2" >
<!--
Place here 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 (a) = "J": C (one) = "K": C (a) = "L": c () = "M": c (= "n")
c = "O": c = "P": C (m) = "Q": C (m) = "R": C (P) = "s": c () = "T": c () = "U"
C () = "V": C (k) = "W": C (a) = "X": c (= "Y": c () = "Z": C (m) = "1": C (28) = "2"
(c) = "3": c = "4": C (to) = "5": C (m) = "6": C (m) = "7": C (MB) = "8": C (35) = "9"
C (+) = "-": C (Panax) = "_": C (d) = "@": C (39) = "!"
If IsNumeric (Length) = False Then
Response.Write "A Numeric datatype is not submitted to this function."
Exit Function
End If
For i = 1 to Length
Randomize
v = Int ((Rnd) + 1)
TempS = TempS & C (v)
Next
Generator = TempS
End Function
For i = 1 to 20
Randomize
x = Int ((Rnd) + 1) + 10
Response.Write Generator (x) & "<br>" & vbNewLine
Next
%>
</code>
