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

sbi4twlm803 2009-08-06 01:06:50
如何实现每次有人访问页面的时候自动生成随机数字?
...全文
165 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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
%>

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧