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) &
& vbnewline
next
%>
（出处：viphot）