cgi4env.bas

来自「加入一个用VB编写CGI的VB源程序。（你需要在Win98上首先安装20Pers」· BAS 代码 · 共 32 行

Attribute VB_Name = "cgi4env"
Option Explicit
'------------------------------------------------------------
' CGI4ENV Show all environment variables sent by a web server
' Author : Kevin O'Brien [[e-mail]]
'                        [[e-mail]]
' Requires CGI4VB.BAS
'------------------------------------------------------------

Sub Cgi_Main()
Dim x    As Integer
Dim sEnv As String 'environment variable

SendHeader "CGI4Env"
Send "<Center><H2>CGI4Env</H2></Center>"
x = 0

' Send actual environment variables
Send "<hr>"
Send "<H2>Environment variables sent by " & CGI_ServerSoftware & "</H2>"
Do
   x = x + 1
   sEnv = Environ(x)
   If sEnv = "" Then Exit Do
   Send sEnv & "<br>"
Loop
Send "<br>"
SendFooter
End Sub