以下是我调用画面的代码
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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货