用VB开发标准CGI程序.

1、用VB开发标准CGI程序三.CGI编程实例本节将用 VB 编写一个处理主页客户留言簿的 CGI 程序。除了本文前面所 介绍的 Win32API 函数，程序中还调用了 Win32API 函数 GetTempFileName() 以获得一个唯一的临时文件名。程序中的函数UrlDecode ()用来对客户端的输入进行URL译码，函数GetCgiValue ()则用来分解字符串，根据表单元素的 NAME属性获取其VALUE值，并调用UrlDecode ()函数对其进行URL译码。本程序要求在留言簿文件 guests.html中使用一个定位串“ ！ ENDHEAD” 以将文件的开始部分和具体的客户留言部

2、分分开， CGI 程序将在“ ”所在的位置插入客户新的留言。guests.html应具有如下的形式：DHTMLZone这种形式将保证最后的留言出现在留言簿的最前面。如果要想使最后的留 言出现在留言簿的最后面， 只需将留言簿文件中的定位字符串 “” 移到留言簿文件中客户留言部分和 HTML 文件结尾部分之间的位置就行了。整 个程序的完整代码如下所示：guestbook.basDeclareFunctionGetStdHandleLibkernel32( ByValnStdHandleAsLong) AsLongDeclareFunctionReadFileLibkernel32( ByValhF

3、ileAsLong ， lpBufferAsAny ，ByValnNumberOfBytesToReadAsLong， lpNumberOfBytesReadAsLong，lpOverlappedAsAny)AsLongDeclareFunctionWriteFileLibkernel32 ( ByValhFileAsLong ，_ ByVallpBufferAsString ，ByValnNumberOfBytesToWriteAsLong ，_ lpNumberOfBytesWrittenAsLong ，lpOverlappedAsAny)AsLong DeclareFunctionGet

4、TempFileNameLibkernel32AliasGetTempFileNameA_ ( ByVallpszPathAsString，ByVallpPrefixStringAsString ，_ ByValwUniqueAsLong ，ByVallpTempFileNameAsString)AsLong PublicConstSTD_INPUT_HANDLE=-10& PublicConstSTD_OUTPUT_HANDLE=-11&PublicConstFILE_BEGIN=0&PublichStdl nAsLo ng标准输入文件句柄PublichStdOutAsL on g标准输出文

5、件句柄PublicsFormDataAsString用于存储没有经过URL译码的用户输入数据PubliclContentLengthAsLongPublicCGl_RequestMethodAsStringSubMain()DimCGl_ContentLengthAsString，CGl_QueryStringAsString，sBuffAsString， chinesetailAsStringDimlBytesReadAsLong，rcAsLong，lAsLongDimsEmailAsString ，sNameAsString，sURLAsString，sfromAsString， temp

6、stringAsStringDimsCommentAsString，tempFileNameAsString，guestbookAsStringCGl 程序的初始化工作hStdln=GetStdHandle(STD_lNPUT_HANDLE ) hStdOut=GetStdHandle(STD_OUTPUT_HANDLE )CGl_RequestMethod=Environ(REQUEST_METHOD ) CGl_QueryString=Environ(QUERY_STRlNG ) CGl_ContentLength=Environ(CONTENT_LENGTH ) lContentLeng

7、th=Val(CGl_ContentLength)sBuff=String （lContentLength， Chr$（ 0）OutPutContent-type： text/html&vbCrLf 输出 MIME 类型 OutPutIfCGI_RequestMethod=POSTThen sBuff=String （lContentLength， Chr$（ 0） rc=ReadFile（hStdIn，ByValsBuff，lContentLength，lBytesRead，ByVal0& ） sFormData=Left$（ sBuff ，lBytesRead）ElseIfCGI_Requ

8、estMethod=GETThen sFormData=CGI_QueryStringElseOutPutUnknowFormMethod ！EndIfchinesetail=String（400， ）为了在页面上正确显示中文生成一个空格串获 取客户端用户的输入sName=GetCgiValue（name） sEmail=GetCgiValue（ email ） sURL=GetCgiValue（URL ） sfrom=GetCgiValue（from ） sComment=GetCgiValue（ URL_Comment ） 对客户端用户的输入进行检查IfLen （sName）=0ThenO

9、utPut非常抱歉！您还没有填写姓名！&chi nesetailExitSubEndIfIfLen （sComment）=0ThenOutPut非常抱歉！您还没有提出建议！&chi nesetailExitSubEndIf获取唯一的临时文件名和留言簿文件并打开它们tempFileName=TempFile（c：windowstemp ，gbk ） guestbook=e： netscapeserverdocsguests.html OpentempFileNameForOutputAs#1OpenguestbookForInputAs#2Do本循环体用于将留言簿中字符串前面的内容写入临时 文件

10、LineInput#2 ，tempstringPrint#1，tempstringLoopWhiletempstringAndNotEOF （2） 向临时文件中插入客户端用户的留言Print#1，&vbCrLfPrint#1，&vbCrLfPrint#1， 留言时间 ：&Date$&Time$&vbCrLfPrint#1， 姓名： &sName&vbCrLfIfLen （sEmail）0ThenPrint#1，E-mail ：&sEmail&vbCrLfEndIfIfLen （sURL ） 0ThenPrint#1， 我的主页：&sURL&vbCrLfEndIfIfLen （ sfrom） 0

11、ThenPrint#1， 我来自： &sfrom&vbCrLfEndIfPrint#1， 我的建议： &vbCrLfPrint#1，sComment&vbCrLfPrint#1，&vbCrLfDo本循环体用于将留言簿剩余的东西写入留言簿LineInput#2 ，tempstringPrint#1，tempstringLoopWhileNotEOF （2）Close#1Close#2Killguestbook删除旧的留言簿NametempFileNameAsguestbool将临时文件改成新的留言簿OutPut非常感谢您的留言！&chi nesetailOutPut欢迎您经常光顾本主页！&chi

12、 nesetailOutPutEndSubSubOutPut（sAsString） 本子程序用于向标准输出写信息DimlBytesWrittenAsLongs=s&vbCrLfWriteFilehStdOut，s，Len（s）， lBytesWritten，ByVal0&EndSubPublicFunctionGetCgiValue（cgiNameAsString）AsString本子程序可以获取表单上某一元素的数据Dimdelim2AsLongpositionof=Dimdelim1AsLongpositionof&DimnAsIntegerDimpointer1AsLong ，pointe

13、r2AsLong，lengthAsLong，length1AsLongDimtmpstring1AsString ，tmpstring2AsStringpointer1=1pointer2=1delim2=InStr（ pointer2，sFormData，= ）pointer2=delim2+1Dolength=delim2-pointer1tmpstring1=Mid （sFormData，pointer1，length）delim1=InStr（ pointer1，sFormData，& ） pointer1=delim1+1length1=delim1-pointer2Ifdelim1

14、=0Thenlength1=lContentLength+1-pointer2Iftmpstring1=cgiNameThentmpstring2=Mid$ （ sFormData，pointer2， length1）GetCgiValue=UrlDecode（ tmpstring2）ExitDoEndIfIfdelim1=0ThenExitDoEndIfdelim2=InStr（ pointer2，sFormData，= ）pointer2=delim2+1LoopEndFunctionPublicFunctionUrlDecode（ByValsEncodedAsString） AsStri

15、ng 本函数可以对用户输入的数据进行 URL 解码DimpointerAsLongsEncodedpositionpointerDimposAsLongpositionofInStrtargetDimtempAsStringIfsEncoded=ThenExitFunctionpointer=1Do本循环体用于将“ +”转换成空格pos=InStr（pointer，sEncoded，+）Ifpos=0ThenExitDoMid$ （sEncoded，pos，1）=pointer=pos+1Looppointer=1Do本循环体用于将XX转换成字符。对于两个连续的XX，如果第一 个%XX不是某些

16、特指的 WEB 系统保留字符，将把它们转换成汉字 pos=InStr（pointer， sEncoded， % ）Ifpos=0ThenExitDotemp=Chr$（ &H& （Mid$ （sEncoded， pos+1， 2）IfMid （ sEncoded， pos+3， 1）=%And （temp：）And（temp/ ）_ And（temp（）And（temp）And（temp.）And（temp， ）_And（temp；）And（temp%）ThenMid$（sEncoded， pos， 2）=Chr$（&H& （Mid$ （sEncoded， pos+1， 2）& （ Mid$

17、（ sEncoded， pos+4， 2） sEncoded=Left$（sEncoded， pos） &Mid$ （sEncoded， pos+6） pointer=pos+1ElseMid$ （sEncoded， pos， 1）=temp sEncoded=Left$（sEncoded， pos） &Mid$ （sEncoded， pos+3） pointer=pos+1EndIfLoopUrlDecode=sEncoded ExitFunctionEndFunctionPublicFunctionTempFile（ sPathAsString， sPrefixAsString）AsString 本函数可以获得一个唯一的临时文