htmlフィールドにIDを入力した後、同じページで単純なmysqlリターンを実行しようとしました。
私はそれをajaxを介してperlスクリプトに送信しました。このスクリプトは、データベースで検索を実行し、名前の結果を取得する必要があります。
私はウェブを検索してさまざまなオプションを試しましたが、探しているものに対する正しい答えを見つけることができませんでした。
ID番号を取得してデータベースに送信し、このID連絡先の名前を取得しようとしています。
これが私の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>
<script language="javascript" type="text/javascript">
var xmlHttp = new XMLHttpRequest();
</script>
<META charset="utf-8">
<TITLE>Ajax-tool</TITLE>
</head>
<body>
<form id="procform" name="procform" method="POST" action="">
<b>Contact ID:</b>
<fieldset>
<input type="text" id="CID" name="CID" size="20" />
<p><input type="submit"></p>
</fieldset>
</form>
<p></p>
<div id="content"></div>
<SCRIPT type="text/javascript" src="/js/jquery.js"></SCRIPT>
<SCRIPT type="text/javascript" src="js/jquery-ui.min.js"></SCRIPT>
<SCRIPT type="text/javascript" src="/js/ajax01.js"></SCRIPT>
</body>
</HTML>
jQueryスクリプト：
$(document).ready(function() {
$("form#procform").submit(function() {
var id = $("#CID").val();
var jsondata = { 'CID' : id };
$.ajax({
type: "POST",
url: "http://192.168.10.1/cgi-bin/ajax01.pl",
async: false,
contentType: "application/json; charset=utf-8",
dataType: "json",
data: {CID: id},
success: function(result) {
$("div#content").text("data.success: " + data);
//alert(data);
},
error: function (request, status, error) {
alert(request.responseText);
}
});
//alert( + id + "");
});
});
そしてperlスクリプト：
#!/usr/bin/perl -T
use CGI ":all";
use DBI;
#use strict;
use warnings;
use Encode;
use JSON;
use Storable;
#$foo = CGI->new;
#$foo->charset('utf-8');
$json = JSON->new->allow_nonref;
$dbh = DBI->connect('mylogin)
|| die "Could not connect to database: $DBI::errstr";
#my $cidID = CGI->new->param( 'CID' );
my $cidID = $json->decode('CID');
#my $cidID = $foo->param('CID');
#$cidID = 44;
######### select contact name from contacts ##############
$sth0 = $dbh->prepare("SELECT * FROM contacts WHERE cid= $cidID")or "can't prepare : $DBI::errstr\n";
$sth0->execute()or die "Can't execute: $DBI::errstr\n";
@row0 = $sth0->fetchrow_array;
my $VCName3 = $row0[1];
$sth0->finish();
print $VCName3;
my $json1 = $json->encode($VCName3);
print $foo->header(-type => "application/json", -charset => "utf-8");
print $json1;
perlスクリプト内でcidIDに値を指定し、jsonのヘッド部分の定義全体を削除すると、cidIDに対して正しい結果が得られます。
しかし、問題はajaxからcidIDに正しいデータを取得することです。
アップデート
私はここで新しいので、上の部分を消去するか、他の人が学ぶためにそれを残すかどうかわかりません。
ただし、例として、Webを再確認し、コードにいくつかの変更を加えました-
ajaxでメソッドを「POST」から「GET」に変更しました
現在は機能していますが、POSTで機能しない理由がわかりません。何かアイデアはありますか？
しかし、結果をDIVに表示したい場合は、一瞬点滅し、そこに留まりません。
そして、jqueryでさらに使用するために結果を変数に戻す方法はありますか？私は試した -
var result = $(data.userid);
成功せずに。
ここにそれらが機能する方法のコードがあります-
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>
<script language="javascript" type="text/javascript">
var xmlHttp = new XMLHttpRequest();
</script>
<META charset="utf-8">
<TITLE>Ajax-tool</TITLE>
</head>
<body>
<form id="procform" name="procform" method="POST" action="">
<b>Contact ID:</b>
<fieldset>
<input type="text" id="CID" name="CID" size="20" />
<p><input type="submit"></p>
</fieldset>
<p></p>
<div id="content"></div>
</form>
<SCRIPT type="text/javascript" src="http://192.168.10.1/js/jquery.js"></SCRIPT>
<SCRIPT type="text/javascript" src="http://192.168.10.1/js/jquery-ui.min.js"></SCRIPT>
<SCRIPT type="text/javascript" src="http://192.168.10.1/js/ajax01.js"></SCRIPT>
</body>
</HTML>
JQUERY
$(document).ready(function() {
$("form#procform").submit(function() {
var id = $("#CID").val();
var jsondata = { 'CID' : id };
$.ajax({
type: "GET",
url: "http:/cgi-bin/ajax01_1.pl",
async: false,
contentType: "application/json; charset=utf-8",
dataType: "json",
data: "CID=" + id,
success: function(data) {
$("div#content").append("Name: " + data.userid);
//alert("Name: " + data.userid);
},
error: function (request, status, error) {
alert(request.responseText);
}
});
});
});
PERL
use DBI;
use strict;
use warnings;
use Encode;
my $foo = CGI->new;
my $cidID = $foo->param("CID");
my $dbh = DBI->connect('here goes my login passw ect..')
|| die "Could not connect to database: $DBI::errstr";
my @row0;
######### select contact name from contacts ##############
my $sth0 = $dbh->prepare("SELECT * FROM contacts WHERE cid= ?")or "can't prepare : $DBI::errstr\n";
$sth0->execute($cidID)or die "Can't execute: $DBI::errstr\n";
@row0 = $sth0->fetchrow_array;
my $VCName3 = $row0[1];
$sth0->finish();
print $VCName3;
my $json1 = ($VCName3)?
qq{{"success" : "login is successful", "userid" : "$VCName3"}} :
qq{{"error" : "username or password is wrong"}};;
print $foo->header(-type => "application/json", -charset => "utf-8");
print $json1;