查看完整版本: 关于随机函数问题？

关于随机函数问题？

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

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

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

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

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

搞定了。。哈哈。。。
<%
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
%>