如果实现这个倒计时？100分,不够再加啊

Question

Me.Response.Write("<script language=javascript>js代码</script>")
                    Me.Response.Write("aaa")我想在上面写一段js代码，过5秒种后才执行下面的一行代码，如何写？请高手指教

Answer 1

System.Threading.Thread.Sleep(5000)
但是效果不好。。为什么不用js输出呢？Me.Response.Write("<script language=javascript>setTimeout(""document.write('aaa');"", 5000);</script>")

Answer 2

参考以下代码：<script language =javascript>
var second=0;
var TimerID;
function btnstart()
{
TimerID = setInterval("timeadd1()",1000);
}
function timeadd1()
{
second =parseInt(second) +1;
document.all.Button1.value="开始倒计时（"+(5-parseInt(second))+"）" 
if(second ==5)
{
clearTimeout(TimerID);
alert("结束！");
}
}
</script>
<INPUT id="Button1" type="button" value="开始倒计时（5）" name="Button1" onclick=btnstart()>

Answer 3

在稍微修改一下上面的函数function btnstart()
{
second=0;
document.all.Button1.value="开始倒计时（5）" ;
TimerID = setInterval("timeadd1()",1000);
}

Answer 4

Me.Response.Write("<script language=javascript>setTimeout(""document.write('aaa');"", 5000);</script>")js代码要执行的是下面的  If Me.Request.QueryString("URL") = Nothing Then
                            Me.Response.Redirect("/")
                        Else
                            Me.Response.Redirect(Me.Request.QueryString("URL"))
                        End If
这段代码，晕了，怎么放进去呢，我试了，用sub也不可以

Answer 5

System.Threading.Thread.Sleep(5000)
这个没有用的
加上去，连他上面的代码都不执行了

Answer 6

可以这样：
Response.Write("<script language=javascript>btnstart('5','"+Request.QueryString("URL")+"')</script>");
<script language =javascript>
var second=0;
var TimerID;
var tl;
var url
function btnstart(tl1,url1)
{
second=0;
         tl=tl1;
         url=url1;
TimerID = setInterval("timeadd1()",1000);
}
function timeadd1()
{
second =parseInt(second) +1;
//document.all.Button1.value="开始倒计时（"+(tl-parseInt(second))+"）" 
if(second ==tl)
{
clearTimeout(TimerID);
//alert("结束！");
                   if(url!="")
                      window.location.replace(url);
}
}
</script>

Answer 7

TO： wj2929(*ヤＲěйヤ*) ( ) 好象还是不行啊，根本就不会发生转向，是不是计时代码有问题？

Answer 8

怎么会呢 
我的都测试过了 没问题的
你看看传的url参数是否有问题
在JS中通过alert(url); 你看得到什么

Answer 9

等我把代码给你，你帮我测试一下
if dr.read then   Dim uc As String
                        If Me.Request.QueryString("URL") = Nothing Then                            uc = "/"
                        Else                            uc = Me.Request.QueryString("URL")
                        End If
                                              Response.Write("<script language=javascript>btnstart('5','" + uc + "')</script>")                    Else
                        If Me.Request.QueryString("URL") = Nothing Then
                            Me.Response.Redirect("/")
                        Else
                            Me.Response.Redirect(Me.Request.QueryString("URL"))
                        End If                    End If我用了一个简单的方法 Response.Write("<meta http-equiv=refresh content=5;url=" & uc & ">")，这个方法是可以实现，但是不能保留下面那个层，郁闷，就象孟子右下角的那个放音乐的活动广告，一跳转，那个活动广告就消失了

Answer 10

把Response.Write("<script language=javascript>btnstart('5','" + uc + "')</script>")
更改成
Page.RegisterStartupScript("wait","<script language=javascript>btnstart('5','" + uc + "')</script>");
试试 看不出你写的代码上有什么问题 另外 你用过我在二楼的代码了吗 实现的是单击按扭5秒钟后弹出对话框

Answer 11

2楼的代码有点问题， page后面没有那个regedit**什么的，我查了msdn也没有找到那个命名空间，后面的js代码也有点问题哦
新问题又来了，我转页后，我想让那个层多保持几秒钟，这样能达到吗？

Answer 12

regedit**什么的 ？？？
没看明白 我二楼写的那段代码加上三楼的一些补充 
你直接新建个htm文件 把那些代码考进去保存
双击这个文件就能看出效果的代码没问题，已经过测试

Answer 13

这是你的代码：
if dr.read then
Dim uc As String
If Me.Request.QueryString("URL") = Nothing Then
uc = "/"
Else
uc = Me.Request.QueryString("URL")
End If
Response.Write("<script language=javascript>btnstart('5','" + uc + "')</script>")
Else
If Me.Request.QueryString("URL") = Nothing Then
Me.Response.Redirect("/")
Else
Me.Response.Redirect(Me.Request.QueryString("URL"))
End If
End If
改为：
Dim uc As String
If Me.Request.QueryString("URL") = Nothing Then
uc = "/"
Else
uc = Me.Request.QueryString("URL")
End If
if dr.read then
Me.RegisterStartupScript("Redirect","<script language=javascript>window.onload=function(){setTimeout(""location.replace('" & uc & "');"", 5000);};</script>")
Else
Me.Response.Redirect(uc)
End If