asp:弹出警告框,并重定向的自定义过程

因为制作的需要写了这样一个简单的函数,重定向可以是指定的页.也可以是前一页!
有两个参数:messtr,警告框的信息;urlstr:转向的网页,为""时,返回到前一页!

程序代码
<%sub mes(messtr,urlstr) %>
<script language="JavaScript">
alert('<%= messtr %>');
urlstr='<%=urlstr%>';
if (urlstr!='')
{location = urlstr;}
else
{history.go(-1);}
</script>
<%response.end
end sub %>