请问这段asp代码怎么改成vbscript的?

特急特急,请帮我改一下连接的代码和清除的连接代码

我点了文字的"点一下"连接之后,,变成只能跳出一次msgbox了,

好像会被刷掉,不能隔两秒跳出来了,急急急.

改成文字的连接就可以了.

<script language="vbscript">

dim a1,b2

sub aa()

msgbox("欢迎")

a1=setTimeout("aa()", 2000,"vbscript")

end sub

sub bb()

cleartimeout(a1)

end sub

</script>

<p align=center>

<a href="http://127.0.0.1/l.asp" onclick="aa()">点一下</a>

<a href="http://127.0.0.1/l.asp" onclick="bb()">清除</a>

</p>

<script language="vbscript">

dim a1,b2

sub aa()

msgbox("欢迎")

a1=setTimeout("aa()", 2000,"vbscript")

aa()

end sub

sub bb()

cleartimeout(a1)

end sub

</script>

<p align=center>

<a href="" onclick="aa()">点一下</a>

<a href="" onclick="bb()">清除</a>

</p>