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

[sbi4twlm803]

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

[hookee]

<%
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
%>

[norman3036383]

[Quote=引用楼主 sbi4twlm803 的回复:]
如何实现每次有人访问页面的时候自动生成随机数字？

[/Quote]
这个有人访问？这个 ‘人’ 是 什么权限的？everyone?

[shaomingmark]

<% 
	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")进行相应的操作