asp生成英文+数字可控制位数长度的随机码函数

<% 

'****************************** 

'函数：Generator(Length) 

'参数：Length,任意长度的数值，随机码位数 

'描述：生成任意英文+数字位数长度的随机码函数 

'示例：Generator(80) 

'****************************** 

Function Generator(Length) 

Dim i,temp 

temp = "abcdefghijklmnopqrstuvwxyz1234567890" 

Generator = "" 

If isNumeric(Length) = False Then 

Exit Function 

End If 

For i = 1 to Length 

Randomize 

Generator = Generator & Mid(temp,Int((Len(temp) * Rnd) + 1),1) 

Next 

End Function 

Response.Write(""&Generator(6)&"")

%>