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