1.弹出窗口
1)消息窗口alert
Response.Write("<SCRIPT language=javascript>alert('上传成功!');</" + "script>")
2)确认窗口confirm
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码
Button2.Attributes.Add("onclick", "return confirm('加入的影像不能删除,是否要加入影像?')")
End Sub
3)弹出窗口页
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> '在此处放置初始化页的用户代码
If (Not IsClientScriptBlockRegistered("clientScript")) Then
Dim strScript As String = "<script>" + vbCrLf
strScript += "function OpenWin(){" + vbCrLf
strScript += "var str=window.showModalDialog('ReturnData.aspx')" + vbCrLf
strScript += "}" + vbCrLf
strScript += "</SCRIPT> " +vbCrLf
RegisterClientScriptBlock("clientScript", strScript)
End If
Button1.Attributes.Add("onclick", "OpenWin()")
4)弹出多选择窗口
<INPUT οnclick="VBS: msgbox 'hello', 3" type=button value=mm>
值 描述
1 OK
2 Cancel
3 Abort
4 Retry
5 Ignore
6 Yes
7 No
2.关闭页面
Response.Write("
<SCRIPT language=javascript>window.close();window.opener=null;</SCRIPT> ")