会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
98Dsky
博客园
首页
新随笔
新文章
联系
管理
订阅
生成随机码,保存随机文件.
Private
Function GetRandomizeNo()
Function
GetRandomizeNo()
As
Integer
'
功能说明:生成随机验证码
Dim
RandomizeNo
As
Integer
Randomize
()
RandomizeNo
=
9999
*
Rnd
()
+
1000
If
(RandomizeNo).ToString.Length
>=
5
Then
RandomizeNo
=
Val
(RandomizeNo.ToString.Substring(
0
,
4
))
End
If
Return
RandomizeNo
End Function
Dim
RandomizeNo
As
Integer
Randomize
()
Dim
ranNum
As
Integer
=
90000
*
Rnd
()
+
10000
Dim
fn
As
String
=
Now().ToString(
"
yyMMddHHmmff
"
)
&
ranNum
&
ext
hip.PostedFile.SaveAs(Server.MapPath(
"
../dwe/upload/
"
&
fn))
posted on
2005-06-28 08:39
T_98Dsky
阅读(
660
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告