用VB編寫標準CGI程序（上）

2019-11-18 17:27:31

字體：大中小

來源：轉載

供稿：網友

利用通用網關接口（CGI）　Web服務器可以執行一些外部程序　并將這些外部程序所產生的輸出結果和Web服務器所管理的靜態文本　圖像和聲音融合在一起傳給相應的Web瀏覽器。當客戶機的瀏覽器向Web服務器請求一個HTML文件時　服務器在收到請求后就去尋找這個文件并將找到的文件傳送給客戶機。而當客戶機的請求是一個CGI程序時　Web服務器將激活客戶機所請求的CGI程序并把程序的執行結果傳給客戶機。

　　標準的CGI程序是通過環境變量和標準輸入輸出來與Web服務器交換信息的。任何一個被系統激活的進程都擁有標準輸入和輸出這兩個文件句柄　CGI程序的進程也不例外。不過　當CGI程序被Web服務器激活以后　它的標準輸入STDIN被連接到Web服務器的標準輸出STDOUT上　而CGI程序的標準輸出STDOUT則被連到服務器的標準輸入STDIN上。因此　CGI程序從標準輸入讀取信息（也就是從Web服務器的標準輸出讀信息）　而它向標準輸出寫信息（也就是向Web服務器的標準輸入寫信息）。

　　Web服務器一般將客戶機傳送來的信息放在它的標準輸出和相關環境變量中　而CGI程序則從環境變量和它的標準輸入（也就是Web服務器的標準輸出）獲取所需的信息　程序的最終輸出結果則被寫向它的標準輸出STDOUT（也就是Web服務器的標準輸入）。Web服務器將從它的標準輸入STDIN（也就是CGI程序的標準輸出）獲取CGI程序的輸出結果并將它傳送給客戶機。客戶機　Web服務器和CGI程序之間的信息交流如下圖所示。顯然　Web服務器就像是客戶機和CGI程序間的中介。

　　Web服務器　CGI程序間的這種標準框架在Unix系統下和微軟Windows環境中的字符方式下可以工作得非常好　因為此時系統產生的所有進程都可以存取標準輸入和標準輸出。但對于微軟Windows圖形方式下的程序就不行了　因為它們無法存取標準輸入和標準輸出。為了解決這一問題　微軟在Win32系統中創建了另一類型的標準輸入和標準輸出　程序可以通過調用Win32API函數來存取標準輸入和標準輸出　不過　這就意味著使用這類標準輸入和標準輸出的CGI程序都必須是32位的。

　　微軟Windows環境下的其它一些Web服務器（例如Website）則使用另外一種特殊的技術（即利用INI文件）來實現Web服務器和CGI程序間的數據交流。采用這種被稱為“Win-CGI”規范編寫的CGI程序通常只能在部份Web服務器上運行。一般地　支持Win-CGI的Web服務器將客戶端的輸入以及有關的狀態信息寫入到一個INI文件中　而CGI程序則從該INI文件中獲取相關信息　這類程序的執行效率沒有標準CGI程序高。

　　在進行CGI編程時　只要使CGI程序從標準輸入和環境變量中獲取客戶機提供的信息　并將要傳送給客戶機的輸出結果寫入標準輸出　剩下的信息傳遞工作將由Web服務器自動完成。CGI只是規定了一個標準的接口規范　只要遵守這個標準規范　程序開發人員就可以利用各種編程工具（如Perl　C　FORTRAN　VisualBasic等）進行CGI編程了。考慮到VisualBasic的強大的數據庫處理能力　客戶機/服務器模式的編程能力以及字符串處理能力　所以本文主要向大家介紹如何使用VB編寫標準的CGI程序。

　　一　輸入輸出的處理

　　一個CGI程序被激活以后　它首先要做的事情就是確定系統平臺　Web服務器和客戶端瀏覽器的狀態信息以及客戶端用戶的輸入數據。此外　它還必須能夠將相關信息傳送給客戶端　否則它將一事無成。這些操作都是通過存取環境變量和標準輸入輸出來完成的。用VB編寫的CGI程序通過調用函數Environ()來獲取相關環境變量的值。存取標準輸入輸出就要在程序中使用Win32API函數GetStdHandle()　ReadFile()和WriteFile()　在使用這些函數時首先必須在程序中聲明它們　寫聲明語句時可以借助于VB提供的API文本查看器。

　　以下的CGI程序說明　在VB-CGI程序中如何處理環境變量和標準輸入輸出。該CGI程序非常簡單　可將標準輸入中的信息不經任何處理就返回給客戶端　它可被任何表單用POST方法激活　

　　DeclareFunctionGetStdHandleLib"kernel32"(ByValnStdHandleAsLong)AsLong

　　DeclareFunctionReadFileLib"kernel32"(ByValhFileAsLong,lpBufferAsAny,

　　ByValnNumberOfBytesToReadAsLong,lpNumberOfBytesReadAsLong,lpOverlappedAsAny)AsLong

　　DeclareFunctionWriteFileLib"kernel32"(ByValhFileAsLong,ByVallpBufferAsString,ByValnNumberOfBytesToWriteAsLong,lpNumberOfBytesWrittenAsLong,lpOverlappedAsAny)AsLong

　　PublicConstSTD_INPUT_HANDLE=-10&

　　PublicConstSTD_OUTPUT_HANDLE=-11&

　　PublicConstFILE_BEGIN=0&

　　PublichStdInAsLong'標準輸入文件句柄

　　PublichStdOutAsLong'標準輸出文件句柄

　　SubMain()

　　DimCGI_ContentLengthAsString　CGI_QueryStringAsString

　　DimlContentLengthAsLong'標準輸入中的字符串的長度

　　DimsBuffAsString'用于存儲標準輸入中的字符串

　　DimlBytesReadAsLong'實際讀入的字符個數

　　DimrcAsLong

　　DimsFormDataAsString

　　'調用系統函數生成標準輸入輸出文件句柄

　　hStdIn=GetStdHandle(STD_INPUT_HANDLE)

　　hStdOut=GetStdHandle(STD_OUTPUT_HANDLE)

　　'獲取環境變量CONTENT_LENGTH的值　并將它轉換為整型

　　CGI_ContentLength=Environ("CONTENT_LENGTH")

　　lContentLength=Val(CGI_ContentLength)

　　sBuff=String(lContentLength,Chr$(0))

　　'從標準輸入中讀數據

　　rc=ReadFile(hStdIn,ByValsBuff,lContentLength,lBytesRead,ByVal0&)

　　sFormData=Left$(sBuff,lBytesRead)

　　OutPut"Content-type:text/html"&vbCrLf

　　OutPut"<HTML><HEAD>"

　　OutPut"<TITLE>表單傳送數據的方法POST</TITLE></HEAD>"

　　OutPut"<BODY><H3>表單傳送數據的方法POST</H3>"

　　OutPut"<P>本CGI程序使用VisualBasic編制　"

　　OutPut"<P>POST方法傳送的數據:"

　　OutPut"<P>"&sBuff

　　OutPut"</BODY></HTML>"

　　EndSub

　　SubOutPut(sAsString)'定義一個向標準輸出寫信息的函數

　　DimlBytesWrittenAsLong

　　s=s&vbCrLf

　　WriteFilehStdOut,s,Len(s),lBytesWritten,ByVal0&

　　EndSub

　　一般地　用VB編譯生成的CGI程序不能正確處理中文信息。這主要表現在CGI程序向STDOUT輸出的中文在Web頁面上無法正確顯示　可通過在該中文字符串后跟著輸出一些空格來解決這個問題。當使用HTML標識符<P>　</P>對Web頁面進行排版時　瀏覽器在顯示該Web頁面時會吃掉多馀的空格而只保留一個。在這種情況下　這些空格對Web頁面的外觀基本上沒有什堋影響。如果使用HTML標識符<PRE>　</PRE>對Web頁面進行排版　則由于空格不能被瀏覽器吃掉　所以Web頁面的外觀將會受到較大的影響。不過　這時可用HTML的表格<table>　<P>來代替<PRE>對Web頁面進行排版。

　　注意　整個CGI程序的主體必須放在MAIN()函數中。

　　二　URL譯碼與解碼

　　由于Web服務器和瀏覽器不能正確處理一些特殊的字符　Web服務器和瀏覽器之間可能會因此而產生某種程度的誤會　所以在數據被傳送之前　瀏覽器都要對表單內客戶輸入的數據中的特殊字符進行URL譯碼。

　　例如　Web系統用“=”分解表單各元素的NAME和VALUE屬性　用“&”分解不同表單元素的輸入數據。如果在表單的輸入數據中包含這些特殊的字符　并且表單的數據在傳送給Web服務器前不作任何處理　則Web服務器將無法知道哪一個“=”　“&”是用戶輸入的　哪一個是瀏覽器加上的。在由表單屬性ACTION定義的URL中　也可能會出現一些特殊的字符　當在CGI程序的名稱和路徑信息（PathInformation）中出現“=”　“&”和“　”時　都會影響數據的正確傳送。

　　URL譯碼（URLEncoding）就是將Web服務器所不能正確處理的特殊字符轉換成它的十六進制數的形式　比如將“”轉換成“%”　“=”轉換成“=”等等。這些特殊的字符通常被稱作Web系統的保留字符。在Web系統上無論是用GET方法還是用POST方法傳送的數據都要進行URL譯碼。CGI程序要想處理表單傳送來的數據　還必須對瀏覽器URL譯碼過的數據進行解碼。因此　理解URL譯碼對于我們進行CGI編程是非常重要的。URL譯碼一般包括以下步驟　

　　1　瀏覽器將所傳送的數據根據表單所包含的元素分解成“NAME=VALUE”形式　NAME和VALUE分別是表單元素的屬性。其中　VALUE屬性中存儲客戶機在表單中輸入的數據　如果客戶機沒有輸入數據　則VALUE存儲的是表單定義的缺省值如果缺省值也沒有定義　則VALUE值為空。

　　2　代表表單中各元素的各個“NAME=VALUE”對被瀏覽器用“&”連接起來。

　　3　VALUE屬性中存放的數據若含有空格　則被轉換成“ ”。

　　4　URL和輸入數據中所包含的Web系統的保留字符必須被譯碼成其十六進制數形式。

　　5　被譯碼后的字符被表示成一個“”和它們的十六進制數形式（即HH）。

　　CGI程序從環境變量“QUERY_STRING”或標準輸入中讀入的數據是經過瀏覽器URL譯碼過的　故在使用這些數據以前還必須對它們進行URL解碼。解碼的目的是將數據還原成客戶端用戶在Web頁面上輸入時的形式。本文已經介紹了URL譯碼過程　URL解碼過程與它正好相反　它一般包括以下步驟　

　　1　從瀏覽器用GET或POST方法所傳送來的數據中找出代表各個表單元素所儲存數據的“NAME=VALUE”對。

　　2　VALUE屬性中所存放的數據若含有“ ”　則被轉換成空格。

　　3　將VALUE屬性中所存放的數據的十六進制數“HH”轉換成相應的字符。

　　Web系統將漢字當成特殊的字符　對它也要進行URL譯碼。對于一個特殊的單字節字符（比如“/”）　瀏覽器通常將它譯碼成十六進制數的形式（比如/）　“”表示它后面跟的是兩位十六進制數。當VB程序對其進行處理時調用Chr$函數就可以將其恢復為原貌。而一個漢字則被瀏覽器譯碼成四位十六進制數（比如張）。如果CGI程序還像以前那樣分別調用Chr(D5)和Chr(C5)　則由于D5　C5都不是正常的單字節十六進制數碼　故Chr函數返回空　漢字將無法正確還原。正確的做法應該是將有關漢字的四位十六進制數一起傳給函數Chr（如Chr(D5C5)）　此時漢字才能被正確還原。

　　因此　可以讓CGI程序對四位連續的十六進制數一起進行譯碼　以便使漢字能夠被正確還原。但在這種情況下　當客戶端用戶輸入了兩個連續的Web系統保留字符時　CGI程序又可能把它們當成漢字來處理。這時可以讓CGI程序在　要對四位連續的十六進制數進行譯碼時首先檢查前面兩位是否為Web系統的保留字符　如果是則仍然按照單字節的字符處理。不過如果客戶端用戶在表單內填寫了很多漢字　則CGI程序的負擔將會大大加重。事實上　在大多數情況下　客戶端用戶很少會使用兩個連續的Web系統的保留字符　所以可以只讓CGI程序對最容易出現的情形如“://”（當客戶端用戶在表單中輸入某一URL時會出現這種情況）進行檢查　本文下節提供的函數UrlDecode()可以實現對漢字和Web系統保留字符的URL解碼。->

上一篇：用VB編寫異步多線程下載程序

下一篇：PING一個IP地址（向它發送一個數據包并等待回應)）