sample.bas

加入一个用VB编写CGI的VB源程序。（你需要在Win98上首先安装20Personal WebServer

Attribute VB_Name = "Module1"
Option Explicit

Sub Cgi_Main()
'===========================================================
' Cgi_Main
' Sample user-defined module called from MAIN
' Put this subroutine (and any additional routines that you
' write) into a separate .BAS module
'===========================================================
' Send form values and environment variables to client
' Use the GetCgiValue function to get the value of a form field
'
Dim x As Long

SendHeader "CGI4VB Output"
Send "<Center><H1>CGI4VB Output</H1></Center>"
Send "<p>Information submitted by the form"
Send "<hr>"

' Send whatever was received
If CGI_QueryString > "" Then _
   Send "<b>Query String:</b> " & CGI_QueryString & "<br>"
If CGI_RequestMethod = "POST" Then _
   Send "<b>Posted Data:</b> " & sFormData & "<br>"
Send "<hr>"

If GetCgiValue("field2") = "On" Then
   DisplayTable
   Exit Sub
End If

' Send variables used in the form fields
Send "<H2>Form Values</H2>"
Send "<b>Field1</b><Font Color=""#FF0000""> " & GetCgiValue("field1") & " </Font> <br>"
Send "<b>Field2</b><Font Color=""#FF0000""> " & GetCgiValue("field2") & " </Font> <br>"
Send "<b>Field3</b><Font Color=""#FF0000""> " & GetCgiValue("field3") & " </Font> <br>"
Send "<hr>"

' Send pairs
Send "<H2>tPair()</H2>"
For x = 0 To UBound(tPair)
    Send Str$(x) & ": " & tPair(x).Name & "=" & tPair(x).Value & "<br>"
Next x
Send "<hr>"

' Send environment variables
Send "<H2>Standard Environment Variables</H2>"
Send "CGI_Accept = " & CGI_Accept & "<br>"
Send "CGI_AuthType = " & CGI_AuthType & "<br>"
Send "CGI_ContentLength = " & CGI_ContentLength & "<br>"
Send "CGI_ContentType = " & CGI_ContentType & "<br>"
Send "CGI_GatewayInterface = " & CGI_GatewayInterface & "<br>"
Send "CGI_PathInfo = " & CGI_PathInfo & "<br>"
Send "CGI_PathTranslated = " & CGI_PathTranslated & "<br>"
Send "CGI_QueryString = " & CGI_QueryString & "<br>"
Send "CGI_Referer = " & CGI_Referer & "<br>"
Send "CGI_RemoteAddr = " & CGI_RemoteAddr & "<br>"
Send "CGI_RemoteHost = " & CGI_RemoteHost & "<br>"
Send "CGI_RemoteIdent = " & CGI_RemoteIdent & "<br>"
Send "CGI_RemoteUser = " & CGI_RemoteUser & "<br>"
Send "CGI_RequestMethod = " & CGI_RequestMethod & "<br>"
Send "CGI_ScriptName = " & CGI_ScriptName & "<br>"
Send "CGI_ServerName = " & CGI_ServerName & "<br>"
Send "CGI_ServerProtocol = " & CGI_ServerProtocol & "<br>"
Send "CGI_ServerPort = " & CGI_ServerPort & "<br>"
Send "CGI_ServerSoftware = " & CGI_ServerSoftware & "<br>"
Send "CGI_UserAgent = " & CGI_UserAgent & "<br>"
 
Send "<br>"
SendFooter
End Sub

Sub DisplayTable()
Dim x As Long

' Send variables used in the form fields
Send "<Center>"
Send "<Table border><tr><th>Name<th>Value"
Send "<tr><td>Field1<td>" & GetCgiValue("field1")
Send "<tr><td>Field2<td>" & GetCgiValue("field2")
Send "<tr><td>Field3<td>" & GetCgiValue("field3")
Send "</Table>"

' Send pairs
Send "<br><br>"
Send "<Table border><tr><th colspan=""3"">tPair()"
Send "<tr><th>index<th>Name<th>Value</th>"
For x = 0 To UBound(tPair)
    Send "<tr><td>" & Str$(x) _
       & "<td>" & tPair(x).Name _
       & "<td>" & tPair(x).Value
Next x
Send "</table>"

' Send environment variables
Send "<br><br>"
Send "<Center>"
Send "<Table border><tr><th colspan=""2"">Standard Environment Variables"
Send "<tr><th>Environment Variable<th>Value"
Send "<tr><td>CGI_Accept<td>" & CGI_Accept
Send "<tr><td>CGI_AuthType<td>" & CGI_AuthType
Send "<tr><td>CGI_ContentLength<td>" & CGI_ContentLength
Send "<tr><td>CGI_ContentType<td>" & CGI_ContentType
Send "<tr><td>CGI_GatewayInterface<td>" & CGI_GatewayInterface
Send "<tr><td>CGI_PathInfo<td>" & CGI_PathInfo
Send "<tr><td>CGI_PathTranslated<td>" & CGI_PathTranslated
Send "<tr><td>CGI_QueryString<td>" & CGI_QueryString
Send "<tr><td>CGI_Referer<td>" & CGI_Referer
Send "<tr><td>CGI_RemoteAddr<td>" & CGI_RemoteAddr
Send "<tr><td>CGI_RemoteHost<td>" & CGI_RemoteHost
Send "<tr><td>CGI_RemoteIdent<td>" & CGI_RemoteIdent
Send "<tr><td>CGI_RemoteUser<td>" & CGI_RemoteUser
Send "<tr><td>CGI_RequestMethod<td>" & CGI_RequestMethod
Send "<tr><td>CGI_ScriptName<td>" & CGI_ScriptName
Send "<tr><td>CGI_ServerName<td>" & CGI_ServerName
Send "<tr><td>CGI_ServerProtocol<td>" & CGI_ServerProtocol
Send "<tr><td>CGI_ServerPort<td>" & CGI_ServerPort
Send "<tr><td>CGI_ServerSoftware<td>" & CGI_ServerSoftware
Send "<tr><td>CGI_UserAgent<td>" & CGI_UserAgent
Send "</table>"
Send "</Center>"

Send "<br>"
SendFooter

End Sub