JavaScript href onclick 不适用于 Perl

Question

下面是我的代码。我的所有按钮功能都工作正常，但是如果我单击链接，则应记住服务器的值，并且应使用参数 view 和 subsys 再次重新加载页面。

但是当我重新加载时，服务器的值是空的。

my $server = $q->param('server') ;
my $unit = $q->param('unit') ;

my $bfile = __FILE__ ;
$bfile = `basename $bfile` ;
chomp $bfile ;

print "<form name=\"form1\" action =\"/cgi-bin/$bfile\" onsubmit=\"javascript:onsubmitform(doc_press)\">";

print "<input type=\"hidden\" name=\"server\" id=\"server\">";
print "<input type=\"hidden\" name=\"unit\" id=\"unit\">";
print "\n\n<input type=submit name=view value=\"View\" onClick=\"doc_press=this.value\">";
print "<input type=submit name=save value=\"Save\" onClick=\"doc_press=this.value\">";

print $var{$a}."<a href=\"/cgi-bin/$bfile?view=5&SUBSYS=$subsys\" onClick=javascript:click_page(\"$_\")>CLICK</a>\n" ;

print <<"END_OF_SCRIPT";
<script type="text/javascript">
function onsubmitform(doc_press) {
        if (doc_press == "View"){
                document.getElementById('unit').value="$unit";
        }
        else if (doc_press == "Save") {
END_OF_SCRIPT
             var x = "$user=$val";
             document.cookie=x;
             document.getElementById('unit').value="$unit";
        }
        if (document.getElementById('HTTP_TYPE').value == "post") {
                document.form1.method='post';
        }
        else if(document.getElementById('HTTP_TYPE').value == "get") {
                document.form1.method='get';
        }
}

function click_page(server){
        document.getElementById('server').value=server;
}
</script>
END

Answer 1

当您单击链接 () 时，浏览器将为给定链接发出新的 GET 请求，无论您拥有何种形式。这意味着您的表格尚未提交；因此表单中的任何值都将丢失。因此，此处发布的 onclick 处理程序毫无用处。

有时，如果您确实链接到同一页面，现代浏览器足够聪明，可以识别这一点，并填写您已有的值。对于那些如果不保留其值而感到沮丧的用户来说，这只是一种商品，因此这不适用于隐藏字段。

如果您想单击链接来提交表单，您应该 a) 使用按钮，或者 b) 更改 onclick 处理程序以提交表单并返回 false（以便不跟踪链接）

function click_page(server){
    document.getElementById('server').value=server;
    document.forms[0].submit();
    return false;
}

：正确的话，还要更改 onclick 声明：

<a href="..." onclick="return click_page('$_')">CLICK</a>