2.8w+
社区成员
- 主页
...全文
当前发帖距今超过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?
如何实现每次有人访问页面的时候自动生成随机数字？
[/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
%>
