JavaScript href onclick 不适用于 Perl

Question

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

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

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

当您单击链接 (<a href="..."/>) 时，浏览器将对给定链接发出新的 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>