ASPÉú³ÉËæ»úÊýʵÀýÖ®¶þ

Function  Createpass(LengthNum)  
                Dim  Ran,i  
                if  Not  IsNumeric(LengthNum)  then  LengthNum=16  
                Createpass=""  
                For  i=1  To  LengthNum  
                        Randomize  
                        Ran  =  CInt(Rnd  *  2)  
                        Randomize  
                        If  Ran  =  0  Then  
                                Ran  =  CInt(Rnd  *  25)  +  97  
                                Createpass  =Createpass&  UCase(Chr(Ran))  
                        ElseIf  Ran  =  1  Then  
                                Ran  =  CInt(Rnd  *  9)  
                                Createpass  =  Createpass  &  Ran  
                        ElseIf  Ran  =  2  Then  
                                Ran  =  CInt(Rnd  *  25)  +  97  
                                Createpass  =Createpass&  Chr(Ran)  
                        End  If  
                Next  
        End  Function  

Dim  nums  
        nums=Createpass(15)  
        response.write  nums