<html>
<meta http-equiv="รีเฟรช" content="2">
-
วางโค้ดนี้ลงในเพจ ASP แล้วรัน!
-
<รหัส>
การสร้างชื่อไฟล์แบบสุ่ม
-
เครื่องกำเนิดฟังก์ชั่น (ความยาว)
สลัวฉัน, tempS, v
สลัวค(39)
อุณหภูมิ = ""
ค(1) = "ก": ค(2) = "ข": ค(3) = "ค": ค(4) = "ง": ค(5) = "อี": ค(6) = "ฉ": ค(7) = "ก"
ค(8) = "h": c(9) = "i": c(10) = "j": c(11) = "k": c(12) = "l": c(13) = "ม": ค(14) = "น"
ค(15) = "o": c(16) = "p": c(17) = "q": c(18) = "r": c(19) = "s": c(20) = "ที": ค(21) = "คุณ"
ค(22) = "วี": c(23) = "w": c(24) = "x": c(25) = "y": c(26) = "z": c(27) = "1": ค(28) = "2"
ค(29) = "3": ค(30) = "4": ค(31) = "5": ค(32) = "6": ค(33) = "7": ค(34) = "8": ค(35) = "9"
ค(36) = "-": c(37) = "_": c(38) = "@": c(39) = "!"
ถ้า isNumeric(Length) = False แล้ว
Response.Write "ไม่ได้ส่งประเภทข้อมูลตัวเลขไปยังฟังก์ชันนี้"
ออกจากฟังก์ชัน
สิ้นสุดถ้า
สำหรับ i = 1 ถึงความยาว
สุ่ม
v = Int((39 * รอบ) + 1)
tempS = tempS & ค(วี)
ต่อไป
เครื่องกำเนิด = tempS
ฟังก์ชันสิ้นสุด
สำหรับ i = 1 ถึง 20
สุ่ม
x = Int((20 * รอบ) + 1) + 10
Response.Write Generator (x) & "<br>" & vbnewline
ต่อไป
-
</รหัส>