0

我有一个小问题。我刚刚开始使用 JQuery .get() 来调用 pl 脚本并从脚本返回数据。我目前正在使用此功能进行电子邮件验证：

$('#billemail').blur(function() {
    if ($(this).val() != '') {
            $.get('./ajax_email_check.pl',{'email':$('#billemail').val() },function(data){
            if (data == "Not Valid") {
                    alert ("Billing email is " + data + "!");
            }
            });
    }
});

以上工作正常。现在我试图返回一些基于用户选择下拉选项并按下按钮而生成、打印和返回的 HTML。看起来我得到了一个空返回而不是没有返回。如果我运行 pl 脚本，它会毫无问题地返回我正在打印的内容。我正在执行以下操作：

查询：

$('body').on('click', '#promotionbtn', function() {
            $.get('./ajax_get_promotion.pl', {'promo':$('select.promoselect').val() }, function(data) {
                    $('.result').html(data);
            });
});

Perl: #!/usr/bin/perl

use DBI;
use CGI qw(:standard);
require "./lib/servervars.pl";
require "./lib/common.pl";

#my $cgi = new CGI;

#print $cgi->header;

our $dbh;

my $promotion_code = param('promo');

my $promo_handle = "select PromoCode, FirstBillDate, DaysWaivedBilling,  RegistrationFee, RegistrationFeePaidBy, RegistrationDiscountPct, InvoiceDiscountPct, ReferralFee, PromotionTitle, PromotionMessage from Promotion where PromoCode='COMATTACH1'";
my $promotion;

my $getpromo = &db_connect($promo_handle);
while (my @promos = $getpromo->fetchrow) {
    $promotion .= "$promos[0]";
}

$getpromo->finish;

print "content-type:text/html\n\n";
print $promotion;
4

0 回答 0