2005年6月28日
生成随机码,保存随机文件.
摘要： PrivateFunctionGetRandomizeNo()FunctionGetRandomizeNo()AsInteger'功能说明:生成随机验证码DimRandomizeNoAsIntegerRandomize()RandomizeNo=9999*Rnd()+1000If(RandomizeNo).ToString.Length>=5ThenRandomizeNo=Val(Rando... 阅读全文
posted @ 2005-06-28 08:39 T_98Dsky 阅读(661) 评论(0) 推荐(0) 编辑