<% DIM AA = "12.8d52d" 'a = "25627" T1 = Timer () for j = 0 to 10000 * 1 t = checknum (a, len (a)) Nextt2 = Timer () response.write "execution time "& T2-T1 &"
"
IF CHECKNUM (A, LEN (a)) Then Response.write "Pure Digital" Else Response.write "Non-Positive Digital" end if
'The main function, it is determined whether a string of characters consists of numbers, and the subunies CHECK is called. Function Checknum (A, G) for i = 1 to g-1 if Check (MID (A, I, 1)) = false kil = check (MID (A, G, 1)) end function 'Sub function, determine if a character is a digital Function Check (b) if INSTR (1, "0123456789.", B, 1) = 0 THEN CHECK = false else check = true end ifend function%>
