CGI學習簡明教程 - Perl, CGI - 程式設計 - 頂客論壇 ,免費遊戲,免費交友,免費空間,免費部落格,免費相簿,免費開店 - 頂客社區 dk101.com 最用心的華人社群網站
發新話題

CGI學習簡明教程

CGI學習簡明教程

第一章:基礎的基礎CGI/PERL學習

    1.1 為什麼使用CGI?

    我沒有把什麼是CGI放在基礎篇的第一段,是因為實在很難說明白到底什麼是CGI.

    而如果你先知道CGI有什麼作用,將會很好的理解CGI是什麼這個概念。 CGI可以為我們

    提供許多HTML無法做到的功能。比如a.一個記數器; b.顧客信息表格的提交以及統計;

    c.搜索程序;d.WEB數據庫等等。

    用Html是沒有辦法記住客戶的任何信息的,就算用戶願意讓你知道。用Html也是無法

    把信息記錄到某一個特定文件裡的。要把客戶段的信息記錄在服務器的硬盤上,就要用到

    CGI. 這是CGI最重要的作用,它補充了Html的不足。是的,僅僅是補充,不是替代。

    1.2 CGI是什麼?

    好了,現在我們來說到底什麼是CGI.Common Gate Intergace聽起來讓人有些專業,

    我們就管它叫CGI好了。在物理上,CGI是一段程序,它運行在Server上,提供同客戶段

    Html頁面的接口。這樣說大概還不好理解。那麼我們看一個實際例子: 現在的個人主頁

    上大部分都有一個留言本。留言本的工作是這樣的:先由用戶在客戶段輸入一些信息,

    如名字之類的東西。接著用戶按一下「留言」(到目前為止工作都在客戶端),瀏覽器把

    這些信息傳送到服務器的cgi目錄下特定的cgi程序中,於是cgi程序在服務器上按照預定

    的方法進行處理。在本例中就是把用戶提交的信息存入指定的文件中。然後cgi程序給客

    戶端發送一個信息,表示請求的任務已經結束。此時用戶在瀏覽器裡將看到「留言結束」

    的字樣。整個過程結束。

    1.3 選擇你熟悉的編程語言

    既然CGI是一種程序,自然需要用編程語言來寫。你可以用任何一種你熟悉的高級語言,

    C,C++,C shell和VB.值得特別指出的,有一種叫Perl的語言。其前身是屬於Unix專用的

    高級語言,其具有強大的字符串處理能力而成為現在寫CGI,特別是表單類程序的首選。最

    近它已經有了Window95,和winnt版本。你可以在搜索程序裡找到在那裡下載它。 VB是Ms

    的殺手鑭,從目前的情況看,微軟公司正試圖使VB無所不能。自然也包括在Internet 請各

    位注意,VB開發的程序只能在windows平台上被執行,所以它有一定局限。 C Shell,經典

    的語言。可惜能做的事情不多,而且必須在Unix平台下。 C,C++,正真的無所不能。可是

    在寫CGI的時候顯得非常難以掌握。特別是缺乏可以靈活使用的字符串處理函數。對程序員

    的要求也比較高,維護複雜。 最後要提醒各位,因為CGI是Server和Clinet的接口,所以

    對於不同的Server,CGI程序的移值是一個很複雜的問題。一般對於不同的Server,決沒有

    兩個可以互相通用的CGI.實際上 這就是CGI程序最複雜的地方。

    1.4 安全

    我想各位敏感的朋友又要問我關於安全性能的問題了。實際上CGI是比較安全的,至少

    比那些沒有數字簽名的ActiveX控件要安全的多。除非你有意在程序裡加入了破壞Server的

    命令, 否則一般不會有什麼嚴重的後果。而個人網站不向大眾開放CGI目錄,則因為怕各位

    學習不精,無端增加服務器的負擔,所以一般不提供。

    小結:本章講述了CGI基本概念,也說明了各種編程語言的優缺點,同時解釋了為什麼個人

    網站不提供CGI的原因。接下來我們開始正式學習。


第二章 Html的表單基礎知識

    組成Cgi程序的是兩部分,一部分是html頁面,就是用戶看到的東西。另一部分則是運

    行在服務器上的程序。一般來說,我們先寫html頁面,再寫程序。所以我們的學習頁是這樣,

    先看看表單的寫法,再去學習CGI程序。

    對於html的表單,有比較複雜和詳細的規定。但由於它們是屬於html標準裡的東西,所

    以我不打算詳細講解。最好是你自己找本書看看。

    Html表單

    <Form></Form>標記把輸入域組合起來,並且說明了表單提交的方式和地點。Form標籤有許

    多屬性,比如NAME等等。具體的屬性,將在使用的時候說明。

    在FORM裡還有許多不同的標籤,正是它們組成了表單的各種成分。

    <INPUT [TYPE=TEXT] NAME="TEXT-ID" [SIZE=NN] [MAXLENGTH=NN]

    [VALUE='DEFAULT TEXT']>

    該語句在HTML裡產生一個文本標籤,[]裡表示該屬性是可選的。

    <INPUT TYPE=SUBMIT [NAME='BUTTON-ID'][VALUE="BUTTON LABLE TEXT"]>

    該語句產生一個提交按鍵,用於表單的提交。它提供一個發送表單的按紐,信息發向<FORM>

    標記裡ACTION屬性裡給出的URL.根據表單方法(METHOD)指定的HTTP請求類型 提交信息。

    在以後我將詳細講解。

    <INPUT TYPE=RESET[VALUE='BUTTON LABEL TEXT']>

    具有TYPE=RESET屬性的INPUT將產生一個按鈕,它能重置表單各個域 的內容到初始狀態。

    <INPUT TYPE=RADIO NAME="RADIO-SET -ID" vALUE="CHOICE-ID" [CHECKED]>

    表單可以用此標記提示用戶從幾個選擇項裡作出選擇。麼個選擇項目都是一個單選按鈕它們

    具有相同的NAME值。在任何時候只要有一個被選中。此標記有一個VALUE屬性,如果它被選

    中,則發送表單時將以"RADIO-SET-ID=CHOICE-ID"的形式發送。

    <INPUT TYPE=CHECKBOX NAME='BOX-SET-ID' VALUE='CHOICE-ID' [CHECKED]>

    此標籤將產生一個'OFF'或'ON'的開關。它同RADIO相似,但是可以多選。當提交表單的時候如

    果一個復選框是選中的餓,那麼它的VALUE屬性作為BOX-SET-ID表單數據的值被提交。幾個

    擁有同樣NAME屬性的復選框為一組。它們用','分開的列表。


第三章:傳送方式 CGI/PERL學習

    傳送方法:

    所謂方法是指調用CGI程序的途徑。事實上,要執行程序時,你用一種方法向服務器提

    出請求,此請求定義了程序如何接受數據。 下面介紹最常用的兩種方法:get和post

    1.GET 當使用這種方法時,CGI程序從環境變量QUERY_STRING獲取數據。QUERY_STRING被

    稱為環境變量,就是這種環境變量把客戶端的數據傳給服務器。為了解釋和執行程序,CGI

    必須要分析(處理)此字符串。當你想從服務器獲得數據並且不改變服務器上的數據時,

    你應該選用GET.但如果你的字符串長度超過了一定長度,那麼還是選用POST方法。

    2.POST 使用POST方法時,WEB服務器通過stdin(標準輸入),向CGI程序傳送數據。服務

    器在數據的最後沒有使用EOF字符標記,因此程序為了正確的讀取stdin,必須使用

    CONTENT_LENGTH .當你發送的數據將改變Web服務器端的數據或者你想給CGI程序傳送的數

    據超過了1024 字節,這是url的極限長度,你應該使用post方法。

    3.實現方法:

    上次講過html中的<Form>標籤,對於傳送數據方法的定義也在這個標籤裡定義。 如下:

    <form name="guyi's form" action=http://www.yourname.com/cgi/your.cgi method=GET>

    定義了一個以get方法傳送數據的form,它的服務端程序訪客無法瀏覽此圖片或連結,請先 註冊登入會員

    同樣的如下的定義將使用post方法。

    <form method=post>


第四章:基本調試環境的建立

    基本調試環境的建立:

    我想不是每個閱讀教程的朋友有機會接觸到服務器之類的東西的。所以在接下去的閱

    讀過程中沒有調試環境的朋友將會非常吃力。為了解決這個問題,我特別介紹一種在

    win95或nt上建立WEB SITE的方法,以便各位能很好的閱讀程序。不過本方法內使用的軟

    件都比較大,如果你不是一個真正的網絡發燒友,或許你會放棄這個教程。這個我也沒

    有辦法,要知道喜歡一樣東西總是要付出代價的。

    1.win95&winnt的Server軟件:

    首先我要各位弄清楚一個概念,所謂Sever只是指在一台電腦上安裝了一個特別的軟件。

    該軟件可以提供internet web site服務。這台電腦不一定要是什麼特別好的機器,只要它

    能夠很好的運行Server軟件就可以了。比如我們的個人電腦就可以承擔這個任務。 在

    Windows95下運行的server軟件不是很多,而且是屬於「業餘」的。就是說離真正的商業使

    用有很大的距離。這主要是windows95平台的局限,比如很差的安全性,不穩定的內存分配

    系統,混亂的文件系統以及最差的進程管理。不過這些不影響我們使用CGI程序,特別是一

    個人調試自己的程序,而不是放在internet給數萬個人訪問。其代表是MS在windows OSR離

    提供的pws(person web server)。你可以通過控制面版——>網絡——>服務——>Ms——>個人WEB服

    務器安裝它。不過我希望你們最好還是不要使用這個東西,因為它對我們下面的課程沒有什

    麼幫助。我曾試驗過用它來和我的perl程序相連,但很顯然不支持perl.雖然有消息說修改

    註冊表可以解決這個問題,但我到現在還是沒有找到方法。相對而言,Windows NT因為其定

    位的不同而可以提供較理想的操作平台。而且NT自帶有IIS(Internet Information Server)。

    不過是2.0版的,如果你有IIS3.0就更好了。到本文寫成的時候,IIS已經有了4.0版本。當

    然我相信不是所有人會去下載這個東西,因為有 104M.

    上面講了這麼多,實際上我要給各位推薦的是WebSite for win95&NT.就是說兩個操作

    系統都可以使用它。現在的版本是2.1,有17M.顯然是一個很大的軟件,不過正如我說的,

    喜歡一樣東西是有代價的。你可以訪客無法瀏覽此圖片或連結,請先 註冊登入會員 裡找到這個程序。 WebSite

    支持winCGI,也支持perl寫的CGI程序。顯然這是一個好東西,可以滿足我們的要求。雖然

    大了些,不過要是你能找到website 1.1的話也不錯,它大概有4M左右。不過我在網上從沒

    發現有下載的地方。

    2.Perl for win32

    Perl,讓人激動的名字。我想再也找不到一個編程語言可以如此出色的完成基本CGI程序

    的開發了。我感謝那些為perl移植做出貢獻的朋友們,是他們讓我們可以在win平台上使用如

    此如此強大的Unix工具。 你可以在perl的主頁上找到perl for win32版本,當前版本是5.02.

    你也可以在 訪客無法瀏覽此圖片或連結,請先 註冊登入會員 裡找到perl for win32版本。大概是2.5M.

    3.VB

    VB是我們寫WinCGI程序最好的選擇。我推薦各位使用vb4.不是因為vb5不好,只是在

    Internet上支持它的文檔和免費代碼太少了。

    4.C&C++

    這個教程裡幾乎沒有用C&C++寫的代碼,因為它更適合高級程序員而不是我們這些業餘

    選手。不過你要是一定使用它我也沒有意見。

    5.安裝。

    好了,我們開始建立基本環境。就是說我們要在自己的機器上建立一個WEB SITE! 首

    先安裝Website.按照它標準的安裝界面,你可以輕鬆的完成這個工作。缺省情況下它將

    被安裝到c:website下。我提醒各位注意這幾個目錄:

    cgi-shl:這個是基本的cgi目錄,也就是各位朝思暮想的地方!

    cgi-win:這個cgi目錄裡放的是WinCgi程序。 其他的各位自己研究吧。

    好了,在裝完Website後請確認它已經運行。在狀態攔地右下角會有一個齒輪地圖標,

    它表示website正在運行。接下去請打開你地瀏覽器,在url輸入你機器的ip地址,如果沒

    有 ip,請輸入:127.0.0.1.注意,做這些動作的時候,最好請你使用netscape,而且你

    不必連上網絡! 如果一切順利的話,你將看到website的標記,那證明你已經成功了!

    接下去我們安裝perl. 下載後的perl是一個自解開文件,它會問你安裝到哪個目錄。缺省

    是c:perl,接著它展開並產生幾個自目錄。在安裝結束的時候,它會修改autoexec.bat,

    把c:perlbin加如 path,請一定要這麼做,道理我會在下面解釋。最後請隨便寫一個以

    。cgi或。pl結尾的文本文件。直接雙擊它,並為它加上關聯。。pl或 .cgi的關聯文件是

    c:perlbinperl.exe.這步很重要,不然你無法完成接下去的學習。 那麼為什麼我們

    要加路徑呢?因為perl是一種文本解釋型語言,就是說它沒有編譯的過程, 只有在運行

    的時候解釋。解釋一句運行一句。所以我們必須讓系統知道perl.exe在哪裡。

    6.測試

    最後我們進行一個測試。請把下面的兩個程序下載並運行它們:

    1.html文件:這是測試程序的客戶端內容,請以test.htm保存它。並把它放在

    c:websitehotdocs 下,那是你的website缺省的根目錄。

    test.htm:

    <html> <title>你的第一個perl測試程序</title> <body> <h1>你的第一個perl測試程序<h1><br> <h2>win 平台的環境變量測試</h2><br> <form method="get" acton="http://127.0.0.1/cgi-shl/env.pl "> <input type=submit value="查看CGI環境變量"> </form> </body> </html>

    2.Perl文件:請使用任意一個文本編輯器,輸入後以env.pl保存到c:websitecgi-shl下。

    #! perl

    print"Content-type:text/htmlnn";print"<title>Windows環境變量</title>";print"<body>恭喜你的website已經成功<br>";foreach $key(sort keys %ENV){ print"$key=$ENV{$key}<br>"; } PRINT"</BODY>";

    在完成上面的工作後,請打開瀏覽器,輸訪客無法瀏覽此圖片或連結,請先 註冊登入會員 當然如果你的

    機器是以tcp/ip方式 連在局域網上,請把127.0.0.1改成你的ip地址(還有test.htm裡的。)

    然後按下那個鍵,當你的瀏覽器去向另一個 頁面的時候,今天的任務就算是完成了。



第五章:第一個程序--環境變量訪客無法瀏覽此圖片或連結,請先 註冊登入會員
   服務器與CGI程序交換信息的協作方式是通過環境變量實現的。無論什麼請求,CGI程序總能在特定位置找到某些信息。無論環境變量怎樣定義,總有一些變量有著特定含義。環境變量是一個保存用戶信息的內存區。例如,所有的機器都有一個PATH環境變量,當在當前目錄找布道文件時就要查找PATH變量。當服務器收到一個請求後,它首先要收集它能得到的所有相關信息,並把它放入內存。那麼,服務器要收集什麼信息呢?
    關於服務器自身的詳細信息
    關於用戶的信息信息
    關於用戶請求的信息
    服務器不知道CGI程序到底需要那些信息,所以它把這些信息一起收集,那麼如果有什麼重要的東西就不會遺漏了。為了向你展示服務器收集那些環境變量,在上一期的教程裡我已經為各位寫了一個程序,該程序將幾乎所有的信息都反映在了瀏覽器裡。所以在進一步學習變量的時候,請首先把程序調試好。
    環境變量
    1.與服務器相關的環境變量
GATEWAY_INTERFACE服務器遵守的CGI版本
SERVER_NAME服務器的IP或名字
SERVER_PORT主機的端口號
SERVER_SOFTWARE服務器軟件的名字

    2.與客戶機相關的環境變量
    服務器瞭解你的CGI程序,但它一定不知道你的客戶機環境。正因為如此,同客戶機有
    關的變量才是最重要的。因為它涉及到你的瀏覽器等等。
ACCEPT例出能被次請求接受的應答方式
ACCEPT_ENCODING列出客戶機支持的編碼方式
ACCEPT_LANGUAGE表明客戶機可接受語言的ISO代碼
AUTORIZATION表明被證實了的用戶
FORM列出客戶機的EMAIL地址
IF_MODIFIED_SINGCE當用get方式請求並且只有當文檔比指定日期更早時才返回數據
PRAGMA設定將來要用到的服務器代理
REFFERER指出連接到當前文檔的文檔的URL
USER_AGENT標明客戶使用的軟件

    3.與請求相關的環境變量
    每次服務器受到的請求都不可能是一樣的。這意味著有許多CGI程序必須注意的信息。這些與請求相關的信息包含有用戶調用的信息,用戶如何發送請求,以及作為請求的一部分傳送了多少(什麼)信息。這些對你的程序來說是非常重要的,因此我們將化些時間詳細地討論一下其中的一些變量。特別是下面寫出的三個變量。這三個變量相當重要。
    REQUEST_METHOD
    QUERY_STRING
    CONTENT_LENGTH
    你必須熟悉這三個變量,因為它們用來表示數據是如何送到CGI程序的;然後你所要要做的事情就是在這三個變量裡取出數據,進行下一步的編程。其他的一些變量的用處很多,
    你可以瞭解你的競爭對手正在調用你的程序,你可以辨別用戶是否註冊,或者你可以設置連接到你的CGI程序以便要求附加路徑信息包含在請求之中——因此你不必猜測你的用戶正在你的服務器的哪個頁面上。
AUTH_TYPE服務器用的確認模式
CONTENT_FILE含有CGI程序的數據文件
CONTENT_LENGTHPOST請求中向標準輸入(STDIN)發送的字節數
CONTENT_TYPE被發送數據的類型
PATH_INFOCGI程序的附加路徑
PATH_TRANSLATEDPATH_INFO對應的絕對路徑
QUERY_STRING傳送給CGI程序的URL的問號(?)之後的那一部分
REMOTE_ADDR最終用戶的IP或主機名
REMOTE_USER如果用戶合法,則是用戶的組名
REQUEST_LINE發送給服務器的完整URL請求
REQUEST_METHOD作為HTTP的一部分請求而傳送數據的方法,比如get。
SCRPT_NAME運行的腳本名字


[ 本帖最後由 蔡逸竹 於 2006-11-30 23:48 編輯 ]

TOP

第六章: 調查表CGI/PERL學習

    對於本章的程序——選票程序,我不想多說什麼。我只是想在本程序內教給大家如何

    使用perl語言或C語言如何處理字符串的實例。讓我們先看看代碼:

    頁面文件——pote.html

    <HTML>

    <TITLE>投票程序</TITLE>

    <h1>投票程序</h1>

    <FORM METHOD="post" ACTION="/cgi-bin/vote.pl">

    一。你喜歡誰?<br>

    <input type="radio" name="idol" value="A" checked>張德陪<br>

    <input type="radio" name="idol" value="B">阿加西<br>

    <input type="radio" name="idol" value="C">桑普拉斯<br>

    <input type="radio" name="idol" value="D">貝克<br>

    <input type="radio" name="idol" value="D">顧懿<br>

    <input type="submit" value="執行">

    <input type="reset" value="取消">

    </form>

    查詢<a href="/cgi-bin/vote.pl?command=view">選舉投票結果</a>

    </html>

    CGI程序:——vote.pl

    #!perl

    print"Content-type:text/htmlnn";

    print"<titel>投票系統</title>";

    if($ENV{'REQUEST_METHOD'}eq"OST"){

    read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

    }elsif($ENV{'REQUEST_METHOD'}eq"GET"){

    $buffer=$ENV{'QUERY_STIRNG'};

    }

    @pairs=split(/&/,$buffer);

    foreach $pair(@pairs){

    ($name,$value)=split(/=/,$pair);

    $value=~tr/+//;

    $value=~s/%([a-f A-F 0-9][a-f A-f 0-9])/pack("C",hex($1))/eg;

    $FORM{$name}=$value;}

    $filename="/vote.dat";

    %NAME=("A","張德陪","B","阿加西","C","桑普拉斯","D","貝克","E","顧懿");

    if($ENV{'REQUEST_METHOD'}eq"OST"){

    print"Content-type:text/htmlnn";

    print"<titel>投票系統</title>";

    print"<h1>投票系統的例子</h1>";

    open(FILE,"<$filename")||die"不能打開文件,請和管理員聯繫n";

    for($i=0;$i<2;$i++){

    $file[$i]=<FILE>;

    $file[$i]=~s/n$//;

    }

    close(FILE);

    @item=split(/:/,$file[0]);

    @vote=split(/:/,$file[1]);

    for($i=0;$i<@item;$i++){

    if($FORM{'idol'}eq$item[$i]){

    $vote[$i]++;

    last;

    }

    }

    open(FILE,">filename")||die"Can't Open the file";

    $item=join(":",@item);

    $vote=join(":",@vote);

    pirnt FILE "$itemn";

    print FILE "$voten";

    close (FILE);

    print"<h2>您是投票給$NAME{$FORM{'idol'}},謝謝您的選票!<h2>";

    print"查詢<a href="/cgi-bin/vote.pl?command=viem">投票結果系統</a>";

    }

    if($FORM{'command'}eq"view"){

    print "HTTP/1.0 200n";

    print "Content-type:text/htmlnn";

    print"<title>投票結果</title>";

    print"<h1>投票結果</h1>";

    open (FILE,"$filename")||die"文件打開錯誤";

    for($i=0;$i<2;$i++){

    $file[$i]=<FILE>;

    $file[$i]=~s/n$//;

    }

    close(FILE);

    @item=split(/:/,$file[0]);

    @vote=split(/:/,$file[1]);

    print"<table border=1>";

    for($i=0;$i<@item;$i++){

    print"<tr><td>姓名</td><td>$NAME{$item[$i]}</td><td>票數</td>,td>$vote[$i]

    </td><tr>";

    }

    print "</table>";

    }

    這個程序是要各位學習Perl的分解字符串的功能。在Perl中,字符串操作

    是非常簡單的。

    我對幾句重要語句做一個分析:

    if($ENV{'REQUEST_METHOD'}eq"OST"){

    read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

    }elsif($ENV{'REQUEST_METHOD'}eq"GET"){

    $buffer=$ENV{'QUERY_STIRNG'};

    }

    這是一個非常常見的功能塊,幾乎所有的CGI程序都會用到它。它判斷

    頁面使用何種方式提交變量。如果是post,就從STDIN裡把變量讀出,存到

    變量buffer裡。注意在perl裡,變量是用$開頭的。而$ENV{'CONTENT_LENGTH'}

    則是讀出該變量的長度,請注意CONTENT_LENGTH是一個環境變量。第二個if則

    處理get情況,在get情況下,頁面提交的信息是存放在環境變量QUERY_STIRNG中

    的。所以$buffer也就是頁面提交的信息。環境變量REQUEST_METHOD表示方式,

    它的值是一個字符串,前面加上$ENV則表示讀出該變量的值。

    @pairs=split(/&/,$buffer);

    foreach $pair(@pairs){

    ($name,$value)=split(/=/,$pair);

    $value=~tr/+//;

    $value=~s/%([a-f A-F 0-9][a-f A-f 0-9])/pack("C",hex($1))/eg;

    $FORM{$name}=$value;}

    以上功能塊是一個分解過程。頁面信息的提交往往是以「名稱=值」的形式,

    比如本例子中就是以「idol=顧懿」這樣的形式提交的,所以我們要去掉字符串中

    的"="等等信息,但同時要保留「idol」和"顧懿"之間的對應關係。$FORM{$name}

    =$value做到這一點,這是一個關聯數組。具體其中的語法,請各位自行查書。接

    下來的就是文件的操作,但那已經不是本課的重點。所以就不多說了。


第七章:上傳文件

   上傳文件是建立交互式網站的一個重要手段。一般來說,考慮到CGI程序的安全和一些敏感問題,服務器是不會輕易開放文件上傳權利的。

    今天的程序是由WEBSITE1.1附帶的一個upload.exe程序,由VB編寫而成。所以我要講的也就是VB寫WIN-CGI時候的一些問題。

    VB寫Win-CGI:

    在Windows環境下,WEB服務器和一個Windows CGI之間是通過臨時文件來傳送數據的。這個

    過程如下:

    1.Web服務器接受一個客戶機對Windows CGI程序的請求,這個請求也稱為Windows CGI請求。

    2.Web服務器把要傳送給Windows CGI程序的數據放在一個叫CGI profile的主輸入文件。在某些情況下,還會增加一個文件。

    3.Web服務器執行CGI程序,把CGI profile作為它的第一個參數。

    4.Windows CGI開始執行,服務器等待Windows CGI進程結束。在等待過程中,服務器還可以處理其他請求,比如另一個新的CGI進程或HTTP請求。

    5.Windows CGI程序讀取作為命令行參數的profile文件並完成必要的處理,CGI程序也許要使用porfile文件中的數據和其他相關的輔助文件中的數據。

    6.在Windows CGI程序結束前,把它的應答寫在profile文件指定的輸出文件中。

    7.得到CGI程序處理結果後,WEB服務器讀取輸出文件,看看輸出數據是否要打包,並把最後數據發給客戶機。

    8.WEB服務器隨後就刪除處理這個請求時產生的臨時文件。如果在服務器管理器註冊時,不刪除臨時文件,則保留這些臨時文件。總的說,基於文件的傳輸過程是比較古老的。但它是最常用的通訊方式。

    CGI32.BAS

    CGI32.BAS是給windows系列的使用者在VB4.0或更高的環境下開發Windows-cgi而寫的一

    個程序接口。本文假設你已經對VB編程非常熟悉,所以對於使用VB的過程我就省略不說了。

    在寫Win-CGI程序的時候,請將VB環境中的有效對像全部關掉(Custom controls),並將

    CGI32.bas加入project中。隨後創建一個子程序

    CGI_Main()

    Sub CGI-Main()

    'Win-CGI程序內容end sub

    對於CGI32.bas,如果你還沒有,請在這裡下載。

    Sub Main()

    On Error GoTo ErrorHandler

    If Trim$(Command$) = "" Then ' Interactive start Inter_Main ' Call interactive main Exit Sub ' Exit the program End If

    InitializeCGI ' Create the CGI environment

    '=========== CGI_Main ' Execute the actual "script" '===========

    Cleanup:Close #CGI_OutputFN Exit Sub ' End the program '——ErrorHandler:Select Case Err ' Decode our "user defined" errors Case ERR_NO_FIELD:ErrorString = "Unknown form field" Case Else:ErrorString = Error$ ' Must be VB error End Select

    ErrorString = ErrorString & " (error #" & Err & ")" On Error GoTo 0 ' Prevent recursion ErrorHandler (Err) ' Generate HTTP error result Resume Cleanup '——End Sub

    上面是一個Win-cgi的例子。


第八章:Form to MailCGI/PERL學習

    Form to Mail

    所謂Form to Mail的功能,就是在頁面上建立一個表單(form),該表單內記錄著用戶的信息,當用戶提交了此表單,程序自動將表單內容發送的管理員所設定的信箱裡。聽起來這非常簡單,根本用CGI就可以寫這樣的功能。其實當然沒有這麼簡單,實際上許多公司網頁還要求此表單在提交時存如另一個數據庫,這樣就需要寫CGI程序了。

    為了便於解說form to mail的功能,我們這裡不考慮複雜情況,只考慮最簡單的情況。就是唯一的form to mail功能,其他的功能只要在程序內加入相應的程序塊就可以了。

    在Unix中,我們最多使用的就是Email網關,因為是CGI開發環境中少數幾個標準unix工具之一。在CGI程序中發送e-mail的命令是mail和Sendmail.我比較喜歡sendmail,因為它功能更強,Sendmail從STDIN接受數據,遇到Eof或只包含。的一行信息就將信息發送出去。

    Perl中使用Sendmail的一個方式是將mail內容寫入一個臨時文件,然後使用Cat,同時把輸出管道與Sendmail命令相聯繫起來。

    如:

    open(EMAIL,「>tempfile $ $,txt」);

    print(EMAIL,「stuff to be emailed …… la la la ……n」);

    close(EMAIL);

    system(「cat tempfile $ $,txt | /usr/sbin/sendmail $tokens(『email』)」);

    system(「rm tempfile $ $,txt」);

    名字tempfile $$,txt中的$ $是Perl中的一個特殊變量,即進程號(PID)。之所以使用是為了避免兩個用戶同時啟動這個程序會覆蓋tempfile文件,使用這種方法每個tempfile都是唯一的。(由pid表示)。這種好的思想可以用在許多程序中。

    Sendmail命令從關聯數組元素$token(『email』)中找到e-mail目標地址,你可以假設這個變量的值在用戶提交的表單由用戶輸入。如果沒有安全措施,這樣做是很危險的,設想有惡意的用戶在Web表單中給你如下地址︴email]GNoone@nowhere.net[/email] ;cd/;rm-R *分號是表示unix命令結束的符號並將命令提交unix命令解釋器。精通web的人誰也不會在根目錄運行httpd,這個例子將刪除整個文件系統。所以在設計整個系統的時候,必須考慮到這種用戶直接到達Shell的情況。

    Windows 下的Form to Mail

    很不幸,Windows沒有類似於Unix的mail網關,不管是WinNt和Windows都無法做到類似的功能。當然也有些非常熱心的程序員寫過Dos接口的mail程序,但是相當不幸,此類程序直到現在也沒有很成功的例子。它們的問題是過於佔用系統資源,並非常容易被黑客攻擊。所以這裡我就不提供程序了。


第九章:Guest book

    Guest-book在網頁設計中佔有相當重要的地位,以至於可以和記數器相提並論。留言本可以用許多編程語言來設計,當然使用最多的還是perl和vb兩種。本次cgi教程我們將談談在編寫Guest-book中最應該注意的問題,並將給出一個不算很完整的程序代碼。同時提供一個C語言的win-cgi程序供大家下載。

    就現在的情況來看,一個標準的guest-book程序一般包括三個文件。提交表單文件(form.html)、cgi處理文件(guest-book.cgi)和最後的輸出文件(book.html)。有些vb程序以access數據庫為後台存儲格式,以方便用戶查找留言。下圖給出了guest-book的工作流程。

    form.html首先我們來看看form.html的文件內容:<html> <title>guest-book.html</title> <h1>留言本</h1> <form method="post" action="/cgi-shl/guest-book.cgi"> <p>名字:<input name="name" size="20"> <p>email:<input name="email" size="30"> <p>意見:<textarea name="suggest" cols=30 rows=4></textarea> </textarea><p> <input type="submit" value="提交"> <input type="reset" value="取消"> </form></html>

    <form method="post" action="/cgi-shl/guest-book.cgi">將此表單的提交後的動作交給guest-book.cgi程序。

    guest-book.cgi #! perl

    print"Content-type:text/htmlnn";read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});@pairs=split(/&/,$buffer);foreach $pair(@pairs){($name,$value)=split(/=/,$pair);$value=~tr/+//;$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1))/eg;$FORM{$name}=$value;} print"<title>留言本</title>";print"<h1>留言本</h1>";

    foreach $check(values%FORM){ if($check eq""){ print"<hr size=3>";print"<h2>請不要留空";exit(0);}

    $FORM{'suggest'}=~s/cMn/<br>n/g;

    $filename="c:/website/htdocs/book.html";

    open(FILE,">> $filename");print FILE "名字:$FORM{'name'}<br>n";print FILE "Email:<a href="mailto:$FORM{'email'}>$FORM{'email'}</a><br>n"}";print FILE "留言:$FORM{'suggest'}";close{FILE};

    print "<h2>謝謝留言</h2>";

    print"<a href="book.html">請觀看留言本</a>";

    exit(0);

    這個程序相當簡陋,但它具有了所有的CGI-Guest程序的特點,我們一一分析如下:首先,read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});@pairs=split(/&/,$buffer);foreach $pair(@pairs){($name,$value)=split(/=/,$pair);$value=~tr/+//;$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1))/eg;$FORM{$name}=$value;}這是一段表單分析的語句,在前面的程序裡,估計大家也都見過了。

    其次:foreach $check(values%FORM){ if($check eq""){ print"<hr size=3>";print"<h2>請不要留空";exit(0);}做輸入字段的檢查,看看是否有留空的現象。從前這種任務都是要CGI程序來驗證的,比如

    email是否輸入的是mail地址等檢查。不過現在我們可以通過javascript來做這樣的檢查,

    這樣服務器的負擔將大大減輕。

    最後:$filename="c:/website/htdocs/book.html";

    open(FILE,">> $filename");print FILE "名字:$FORM{'name'}<br>n";print FILE "Email:<a href="mailto:$FORM{'email'}>$FORM{'email'}</a><br>n"}";print FILE "留言:$FORM{'suggest'}";close{FILE};

    print "<h2>謝謝留言</h2>";

    print"<a href="book.html">請觀看留言本</a>";

    exit(0);輸出內容到文件和屏幕上。完成留言的程序。

    book.html:這個程序中book.html沒有什麼特別的要求,可以不用寫,就讓程序自動生成。

    現在有的cgi程序,對book.html也有設定,比如在<head></head>之間就寫上註釋<!——這是流言開始——!> <!——這是流言結束——!>這樣,在程序對留言數據操作的時候,就可以忽略掉文件內的其他內容。

    最後,我為各位找到一個用C寫的guestbook程序,它是在win平台上運行的,具有非常好的兼容性。同時它採用了臨時文件的方式來傳遞信息。所以你需要設定。ini文件。好了,這課到此為止。


第十章:一個數據庫的例子

   毫無疑問,當今Web程序設計中最吸引人而且最複雜的當然就是web數據庫程序了。平心而論,其複雜高深的程度決不是你們可以想像得到的。我們先來看看其中涉及到的幾個方面的問題:

    1.最基本的html設計

    2.CGI程序編寫調試

    3.網絡管理和客戶協調

    4.數據庫編寫

    5.客戶/服務體系程序編寫

    另外你還得不時地同你的客戶進行鬥爭,以取得他們對你工作的認同。因此編寫一個大型WEB數據庫,是綜合素質的考驗。

    筆者自問尚不完全具備以上的能力,但有幸曾參加過幾個web數據庫的開發,算是具備了初步的經驗吧。這裡給大家分享,也算是感謝各位對這個斷斷續續的教程的總結吧。

    一 數據庫選擇

    從一般情況來看,使用web數據庫往往是要解決數據的歸納、索引和維護的問題。我們一般選擇最流行的關係型數據庫,比如NT下的sql,win95和nt下的Access,NT下的sybase,unix下的msql等等。當然還有Oracle、FileMaker PRO、Paradox等等。這些都是很流行的Sql數據庫。Sql給數據管理提供了一個標準而堅實的接口,它對數據庫操作餓所有函數必需在數據庫語言中實現。這種函數包括:數據對象的創建、插入數據和數據修改等。對於數據量不大的小型數據庫,一般使用access。

    二 接口程序CGI/PERL學習

    雖然我們可以直接編寫WEB的CGI接口,但是那是工作量巨大且麻煩異常的工作。為了減輕開發者的負擔,數據庫程序員為我們編寫了許多可以直接使用的接口程序,配合不同的數據庫。下面就是一些十分常用的接口程序:

    1. DB2WWW

    訪客無法瀏覽此圖片或連結,請先 註冊登入會員

    這是一個用於和IBM DB2數據庫進行連接的工具。在HTTP服務器中,這種工具將HTML文件和SQL命令作為宏文件存儲,然後,DB2WWW在接受到瀏覽器請求後就處理這些宏文件。

    2. dbCGI

    訪客無法瀏覽此圖片或連結,請先 註冊登入會員

    這個工具通過在html文件中內置SQL語句來實現和數據庫的連接。適用於Progress,Sybase,Oracle,Informix,Ingres和ODBC。下面是一個典型的dbCGI程序代碼:

<title>dbCGI test</title>
<sql init>
INFORMIXDIR=/usr/informixdir
SQLEXEC=/usr/informix/sqlturbo
TBCONFIG=tbconfig
</sql>
<sql connect connl>
<DATABASE=stores>
<sql>
<sql format>
% [! 8:<h1>%8d</h1>%]
....
</sql>
<sql query connl>
selet *
from customer
order by date,city,zipcode
</sql>
<sql disconect connl>
</sql>
<sql uninit>
</sql>
    這個工具通過<sql>標籤和%轉意字符來把sql語句放置在html語句內。

    3 Genera

    訪客無法瀏覽此圖片或連結,請先 註冊登入會員

    這個是sybase數據庫系統的網關。它通過在文本文件中加入特定的語句來和數據庫進行連接。

    4 WebDBC

    訪客無法瀏覽此圖片或連結,請先 註冊登入會員

    以windows NT為平台,可以訪問所有對odbc兼容的數據庫。

    5 A-Xorion

    訪客無法瀏覽此圖片或連結,請先 註冊登入會員

    他是一個CGI網關,它可以訪問大多數的PC機數據庫。它以Windows3.1/95/NT為平台。數據庫為Ms Access2.0。

    三 編程語言CGI/PERL學習

    上面介紹的是一些常用的接口程序,它們需要Server的配合才能正常工作。當然如果是很小的數據庫程序,不需要使用如此複雜的數據庫接口程序。用C,Perl,VB等等,寫成CGI程序,在CGI程序內調用數據庫。雖然速度方面不是很快,但絕對是非常簡單的。

    最後的例子:

    最後,我準備以一個例子來結束這個教程。

    環境:

    這是一個非常簡單的WEB應用程序。如果你要運行這個程序,也許你得化些時間來配置自己的系統。在這個例子裡,CGI程序由Perl5來編寫,後台數據庫使用sybase system 10,Sybperl用於建立腳本和數據庫之間的通信,用其他的CGI後台數據庫接口程序也可以。

CGI程序:

<head>
<title>會議登記程序</title>
</head>
<body>
<h2>會議登記系統</h2>
please fill out the following form. A registration packet will be sent to you immediatel you.Note that all <b>bolad-faced</b>fields muse be complected.
<hr>
<form method="post" action="cgi-bin/resgister.pl">
<b>first name:</b><input type="text" name="c_fname" size=30>
<p>
<b>Last name:</b><input type="text" name="c_lname" size=30>
<p>
<b>address 1:</b><input type="text" name="c_add1" size=30>
<p>
<b>address 2:</b><input type="text" name="c_add2" size=30>
<p>
<b>city:</b><input type="text" name="c_city" size=30>
<p>
<b>State:</b><input type="text" name="c_state" size=2>
<p>
<b>Zip:</b><input type="text" name="c_zip" size=15>
<p>
<b>phone:</b><input type="text" name="c_phone" size=15>
<p>
<b>Fax:</b><input type="text" name="c_fax" size=15>
<p>
<b>Email:</b><input type="text" name="c_email" size=15>
<p>
Packge:
<ul>
<li><input type="radio" name="c_packge" valuge="a">Package A
<li><input type="radio" name="c_packge" valuge="b">Package B
<li><input type="radio" name="c_packge" valuge="c">Package C
</ul>
How did you hear about the conference:
<ul>
<li><input type="radio" name="c_ad" value="a">Direct Mail
<li><input type="radio" name="c_ad" value="b">Associate
<li><input type="radio" name="c_ad" value="c">Journal
<li><input type="radio" name="c_ad" value="d">Other
</ul>
<p>
<input type="reset" value="clear"><input type="submit" value="Register"><p>
</form>

<hr>
</body>

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 ("<br>");
printf(",strong>Your registration cannot be processed as is.Pleae make sure all the requied fields are filled properly.</strong>");
print"<p>";
print"Pleae use the <i>Back</i>button to complete the form.n";
}
else{# data is OK

use Sybase:Blib;

$dbh=Sybase:Blib->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"<strong>Thank you.</strong>Your registration has been submitted.You should receive you packet shourtly in the mail.";

}


TOP

謝謝你的CGI學習簡明教程的....................

TOP

爬~爬~爬~
爬了好久的文
終於爬到這來了
但~看不懂ㄋ~
難道程式對我來說是剋星嗎?

TOP

發新話題

本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。