--我试试 Public Sub ShowErrMsg(ByVal err As String, ByRef ErrorMsg As Literal) '--错误弹出框 Dim str As String str = "<script language='javascript'>" str += " window.alert('" + err + "')" str += "</script>" ErrorMsg.Visible = True ErrorMsg.Text = str End Sub
Public Sub OpenForm(ByVal objPage As System.Web.UI.Page, ) Dim strScript As StringBuilder = New StringBuilder Dim strpath As String Dim str As String strpath = "\ItemList.aspx" str = "left=120,top=60,width=560,height=428,resizable=yes,status=yes,scrollbars=yes,toolbar=no,memubar=no,location=no,titlebar=yes" strScript.Append("<script language=javascript>") strScript.Append("window.open('" + strPath + "','_blank','" + str + "');") strScript.Append("</script>") If Not (ClientScript.IsStartupScriptRegistered("OpenForm")) Then ClientScript.RegisterStartupScript(Me.GetType(), "OpenForm", strScript.ToString) End If End Sub终于搞定啦。。谢谢大家。。
{
window.showModalDialog(url,window,option);
}
option举例:'dialogheight :460px; dialogwidth :740px; edge: Raised; center: Yes; help: No; resizable: No; status: No; scroll:No;'
Public Sub ShowErrMsg(ByVal err As String, ByRef ErrorMsg As Literal)
'--错误弹出框
Dim str As String
str = "<script language='javascript'>"
str += " window.alert('" + err + "')"
str += "</script>"
ErrorMsg.Visible = True
ErrorMsg.Text = str
End Sub
Dim strpath As String
Dim str As String strpath = "\ItemList.aspx"
str = "left=120,top=60,width=560,height=428,resizable=yes,status=yes,scrollbars=yes,toolbar=no,memubar=no,location=no,titlebar=yes" strScript.Append("<script language=javascript>")
strScript.Append("window.open('" + strPath + "','_blank','" + str + "');")
strScript.Append("</script>") If Not (ClientScript.IsStartupScriptRegistered("OpenForm")) Then
ClientScript.RegisterStartupScript(Me.GetType(), "OpenForm", strScript.ToString)
End If End Sub终于搞定啦。。谢谢大家。。