asp 生成任意英文+数字位数长度的随机码函数

<%
'******************************
'函数：generator(length)
'参数：length,任意长度的数值，随机码位数
'作者：阿里西西
'日期：2007/7/15
'描述：生成任意英文+数字位数长度的随机码函数
'示例：generator(80)
'******************************
function generator(length)
 dim i, temps
 temps = "abcdefghijklmnopqrstuvwxyz1234567890" 
 generator = ""
 if isnumeric(length) = false then 
  exit function 
 end if 
 for i = 1 to length 
  randomize 
  generator = generator & mid(temps,int((len(temps) * rnd) + 1),1)
 next 
end function 
%>