Javascript 关闭时刷新父窗口

我不是php专家，但愿意学习：） 我知道这个问题以前已经讨论过，有几种解决方案，我尝试过几乎所有建议的脚本，比如：parent.window.location.reload（true）；和window.onunload=refreshParent

请帮忙！这个保存例程是一个弹出窗口，我希望它保存到数据库中，但希望它自动刷新我打开的父窗口，而不必按F5

我在很多地方尝试过这些脚本，在弹出窗口中不断出现白页，我猜它是无限循环的

问题：请输入什么代码以及在哪里插入？ 谢谢 桑德拉

sub-save\u编辑
{
$error_message=“”；
$new_line=“”；
#查找记录
###########################
$row_计数器=1；
直到（$row\U计数器>$number\U记录数）
{
#不可编辑的记录
###########################
$form{'row\u number'}！=$row\u计数器和do{
foreach（@table_字段）
{$new_line.=qq~$data_hash{$row_counter}{$}{$}}
$new_line.=“\n”；
}##结束做什么
#要编辑的记录
###########################
$form{'row\u number'}==$row\u计数器和do{
$counter=1；
foreach（@table_字段）
{
$requiredfield{$counter}和！$form{$counter}和$error\u message.=qq~$\u是必填字段，未输入任何内容。
~；
$uniquefield{$counter}和！$form{$counter}和$error\u message.=qq~$\u是唯一的必填字段，未输入任何内容。
~；
#检查所需状态
#######################################
$uniquefield{$counter}和$form{$counter}和do{
foreach$键（键%data\u散列）
{$data\u hash{$keys}{$}eq$form{$counter}和$keys！=$form{'row\u number}和$error\u message.=qq~$\\必须是唯一字段，并且已在数据库的$keys行找到。
~}
}##结束必填字段do
#删除新行
######################################
$form{$counter}=~（s/\r\n/\/g）；
#通过添加下一个字段创建新行
######################################
$new_line.=qq~$form{$counter}|~；
$counter++；
}
$new_line.=“\n”；
}##结束做什么
$row_计数器++；
}#结束至
#如果没有错误，请保存
######################################
！$error\u消息和操作{
打开（文件“>$data_文件”）；
打印文件qq~$new_line~；
关闭（文件）；
chmod（0666，“$data_文件”）；
$save_message=qq~记录$form{'row_number}编辑已保存
window.close（）~；
};
#结束保存到文件
#报告错误（如果存在），返回
######################################
$error\u消息和do{
$save_message=qq~记录$form{'row_number}编辑尚未保存。请更正以下内容：
$error_message
~；
}#结束保存到文件
&负载_db；
}#结束保存编辑
1.

那不是PHP。我说过我不是专家：）有人能给我指点一下吗。这不是PHP。我确实提到过我不是专家：）有人能指导我吗。谢谢

sub save_editing
{

    $error_message = "";
    $new_line = "";

    #  Find Record
    ###########################
    $row_counter = 1;
    until ($row_counter > $number_of_records)
    {

    #  Not Record to Edit
    ###########################
    $form{'row_number'} != $row_counter and do{

    foreach (@table_fields)
    {$new_line .= qq~$data_hash{$row_counter}{$_}|~;}

    $new_line .= "\n";
    };#end do


    #  Record to Edit
    ###########################
    $form{'row_number'} == $row_counter and do{

    $counter = 1;

    foreach (@table_fields)
    {
    $requiredfield{$counter} and !$form{$counter} and $error_message .= qq~<b>$_</b> is a required field, and nothing has been entered.<br>~;
    $uniquefield{$counter} and !$form{$counter} and $error_message .= qq~<b>$_</b> is a unique, required field, and nothing has been entered.<br>~;

    # Check Required Status
    #######################################
    $uniquefield{$counter} and $form{$counter} and do{

    foreach $keys (keys %data_hash)
    {$data_hash{$keys}{$_} eq $form{$counter} and $keys != $form{'row_number'} and $error_message .= qq~<b>$_</b> is required to be a unique field, and has been found in the database at line $keys.<br>~;}

    };#end required field do


    # Remove New Lines
    ######################################
    $form{$counter} =~ (s/\r\n/\<br\>/g);

    # Create New Line By Adding Next Field
    ######################################
    $new_line .= qq~$form{$counter}|~;

    $counter++;
    }

    $new_line .= "\n";
    };#end do

    $row_counter++;
    }#end until

    # Save if No Errors
    ######################################
    !$error_message and do{
    open (FILE, ">$data_file");
    print FILE qq~$new_line~;
    close (FILE);
    chmod(0666,"$data_file");
    $save_message = qq~<b>Record $form{'row_number'} Editing Has Been Saved</b><P><script>window.close()</script>~;
    };

    # end save to file
    # Report Errors if Present, Return 
    ######################################
    $error_message and do{

    $save_message = qq~Record $form{'row_number'} Editing Has <b>Not</b> Been Saved. Please correct the following:<P>$error_message<P>~;

    };# end save to file

    &load_db;

}#end save editing

1;