这函数是什么意思?
so8os 2003-12-18 02:10:58 <%
Function procedureC
Randomize
procedureC=Int((Asc("z")-Asc("a") + 1)*Rnd + Asc("a"))
End Function
Function procedureN
Randomize
For iu=0 to 10
procedureN=Int((Asc("9")-Asc("0") + 1)*Rnd + Asc("0"))
If procedureN=procedureN Then
procedureN=Int((Asc("9")-Asc("0") + 1)*Rnd + Asc("0"))
End If
Next
End Function
Function GetKey()
GetKey=trim(Chr(procedureC)+Chr(procedureN)+Chr(procedureC)+Chr(procedureN)+Chr(procedureC)+Chr(procedureN)+Chr(procedureC)+Chr(procedureN))
End Function
%>