在服务器用代码实现弹出对话框

 Private Sub cscript(ByVal key As String, ByVal meg As String)
        Dim scriptFunction As New StringBuilder
        scriptFunction.Append("<script language= vbscript>")
        scriptFunction.Append("msgbox(""" & meg & """)")
        scriptFunction.Append("</script>")
        RegisterStartupScript(key, scriptFunction.ToString())
    End Sub