学步园

Public  Sub ShowAlert(ByVal Response As HttpResponse, ByVal Message As String)

            Dim script As String = "<script language=JavaScript>"

            script &= "alert('" & Message & "');</script>"

            Response.Write(script)

End Sub