📄 程嶏清单16-1.txt
字号:
程序清单16-1：test.cgi
#usr/bin/perl
use strict;
#使用DBI模块
use DBI;
#-----连接数据库
$datasrc=’mysql:database=zwdb’;
$dbh=DBI->connect(“dbi:$datasrc”,$username,$password) or die DBI->errstr;
$sth=$dbh->prepare("select * from zwtable order by id ");
#----打印出html格式标记
print "<HTML>\n";
print "<head>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html charset=gb2312\">\n";
print "<title>产品信息</title>\n";
print "</head>\n";
print “<body>”;
#---------循环取出数据并存放在@Data中
while (@Data=$sth->fetchrow_array)
{
#--------打印出数据
print $Data[0];
print $Data[1];
print $Data[2];;
print “<br>”;
}
print “</body>”;
print “</html>”;
$dbh->disconnect;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -