首页 > > 程序设计 > VB >

用VB编写标准CGI程序（下）

2008-02-23 06:57:02来源：互联网阅读 ()

三　CGI编程实例

　　本节将用VB编写一个处理主页客户留言簿的CGI程序。除了要调用本文前面所介绍的Win32API函数外　程序中还调用了Win32API函数GetTempFileName()来获得一个唯一的临时文件名。程序中的函数UrlDecode()用来对客户端的输入进行URL译码。函数GetCgiValue()则用来分解字符串　根据表单元素的NAME属性获取其VALUE值　并调用UrlDecode()函数对其进行URL译码。

　　本程序要求在留言簿文件guests.html中使用一个定位串“<! ENDHEAD >”　将文件的开始部份和具体的客户留言部份分开。CGI程序将在“<! ENDHEAD >”所在的位置插入客户新的留言。guests.html应具有如下所示的样式　

　　 <html>

　　 <head><title>DHTML Zone </title></head>

　　 <body bgcolor="#FFFFFF" text="#00000" vlink="#990000" link="#333399">

　　 <! ENDHEAD >

　　 

　　 <P>……………………….

　　 

　　 </body></html>

　　这种样式将保证最后的留言出现在留言簿的最前面。如果要想使最后的留言出现在留言簿的最后面　则只　将留言簿文件中的定位字符串“<! ENDHEAD >”移到留言簿文件中客户留言部份和HTML文件结尾部份之间的位置就行了。整个程序的完整代码如下所示　

　　 'guestbook.bas

　　 Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long

　　 Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lPBuffer As Any,ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long

　　 Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long,ByVal lpBuffer As String, ByVal nNumberOfBytesToWrite As Long,lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long

　　 Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA"(ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

　　 Public Const STD_INPUT_HANDLE = -10&

　　 Public Const STD_OUTPUT_HANDLE = -11&

　　 Public Const FILE_BEGIN = 0&

　　 Public hStdIn As Long ' 标准输入文件句柄

　　 Public hStdOut As Long ' 标准输出文件句柄

　　 Public sFormData As String ' 用于存储没有经过URL译码的用户输入数据

　　 Public lContentLength As Long

　　 Public CGI_RequestMethod As String

　　 Sub Main()

　　 Dim CGI_ContentLength As String, CGI_QueryString As String, sBuff As String, chinesetail As String

　　 Dim lBytesRead As Long　 rc As Long　I As Long

　　 Dim sEmail As String, sName As String, sURL As String, sfrom As String, tempstring As String

　　 Dim sComment As String, tempFileName As String, guestbook As String

　　 'CGI程序的初始化工作

　　 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))

　　 OutPut "Content-type: text/html" & vbCrLf ' 输出MIME类型

　　 OutPut "<FONT SIZE="" 2"">"

　　 If CGI_RequestMethod = "POST" Then

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

　　 rc = ReadFile(hStdIn, ByVal sBuff, lContentLength, lBytesRead, ByVal 0&)

　　 sFormData = Left$(sBuff, lBytesRead)

　　 ElseIf CGI_RequestMethod = "GET" Then

　　 sFormData = CGI_QueryString

　　 Else

　　 OutPut "Unknow Form Method !"

　　 End If

　　 chinesetail = String(400, " ")

　　 '为了在页面上正确显示中文　生成一个空格串以获取客户端用户的输入

　　 sName = GetCgiValue("name")

　　 sEmail = GetCgiValue("email")

　　 sURL = GetCgiValue("URL")

　　 sfrom = GetCgiValue("from")

　　 sComment = GetCgiValue("URL_Comment")

　　 '对客户端用户的输入进行检查

　　 If Len(sName) = 0 Then

　　 OutPut "<P>非常抱歉　您还没有填写姓名　" & chinesetail

　　 Exit Sub

　　 End If

　　 If Len(sComment) = 0 Then

　　 OutPut "<P>非常抱歉　您还没有提出建议　" & chinesetail

　　 Exit Sub

　　 End If

　　 '获取唯一的临时文件名和留言簿文件并打开它们

　　 tempFileName = TempFile("c:\Windows\temp", "gbk")

　　 guestbook = "e:\netscape\server\docs\guests.html"

　　 Open tempFileName For Output As #1

　　 Open guestbook For Input As #2

　　 Do '本循环体用于将留言簿中字符串"<! ENDHEAD >"前面的内容写入临时文件

　　 Line Input #2, tempstring

　　 Print #1, tempstring

　　 Loop While tempstring <> "<! ENDHEAD >" And Not EOF(2)

　　 '向临时文件中插入客户端用户的留言

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有