如何实现每次有人访问页面的时候自动生成随机数字?

sbi4twlm803 2009-08-06 01:06:50
如何实现每次有人访问页面的时候自动生成随机数字?
...全文
37 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
shaomingmark 2009-08-06

<%
dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>


这样更方便session("verifycode")来记录生成的四位随机数。然后用户可以使用这个
session("verifycode")进行相应的操作
回复
norman3036383 2009-08-06
[Quote=引用楼主 sbi4twlm803 的回复:]
如何实现每次有人访问页面的时候自动生成随机数字?

[/Quote]
这个有人访问?这个 ‘人’ 是 什么权限的?everyone?
回复
hookee 2009-08-06

<%
Response.Write ValGetNumber(4)

Function ValGetNumber(n)
Dim s
Dim i, iRandom, iUpper, iLower
s = ""
iUpper = 10 ^ n -1
iLower = 10 ^ (n-2)
Randomize
iRandom = CInt((iUpper - iLower) * Rnd + iLower)
s = CStr(iRandom)
If Len(s) = 3 Then
Randomize
s = s & CStr(CInt(Rnd() * 9))
End If
ValGetNumber = s
End Function
%>

回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告