CGI连接数据库的方法详细说明

作者佚名技术来源互联网浏览发布时间 2012-01-15

Perl脚本：

以下为引用的内容：
#!/usr/local/bin/perl
require"cgi-lib.pl";
&ReadParse(* input);
$mc_fname=$input{'c_fname'};
$mc_lname=$input{'c_lname'};
$mc_add1=$input{'c_add1'};
$mc_add2=$input{'c_add2'};
$mc_city=$input{'c_city'};
$mc_state=$input{'c_state'};
$mc_zip=$input{'c_zip'};
$mc_phone=$input{'c_phone'};
$mc_fax=$input{'c_fax'};
$mc_email=$input{'c_email'};
$mc_package=$input{'c_package'};
$mc_ad=$input{'c_ad'};

print &PrintHeader;

以下为引用的内容：

if (($mc_fname eq"")||(mc_lname eq "")||(mc_add1 eq "")||($mc_add2 eq "")||(
mc_city eq "")||(mc_state eq "")||(mc_zip eq "")){
printf (" ");
printf(",strong>Your registration cannot be processed as is.Pleae make sure all the requied fields are filled properly.");
print"";
print"Pleae use the Backbutton to complete the form.\n";
}
else{# data is OK

use Sybase::DBlib;

以下为引用的内容：

$dbh=Sybase::DBlib->dblogin('conf_user','123','DB-SERVER','REG');
$dbh->dbuse('conference');

$sqlcmd="insert into reg(c_fname,c_lanme,c_add1,c_add2,c_city,c_state,c_zip, c_phone,c_fax,c_email,c_package,c_ad)";

$sqlcmd=$sqlcmd."values("
$sqlcmd=$sqlcmd.'\"".$mc_fname."\",";
$sqlcmd=$sqlcmd.'\"".$mc_flame."\",";
$sqlcmd=$sqlcmd.'\"".$mc_add1."\",";
$sqlcmd=$sqlcmd.'\"".$mc_add2."\",";
$sqlcmd=$sqlcmd.'\"".$mc_city."\",";
$sqlcmd=$sqlcmd.'\"".$mc_state."\",";
$sqlcmd=$sqlcmd.'\"".$mc_zip."\",";
$sqlcmd=$sqlcmd.'\"".$mc_phone."\",";
$sqlcmd=$sqlcmd.'\"".$mc_fax."\",";
$sqlcmd=$sqlcmd.'\"".$mc_email."\",";
$sqlcmd=$sqlcmd.'\"".$mc_package."\",";
$sqlcmd=$sqlcmd.'\"".$mc_ad."\",";
$sqlcmd=$sqlcmd.'\"".$mc_fax."\",";
$dbh->dbcmd($sqlcmd."\n");
$dbh->dbsqlexec;

print"Thank you.Your registration has been submitted.You should receive you packet shourtly in the mail.";

}

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: Perl直接入门详尽指南下一篇: 网络程序员需要掌握的10个有用的Perl模块

关于CGI连接数据库的方法详细说明的所有评论

随机推荐