cgi程式设计进阶（forunixperl）.ppt

國立中央大學電算中心 陳慶彥 主題 身份認證功能製作 檔案上傳功能製作 計數器製作 Perl+MySQL 身份認證功能製作 身份認證功能製作 身份認證功能製作 身份認證功能製作 身份認證功能製作 身份認證功能製作 檔案上傳功能製作 檔案上傳功能製作 檔案上傳功能製作 檔案上傳功能製作 計數器製作 計數器製作-Form 的 參 考 寫 法 計數器製作- Perl 的 CGI 程 式 參 考 寫 法 計數器製作- Perl 的 CGI 程 式 參 考 寫 法 計數器製作- Perl 的 CGI 程 式 參 考 寫 法 計數器製作- Perl 的 CGI 程 式 參 考 寫 法 計數器製作 Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL Perl+MySQL 國立中央大學電算中心 陳慶彥 Perl連結MySQL執行資料的存取 use DBI; use strict; $dbh = DBI-connect(“DBI:mysql:資料庫”,“帳號”,”密碼“); $sth = $dbh-prpare($statement); $sth-execute; $sth-finish; $dbh-disconnect; 國立中央大學電算中心 陳慶彥 實作3 – create_table.cgi #!/usr/bin/perl use DBI; use strict; my $dbh; if ($dbh=DBI-connect(DBI:mysql:test,s8940,) ){ print 連結資料庫:test OK!\n; }else { print 無法連結資料庫:test!; exit(0); } 國立中央大學電算中心 陳慶彥 實作3 – create_table.cgi (cont) my $sth=$dbh-prepare( DROP TABLE s8940 ); if ($sth-execute ){ $sth-finish; print 表格:s8940存在資料庫:test之中,刪除表格:s8940 成功\!\n; }else { print 表格:s8940不存在資料庫:test之中,刪除表格:s8940 失敗\!\n; } 國立中央大學電算中心 陳慶彥 實作 3– create_table.cgi (cont) my $sth=$dbh-prepare(CREATE TABLE s8940 ( CreateDate DATETIME , StudentName char(50) , StudentID char(10) , Address char(100) , Birthday DATE) ); 國立中央大學電算中心 陳慶彥 實作3 – create_table.cgi (cont) if ($sth-execute){ print 表格:s8940在資料庫:test上create OK!\n; } else{ print 表格:s8940在資料庫:test上create 失敗!: $dbh-errstr\n; } $sth-finish; 國立中央大學電算中心 陳慶彥 實作3 – create_table.cgi (cont) my $sth=$dbh-prepare(INSERT INTO s8940 VALUES (‘2000/07/18 15:12:01’,‘陳慶彥’,‘87001’,‘中壢市五權里上山 座屋38號,1988/01/01) ); if ($sth-execute){ print 表格:s8940新增資料 O