您的位置：首页 > 其它

使用模式对话框

2006-03-30 20:10 267 查看

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>")

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航