javascript 调用cgi 并传递参数

最新推荐文章于 2021-05-18 05:43:02 发布

Carryf

最新推荐文章于 2021-05-18 05:43:02 发布

阅读量1.2w

点赞数

分类专栏： Perl 文章标签： cgi javascript xmlhttprequest button input function

本文链接：https://blog.csdn.net/radkitty/article/details/7764394

版权

Perl 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

以下方法为通过javascript 异步的和cgi 通讯的范例：

把get_test.pl 文件放于cgi-bin 下：

#! /usr/bin/perl -w
use strict;
use warnings;
my $vphone='0000';
my $vsid='ccc';
my %In = ();
my %input=();
my $key;
%In = split /&/,$ENV{QUERY_STRING};
print "Content type: text/html\n\n";
#print "Query_string=",$ENV{QUERY_STRING},"<br>";
foreach $key (%In)
{
my ($var, $val) = split(/\s*\=\s*/,$key);
#print $var;
#print $val;
$input{$var}=$val;
}
print "phone=",$input{'phone'},"<br>";
print "sid=",$input{'sid'};

web 调用html 文件：

<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Javascript 异步调用 C AGI</title>
<script src="astcti.js" language="javascript"></script>
</head>

<body>
<input type="button" name="button" id="button" value="获取CGI输出结果" οnclick="get_from_perl()" />
<br />
输出的结果如下：
<br />
<div id=cgi_result></div>
</body>
</html>

astcti.js 文件内容：

}

function get_from_perl()
{
var xmlHttp=null
xmlHttp=GetXmlHttpObject()
if(xmlHttp==null){
alter("Browser does not support HTTP Request.")
return
}
var url="/cgi-bin/get_test.pl";
url=url+"?sid="+Math.random();
url=url+"&phone=2300";
xmlHttp.onreadystatechange=stateChanged
xmlHttp.open("GET",url,true)
xmlHttp.send(null)

function stateChanged()
   {
    if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
      {
       var r_str=xmlHttp.responseText;
       document.getElementById("cgi_result").innerHTML=xmlHttp.responseText
       //var r_arr=r_str.split('\r\n');
       //document.write(r_str);

//alert(xmlHttp.responseText);
}

}