技术资料

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