Sub Alert(ByVal s)
Response.Write JsCode(Str("alert('{1}');history.go(-1);",JsEncode(s)))
End Sub
这是一个ASP开发框架，我想美化它里面的alert弹出样式，请问该如何做呢？

sub Alert(str)
    Response.Write("<script>alert("""&str&""");history.go(-1)</script>")
    Response.End
end sub

sub Alert(str)
    Response.Write("<script>alert("""&str&""");history.go(-1)</script>")
    '加上关闭数据库   
 Response.End
end sub