请问这段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>

请问这段asp代码怎么改成vbscript的? 请问这段VB代码 请问这段代码怎么改成另开一页.谢谢 高分求救，请把这段PHP代码改成ASP 请问这段asp代码要怎么优化 请问这段ASP代码有错吗？ 请问这段ASP代码是什么意思？ 请问这段asp代码是什么意思〉？？ 这段ASP代码应该怎么写? 这段asp代码怎么了