用ClientScript.RegisterStartupScript代替Response.Write

Protected Sub ShowMsg(ByVal msg As String)
        ClientScript.RegisterStartupScript(Page.GetType(), "message", "alert('"</span> <span style="color:#0000CC;">&</span> msg <span style="color:#0000CC;">&</span> <span style="color:#FF00FF;">"')")
    End Sub

在aspx网页上把原来的
Response.Write("")
替换掉成

ShowMsg(msg)

就可以了。
原来这么简单，直接替换就行。
因为这个js脚本不是函数体，所以代码段2行一经输出就会立即在客户端浏览器执行！