<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
以下是測試顯示12位的隨機數：
asp純數字隨機數：<%=qwbm_shuijima(18,1)%>
asp小寫字母隨機數：<%=qwbm_shuijima(18,2)%>
asp大寫字母隨機數：<%=qwbm_shuijima(18,3)%>
asp數字、小寫字母、大寫字母隨機數：<%=qwbm_shuijima(18,0)%>
以下是測試顯示36位的隨機數：
asp純數字隨機數：<%=qwbm_shuijima(36,1)%>
asp小寫字母隨機數：<%=qwbm_shuijima(36,2)%>
asp大寫字母隨機數：<%=qwbm_shuijima(36,3)%>
asp數字、小寫字母、大寫字母隨機數：<%=qwbm_shuijima(36,0)%>
<%
'（取指定長度隨機字符串 ，0：數字+大小寫字母；1：數字 2：小寫；2：大寫）
Function qwbm_shuijima(sj_length,sj_mode)
sj_mima_shuzi = "0123456789" '數字
sj_mima_xiaoxie = "abcdefghijklmnopqrstuvwxyz" '小寫字母
sj_mima_daxie = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" '大寫字母
Select Case sj_mode
Case 1:sj_mima_data = sj_mima_shuzi
Case 2:sj_mima_data = sj_mima_xiaoxie
Case 3:sj_mima_data = sj_mima_daxie
Case else:sj_mima_data = sj_mima_shuzi & sj_mima_xiaoxie & sj_mima_daxie
End Select
sj_j = Len(sj_mima_data)
Randomize(Timer)
For i = 1 To sj_length
sj_sow = sj_sow & Mid(sj_mima_data, Int(sj_j * Rnd + 1), 1)
Next
qwbm_shuijima = sj_sow
End Function
%>
蘇公網安備 32070502010230號