<%
'******************************
'函數: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
%>