以下是我调用画面的代码
Dim scriptString As String                      scriptString = "<script language=JavaScript>" & _
            " var postFlag =window.showModalDialog('../kkk/kkk.aspx'," & _
            "window,'dialogWidth:1024px;dialogHeight:768px;help:no;resizable:No;" & _
            "status:No;scroll:off;');if(postFlag == 'HatsureiMessageFormReturn')" & _
            "{document.forms[0].submit();}" & _
            "</script>"
        If (Not Page.IsStartupScriptRegistered("HatsureiMsg_clientScript")) Then
            Page.RegisterStartupScript("HatsureiMsg_clientScript", scriptString)
        End If