标题: 关于随机函数问题？ [打印本页]

---

作者: netice    时间: 2006-5-19 13:38     标题: 关于随机函数问题？

这是我写的。。随机生成一个数。。然后跳转到那个页面。。。怎么我实验了下没反映啊？

<script>
<%
Dim i
Randomize
no = Int((4+1)*Rnd+1)

select case i
case "1"
  response.redirect"1.asp"
case  "2"
   response.redirect"2.asp"
case "3"
  response.redirect"3.asp"
case "4"
  response.redirect"4.asp"
end select
%>

</script>

[ 本帖最后由 netice 于 2006-5-19 13:47 编辑 ]

---

作者: Nothing    时间: 2006-5-20 12:02

把<script>和</script>去掉
response.redirect这个函数必需在输出数据以前使用。
select case
在后面加一个
case else
然后再
end select

---

作者: Nothing    时间: 2006-5-20 12:02

Dim i
Randomize
no = Int((4+1)*Rnd+1)
这时i=0吧
select case i

---

作者: netice    时间: 2006-5-20 18:28

搞定了。。哈哈。。。
<%
Dim i
Randomize
i= Int((4+1-1)*Rnd+1)
select case i
case "1"
  response.redirect"index1.asp"
case "2"
   response.redirect"ruanj.asp"
case "3"
  response.redirect"xiaos.asp"
case "4"
  response.redirect"flash.asp"
end select
%>

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0