<<html>
<head>
<title>ASP中生成随机数</title>
</head>
<body>
<%
Function get_code(digits)  
dim char_array(80)               	'定义并初始化数组
	For i=0 To 9                  	'初始化数字
	char_array(i)=CStr(i)
	Next
	For i=10 To 35               	'初始化大写字母
	char_array(i)=Chr(i+55)
	Next
	For i=36 To 61     			'初始化小写字母
	char_array(i)=Chr(i+61)
	Next
    Randomize                		'初始化随机数生成器
	do while len(output)<digits
	num=char_array(Int((61-0+1)*Rnd+0))
	output=output&num
	loop
	get_code=output            	'设置返回值
End Function
response.write"随机产生的数字为:"& get_code(5)
%>
</body>
</html>
