| Berikut ini adalah fragmen kode: <% Fungsi makePassword (Byval maxlen) Redup strnewpass Redup whatsnext, atas, bawah, intcounter Mengacak Untuk intcounter = 1 ke maxlen Whatsnext = int ((1-0 1) * rnd 0) Jika whatsnext = 0 lalu atas = 90 Lebih rendah = 65 Kalau tidak atas = 57 Lebih rendah = 48 Akhiri jika Strnewpass = strnewpass & chr (inchete -lower 1) * rnd lebih rendah) Berikutnya Makepassword = StrnewPass fungsi akhir 'Tentukan panjang kata sandi, dan panggil fungsinya Response.write Makepassword (16) %> |