使用模式对话框
Dim chrStr As String = "msg=window.showModalDialog('AlertShall.aspx?title=修改教学点&src=" & Server.UrlEncode("AssiBranchSchoolEdit.aspx?BSID=" & CType(Me.dgList.DataKeys(e.Item.ItemIndex), String) & "&loadType=view") & "','msg','dialogWidth=560px;dialogHeight=600px;center:yes;help:no;status:no');if(msg!=1){return false;}else{window.location.reload();}" btnDelete.Attributes.Add("onclick", "if(confirm('确定要删除这个教学点么？？')==false)return false") Page.RegisterStartupScript("Ok", "<script>alert('修改教学点成功！');top.returnValue=1;window.close();</script>")AlertShall.aspx壳： <body style="margin-left: 0px;margin-top: 0px;margin-right: 0px;margin-bottom: 0px;" scroll="no" MS_POSITIONING="FlowLayout"> <iframe id="frame" runat=server frameborder="0" style='WIDTH:100%;HEIGHT:100%'></iframe> </body>AssiBranchSchoolEdit.aspx返回参数： Page.RegisterStartupScript(CStr(rud.Next(0, 10000)), " <script language=JavaScript>alert(""增加热门关键字成功！"");top.returnValue=1;window.close();</script>")
