網頁設計 : [分享]IND網路教學CGI的簡介和應用

24行 fp = fopen?#93;"/home/class_night/n8215064/www/guestbook.htm","a"）; /*?#125;留言檔*/

ind:~\www>pwd
/home/class_night/n8317201/www/

40行printf("<a href=\"/~refined/guestbook.htm\">看看留言版</a>");  /* 更改留言版的入徑 */

ind:~>mkdir  www/cgi-bin/
ind:~>gcc -o guestmsg.cgi guestmsg.c
ind:~>mv guestmsg.cgi www/cgi-bin/
ind:~>chmod 755 www/cgi-bin/guestmsg.cgi
ind:~>mv addguest.htm www

------< date >------
#!/bin/sh
# 第一行的 #! 是 Unix shell script 的固定寫法
# 其後的 /bin/sh 是說這個ＣＧＩ?#123;式是在 /bin/sh 這個shell下執行
# 第二行後以 # ?#125;頭的行,皆是當作註解使用
echo Content-type: text/plain
echo
# 上面這兩行是固定要寫的
# 事實上,經測試 echo Content-type: text/plain 這一行亦可省略
# 但是 echo 這一行一定要存在
echo -n '?#123;在時間是 : '
# 顯示 '?#123;在時間是 : ' 這段文字
# -n 參數表示印完文字後不換行
/bin/date
# 執行 Unix 中 date 的指令
--------------------

　
------< print_input >------
#!/bin/sh
echo Content-type: text/html
echo

if [ $# = 0 ]; then
# 在 shell script 中 $# 代表傳到本?#123;式的所有引數個數
# 當呼叫此?#123;式時如未給任何參數, 則 $# = 0
# 下面這一段有特別的技巧, 叫做"行中的輸入重定向"
# 如果字串' >> '在一命令之後,如 command >> word
# 則 shell 會用其後的輸入行當作 command 命令的標準輸入,
# 直到碰到一行內只有字串 word 才停止.
# 下列幾行就是將 ＜TITLE＞ .......EOM 間的資料傳給 cat 命令
# 結果就是將這幾行字顯示在螢幕上.
 cat >> EOM
＜TITLE＞秀字?#123;式＜/TITLE＞
＜H1＞秀字?#123;式＜/H1＞
＜ISINDEX＞
您想印出"什麼東東",就在方格內輸入"什麼東東"
EOM
# ＜ISINDEX＞ 會產生一個輸入方格,讓您輸入任何東西
# 但是?#123;式要在完全執行完畢後, 才讓您輸入東東( 特別注意這點 )
# 當您按下＜Enter＞時, 就會將輸入的資料當作本?#123;式的引數
# 重新執行本?#123;式.
#
# 在 shell script 中有幾個特別的參數
# 1. $# : 所有引數的個數
# 2. $0 : 目前這個?#123;式的名稱
# 3. $1,$2,.. : 位置參數, ?#93;就是第一個引數,第二個引數,..
# 4. $* : 所有的引數, ?#93;就是 $* = $1 $2 ...
else
# 以下這一段是有輸入引數時才執行的, ?#93;就是您在輸入方格
# 按下＜Enter＞後,再次執行本?#123;式時才動作
# 請注意下面幾行的寫法和 HTML 文件的寫法完全相同, 只是都被?#93;含在" "之間
# 並且都是用 echo 來顯示
 echo "＜pre＞"
echo $*
echo "＜hr＞"
echo "＜a href="/cgi-bin/print_input"＞＜img src="/image/leftenter.gif"＞回秀字?#123;式＜/a＞"
echo "＜/pre＞"
fi
---------------------------

------< note_board.html >------
＜html＞
＜title＞酸 甜 苦 辣 留 言 版＜/title＞
＜body＞
＜h1＞酸 甜 苦 辣 留 言 版＜/h1＞
＜hr＞
當您看完了筆者的這一點點的心得後,＜br＞
相信您?#93;有話要說,＜br＞
別客氣, 通通寫在留言版上,＜br＞
我會一一參考改進,＜br＞
謝謝＜p＞
＜form method=post action="/cgi-bin/note_board"＞
＜pre＞
您的大名 : ＜input name="visitor" size=42＞
標 題 : ＜input name="subject" size=42＞
＜/pre＞
留言版很大, 不要浪費了, 想寫什麼就寫什麼, 歡喜就好！
＜textarea name="comments" rows=15 cols=60＞留言：＜/textarea＞＜p＞
＜input type="submit" value="8-) 哈哈哈 確定留言!!!"＞
＜input type="reset" value="8-> 寫錯了 擦掉重來!!!"＞
＜/form＞
＜/body＞
＜/html＞
------------------------------

visitor=JoJo&subject=Just+test&comments=%AF%64%A8%A5%3A........

------< note_board >------
#!/bin/sh
echo Content-type: text/html
echo
read data
echo $data < /tmp/data.tmp
# 讀取資料並放入 /tmp/data.tmp 中
visitor=`cut -d"&" -f1,1 /tmp/data.tmp`
subject=`cut -d"&" -f2,2 /tmp/data.tmp`
comments=`cut -d"&" -f3,3 /tmp/data.tmp`
# ?#93;變數間以 "&" 相互隔?#125;, 故利用 cut 來得到單一變數.
echo $visitor < /tmp/data.tmp
visitor=`cut -d"=" -f2,2 /tmp/data.tmp`
echo $subject < /tmp/data.tmp
subject=`cut -d"=" -f2,2 /tmp/data.tmp`
echo $comments < /tmp/data.tmp
comments=`cut -d"=" -f2,2 /tmp/data.tmp`
# ?#93;變數名稱與輸入變數值以 "=" 隔?#125;, 故利用 cut 來得到輸入變數值.
rm /tmp/data.tmp
# 刪除暫存資料檔
# 至此, 我們已經得到每個變數的輸入值
# 以下便是依照個人需要來處理變數.
echo "Visitor : $visitor" << /tmp/note
echo "Subject : $subject" << /tmp/note
echo "Comments : $comments" << /tmp/note
echo "---------------------------------------------------" <<
/tmp/note
echo "＜pre＞"
echo "我已經記下您的留言,
"
echo "如果有需要, 我會儘快給您回信,
"
echo "謝謝.
" echo "＜hr＞" echo "＜a href="http://alpha.secc.fju.edu.tw/~macgyver/skill/cgi/tools_text.html#formend"＞＜img
src="/image/rightenter.gif"＞＜/a＞ 回ＣＧＩ?#123;式寫法說明." echo "＜/pre＞"
-------------------------------------------

------< reader >------
#!/bin/sh
echo Content-type: text/html
echo
if [ $# != 0 ]
then
# 當呼叫 reader 時, 若有給定參數(?#93;就是輸入資料), 則會執行下面的?#123;式段.
# 這部份?#123;式段的功能在將讀者輸入的個人資料, 和調查結果分別取出.
# 然後?#91;入讀者意見調查資料庫中.
 read data
name=`echo $data | cut -d"&" -f1,1 | cut -d"=" -f2,2
| /home/User/WWW/cer
n_httpd_3.0/docs/work/trans | cut -c1-6`
# 將名字由 data 中取出, 經過 trans 轉換成中文, 然後只取前 6
# 個字母(三個中文字)來顯示.
 sex=`echo $data | cut -d"&" -f2,2 | cut -d"=" -f2,2`
# 取出性別的輸入資料
 unit1=`echo $data | grep "unit1" | /usr/ucb/wc -l`
unit2=`echo $data | grep "unit2" | /usr/ucb/wc -l`
unit3=`echo $data | grep "unit3" | /usr/ucb/wc -l`
unit4=`echo $data | grep "unit4" | /usr/ucb/wc -l`
value1=`echo $data | grep "value1" | /usr/ucb/wc -l`
value2=`echo $data | grep "value2" | /usr/ucb/wc -l`
value3=`echo $data | grep "value3" | /usr/ucb/wc -l`
value4=`echo $data | grep "value4" | /usr/ucb/wc -l`
value5=`echo $data | grep "value5" | /usr/ucb/wc -l`
# 分別?#93;定 unit1-4 , value1-5 之值.
# 1 : 表示得到一票 0 : 表示沒有.
# unit1-4 分別表示四個 CGI 單元得票與否.
# value1-5 分別表示您對本文的評價等級.
 echo "＜pre＞"
echo $name'~'$sex'~'$unit1$unit2$unit3$unit4'~'$value1$value2$value3$value4
$value5 | tr ~ '\11' << /home/User/WWW/cern_httpd_3.0/docs/work/reader.db
echo "＜/pre＞"
# 這三行是把讀者的輸入資料, ?#91;入讀者意見調查資料庫中.
fi
# cat ＜＜ EOM
# ... anything ...
# EOM
# 這個結構, 我們在&rdquo;秀字?#123;式&rdquo;中曾經解說過.
# 如果您忘記了, 麻煩您回頭看一下吧！
# 下面的內容, 就是使用者所看到的表格.
cat ＜＜ EOM
＜title＞讀 者 意 見 調 查 表＜/title＞
＜center＞＜h1＞讀 者 意 見 調 查 表＜/h1＞＜/center＞
＜hr＞
＜form method=post action="/cgi-bin/reader??"＞
＜dl＞
＜dt＞◎ 您的基本資料：
＜p＞
＜dd＞您的大名：＜input name="name" size=16＞
＜dd＞您的性別：＜input type="radio" name="sex" value="man"
checked＞ ♂
＜input type="radio" name="sex" value="woman"＞
♀
＜p＞
＜dt＞◎ 您最喜歡的單元：?#93;複選）
＜p＞
＜dd＞＜input type="checkbox" name="unit" value="unit1"＞?#123;在幾點了???
＜dd＞＜input type="checkbox" name="unit" value="unit2"＞寫什麼就秀什麼???
＜dd＞＜input type="checkbox" name="unit" value="unit3"＞酸甜苦辣留言版???
＜dd＞＜input type="checkbox" name="unit" value="unit4"＞讀者意見調查表???
＜p＞＜p＞
＜dt＞◎ 您對於&rdquo;ＣＧＩ?#123;式寫法說明&rdquo;的評價：
＜p＞
＜dd＞＜select name="value" size=1＞
＜option value="value1"＞好極了
＜option value="value2"＞　好
＜option value="value3"＞普　通
＜option value="value4"＞　爛
＜option value="value5"＞爛透了
＜/select＞
＜dt＞＜hr＞
＜dd＞＜input type="reset" value="重寫一張"＞＜input type="submit"
value="投進票箱"＞
＜dt＞＜hr＞
＜/dl＞
＜/form＞
＜pre＞
＜h3＞目前意見調查情形如下：＜/h3＞
　　　　　　　　　　 單單單單　　　　　　好　普　爛
姓　　名　姓 別　　　元元元元　　　　　　極好　爛透
　 　　　　　　　　　一二三四　　　　　　了　通　了
＜/pre＞
EOM
echo "＜pre＞"
cat /home/User/WWW/cern_httpd_3.0/docs/work/reader.db
echo "＜/pre＞"
# 上面這幾行就是列印選項說明及讀者調查資料庫的資料.
echo "＜hr＞"
----------------------------------------------------------

＜form method=post action="/cgi-bin/reader??"＞
　　　　　　　　　　　　　　︿︿︿︿

if [ $# != 0 ]
then
...

王照?#91; man 0 0 0 1 1 0 0 0 0
Richar man 1 1 1 1 0 1 0 0 0
...... ... ....... .........