当我在1页面里点击一个“查看”链接后弹出2页面，然后我在2页面操作数据库的语句后让2页面自动关闭，这个时候我该写什么语句让1页面自动

Question

当我在1页面里点击一个“查看”链接后弹出2页面，然后我在2页面操作数据库的语句后让2页面自动关闭，这个时候我该写什么语句让1页面自动刷新一次？

Answer 1

http://dotnet.aspx.cc/ShowDetail.aspx?id=49ML4AO8-5PB3-4KNY-NJZD-LJOIOXV4M1X4

Answer 2

参考下面： Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim editdate As DateTime = CType(Request.QueryString("date"), DateTime)
        Dim rowsAffected As Integer
        Dim parameters As OleDbParameter() = { _
            New OleDbParameter("@userid", OleDbType.BigInt, 4), _
            New OleDbParameter("@work", OleDbType.VarChar), _
            New OleDbParameter("@date", OleDbType.Date)}        parameters(0).Value = Change.getuserid(context.User.Identity.Name)
        parameters(1).Value = Change.change(work.Text)
        ' parameters(1).Value = Change.change(work.Text)
        parameters(2).Value = editdate.Date        Dim myConnection As OleDb.OleDbConnection = New OleDbConnection(ConfigurationSettings.AppSettings("ConnectionString"))
        Dim command As New OleDbCommand
        command.Connection = myConnection        Dim parameter As OleDbParameter
        For Each parameter In parameters
            command.Parameters.Add(parameter)
        Next
        Dim logid As Integer = Change.IsWriteLog(Change.getuserid(context.User.Identity.Name), parameters(2).Value)
        If logid > 0 Then            '存在日志  则更新日志
            command.CommandText = "update [worklog] set [work]='" & Change.change(work.Text) & "',LastEditTime=now() where [logid]=" & logid
        Else
            '不存在 则添加日志
            command.CommandText = "INSERT INTO WorkLog([logid],[userid],[work],[date]) values(" & CStr(Change.GetMaxLogID + 1) & ",@userid,@work,@date)"        End If
        myConnection.Open()
        Try
            rowsAffected = command.ExecuteNonQuery()
        Catch ex As Exception
            myConnection.Close()
            Response.Redirect("error.htm")
        Finally
            myConnection.Close()
        End Try        Response.Write("<script>window.opener.location.reload();self.close();</script>")
    End Sub
主要是最后一局:
 Response.Write("<script>window.opener.location.reload();self.close();</script>")