在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
运行后点击上传,页面就没有反映了!
是什么原因?  紧急求助!!!!!!!!