showModalDialog打开页问题~~~~~~~~~急~急~急~!
hlwdn 2007-01-16 12:33:13 在editfile.aspx页
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="editfile.aspx.vb" Inherits="editfile" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<SCRIPT Language="JavaScript" type="text/jscript" >
function openwindow()
{
var rr =showModalDialog("editfile.aspx", "", "dialogWidth:13em; dialogHeight:2em; status:0;help:0;");
return false;
}
</SCRIPT>
<head runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table id =td1 cellpadding="0" cellspacing="0" align="center">
<tr>
<td style="width: 107px; height: 24px;">
<asp:FileUpload ID="FileUpload1" runat="server" Width="148px" Font-Size="12px" Height="18px" /></td>
<td style="height: 24px;">
<asp:Button ID="Button1" runat="server" Text="上传" Height="18px" OnClick="Button1_Click"/></td>
</tr>
</table>
</div>
<asp:Button ID="Button2" runat="server" Text="Button" />
</form>
</body>
</html>
editfile.aspx.vb页
Partial Class editfile
Inherits System.Web.UI.Page
Dim cn_str As String = ConfigurationSettings.AppSettings("str")
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Button2.Attributes.Add("onclick", "openwindow();")
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Write("<script>window.parent.close()</script>")
End Sub
End Class
运行后点击上传,页面就没有反映了!
是什么原因? 紧急求助!!!!!!!!