<%
'******************************
'函數：Generator(Length)
'參數：Length,任意長度的數值，隨機碼位數
'作者：阿里西西
'日期：2007/7/15
'描述：生成任意英文+數字位數長度的隨機碼函數
'示例：Generator(80)
'******************************
FunctionGenerator(Length)
Dimi,tempS
tempS="abcdefghijklmnopqrstuvwxyz1234567890"
Generator=""
IfisNumeric(Length)=FalseThen
ExitFunction
EndIf
Fori=1toLength
Randomize
Generator=Generator&Mid(tempS,Int((Len(tempS)*Rnd)+1),1)
Next
EndFunction
%>