用VB开发标准CGI程序.doc

用VB开发标准CGI程序三.CGI编程实例本节将用VB编写一个处理主页客户留言簿的CGI程序。除了本文前面所介绍的Win32API函数，程序中还调用了Win32API函数GetTempFileName（）以获得一个唯一的临时文件名。程序中的函数UrlDecode（）用来对客户端的输入进行URL译码，函数GetCgiValue（）则用来分解字符串，根据表单元素的NAME属性获取其VALUE值，并调用UrlDecode（）函数对其进行URL译码。本程序要求在留言簿文件guests.html中使用一个定位串“”以将文件的开始部分和具体的客户留言部分分开，CGI程序将在“”所在的位置插入客户新的留言。guests.html应具有如下的形式：DHTMLZone.这种形式将保证最后的留言出现在留言簿的最前面。如果要想使最后的留言出现在留言簿的最后面，只需将留言簿文件中的定位字符串“”移到留言簿文件中客户留言部分和HTML文件结尾部分之间的位置就行了。整个程序的完整代码如下所示：guestbook.basDeclareFunctionGetStdHandleLibkernel32（ByValnStdHandleAsLong）AsLongDeclareFunctionReadFileLibkernel32（ByValhFileAsLong，lpBufferAsAny，_ByValnNumberOfBytesToReadAsLong，lpNumberOfBytesReadAsLong，_lpOverlappedAsAny）AsLongDeclareFunctionWriteFileLibkernel32（ByValhFileAsLong，_ByVallpBufferAsString，ByValnNumberOfBytesToWriteAsLong，_lpNumberOfBytesWrittenAsLong，lpOverlappedAsAny）AsLongDeclareFunctionGetTempFileNameLibkernel32AliasGetTempFileNameA_（ByVallpszPathAsString，ByVallpPrefixStringAsString，_ByValwUniqueAsLong，ByVallpTempFileNameAsString）AsLongPublicConstSTD_INPUT_HANDLE=-10&PublicConstSTD_OUTPUT_HANDLE=-11&PublicConstFILE_BEGIN=0&PublichStdInAsLong标准输入文件句柄PublichStdOutAsLong标准输出文件句柄PublicsFormDataAsString用于存储没有经过URL译码的用户输入数据PubliclContentLengthAsLongPublicCGI_RequestMethodAsStringSubMain（）DimCGI_ContentLengthAsString，CGI_QueryStringAsString，sBuffAsString，chinesetailAsStringDimlBytesReadAsLong，rcAsLong，IAsLongDimsEmailAsString，sNameAsString，sURLAsString，sfromAsString，tempstringAsStringDimsCommentAsString，tempFileNameAsString，guestbookAsStringCGI程序的初始化工作hStdIn=GetStdHandle（STD_INPUT_HANDLE）hStdOut=GetStdHandle（STD_OUTPUT_HANDLE）CGI_RequestMethod=Environ（REQUEST_METHOD）CGI_QueryString=Environ（QUERY_STRING）CGI_ContentLength=Environ（CONTENT_LENGTH）lContentLength=Val（CGI_ContentLength）sBuff=String（lContentLength，Chr$（0）OutPutContent-type：text/html&vbCrLf输出MIME类型OutPutIfCGI_RequestMethod=POSTThensBuff=String（lContentLength，Chr$（0）rc=ReadFile（hStdIn，ByValsBuff，lContentLength，lBytesRead，ByVal0&）sFormData=Left$（sBuff，lBytesRead）ElseIfCGI_RequestMethod=GETThensFormData=CGI_QueryStringElseOutPutUnknowFormMethod！EndIfchinesetail=String（400，）为了在页面上正确显示中文生成一个空格串获取客户端用户的输入sName=GetCgiValue（name）sEmail=GetCgiValue（email）sURL=GetCgiValue（URL）sfrom=GetCgiValue（from）sComment=GetCgiValue（URL_Comment）对客户端用户的输入进行检查IfLen（sName）=0ThenOutPut非常抱歉！您还没有填写姓名！&chinesetailExitSubEndIfIfLen（sComment）=0ThenOutPut非常抱歉！您还没有提出建议！&chinesetailExitSubEndIf获取唯一的临时文件名和留言簿文件并打开它们tempFileName=TempFile（c：windowstemp，gbk）guestbook=e：netscapeserverdocsguests.htmlOpentempFileNameForOutputAs#1OpenguestbookForInputAs#2Do本循环体用于将留言簿中字符串前面的内容写入临时文件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）0ThenPrint#1，我来自：&sfrom&vbCrLfEndIfPrint#1，我的建议：&vbCrLfPrint#1，sComment&vbCrLfPrint#1，&vbCrLfDo本循环体用于将留言簿剩余的东西写入留言簿LineInput#2，tempstringPrint#1，tempstringLoopWhileNotEOF（2）Close#1Close#2Killguestbook删除旧的留言簿NametempFileNameAsguestbook将临时文件改成新的留言簿OutPut非常感谢您的留言！&chinesetailOutPut欢迎您经常光顾本主页！&chinesetailOutPutEndSubSubOutPut（sAsString）本子程序用于向标准输出写信息DimlBytesWrittenAsLongs=s&vbCrLfWriteFilehStdOut，s，Len（s），lBytesWritten，ByVal0&EndSubPublicFunctionGetCgiValue（cgiNameAsString）AsString本子程序可以获取表单上某一元素的数据Dimdelim2AsLongpositionof=Dimdelim1AsLongpositionof&DimnAsIntegerDimpointer1AsLong，pointer2AsLong，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=0Thenlength1=lContentLength+1-pointer2Iftmpstring1=cgiNameThentmpstring2=Mid$（sFormData，pointer2，length1）GetCgiValue=UrlDecode（tmpstring2）ExitDoEndIfIfdelim1=0ThenExitDoEndIfdelim2=InStr（pointer2，sFormData，=）pointer2=delim2+1LoopEndFunctionPublicFunctionUrlDecode（ByValsEncodedAsString）AsString本函数可以对用户输入的数据进行URL解码DimpointerAsLongsEncodedpositionpointerDimposAsLongpositionofInStrtargetDimtempAsStringIfsEncoded=ThenExitFunctionpointer=1Do本循环体用于将“+”转换成空格pos=InStr（pointer，sEncoded，+）Ifpos=0ThenExitDoMid$（sEncoded，pos，1）=pointer=pos+1Looppointer=1Do本循环体用于将%XX转换成字符。对于两个连续的%XX，如果第一个%XX不是某些特指的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$（sEncoded，pos+4，2）sEncoded=Left$（sEncoded，pos）&Mid$（sEncoded，pos+6）pointer=pos+1ElseMid$（sEncoded，pos，1）=tempsEncoded=Left$（sEncoded，pos）&Mid$（sEncoded，pos+3）pointer=pos+1EndIfLoopUrlDecode=sEncodedExitFunctionEndFunctionPublicFunctionTempFile（sPathAsString，sPrefixAsString）AsString本函