[导入]ASP常用函数:doAlert()

<%
'功能:输出alert信息并实现页面跳转
'来源:http://jorkin.reallydo.com/article.asp?id=470
'需要Str4Js函数:http://jorkin.reallydo.com/article.asp?id=466

Function doAlert(sInfo, sUrl)
    sUrl = BStr(sUrl)
    sInfo = BStr(sInfo)
    If LCase(sUrl) = "back" Then sUrl = "javascript:history.back()"
    If LCase(sUrl) = "close" Then sUrl = "javascript:window.close();"
    If LCase(sUrl) = "referer" Then sUrl = Request.ServerVariables("HTTP_REFERER")
    Response.Write( "</scr" & "ipt>" & vbCrLf & "<scr" & "ipt language=""javascript"">" & vbCrLf )
    If sInfo<>"" Then Response.Write( "  alert('" & Str4Js(sInfo) & "');" & vbCrLf )
    If sUrl<>"" Then
        Response.Write( "  window.location.href='" & Str4Js(sUrl) & "';" & vbCrLf & "</scr" & "ipt>" & vbCrLf )
        Response.End()
    Else
        Response.Write( "</scr" & "ipt>" & vbCrLf )
    End If
End Function
%>

文章来源:http://Jorkin.Reallydo.Com/default.asp?id=470