Windows WebSiteの、もうひとつのアプローチ
Apache＋VB

初音 玲　HATSUNE, Akira

Apache/1.3.9 (Win32) running...

APACHE.EXE: cannot determine local host name.
Use the ServerName directive to set it manually.

ServerName www.balthasal.nerv.go.jp

Apache -k shutdown

[Wed Mar 01 21:15:54 2000] [warn] pid file d:/apache/logs/httpd.pid overwritten
-- Unclean shutdown of previous Apache run?

Apache -k restart

• Global Environment
• 'Main' server configuration
• Virtual Hosts

<コンテナ指示子 指示対象>
    指示子 設定値
       :
</コンテナ指示子>

★ Global Environment

★ 'Main' server configuration

1. 1.【ServerName】
   サーバーの名前を指定する。
   
2. 2.【DocumentRoot】
   DocumentRoor指示子には、Webに公開するルートディレクトリの実フォルダ位置を指定する。デフォルトでは、インストールフォルダ配下のhtdocsフォルダが指定されている。他のフォルダを指定したいときは、設定値として、たとえば、
   
   

   DocumentRoot "d:/data/www/pub/htdocs"
   

   のように、そのフォルダを絶対パスで指定する。なお、フォルダを指定するときの区切り記号は、“\”ではなく、UNIXと同じように“／”だ。
   
3. 【Directoryコンテナ指示子】
   Directoryコンテナ指示子は、指定したディレクトリおよびその配下のサブディレクトリすべてに対する設定を記述する。DocumentRoot指示子の設定値を変更したときは、そのディレクトリを対象としたDirectoryコンテナ指示子の指示対象部分の記述を変更する。ディレクトリの指定には、実フォルダを絶対パスで指定することもできるし、Webルートディレクトリからの絶対パスも指定することができるので、Global Environmentセクションには、
   
   

   <Directory />
      :
   </Directory>
   
   <Directory "D:\Apache\htdocs">
      :
   </Directory>
   

   の2つのDocumentRootに対応するコンテナ指示子がある。このように同じ対象を指定した設定が複数ある場合、後ろに記述された指示子で設定が行なわれる（サーバー指示子が省略されているときは、すでに指定されている設定値を継承する）。よって、Directoryコンテナ指示子のようにサブフォルダも含むようなものの場合は、サブフォルダへの個別設定は、その上位フォルダの設定よりも後ろに記述しないと有効にならない。
   
4. 【Options指示子】
   ASPにおける実行権のようなものを指定できる。このOptions指示子により、CGIが実行できるディレクトリを限定する。これは悪意のあるCGIプログラムのアップロードと実行の影響範囲を限定するためだ。代表的なオプションは表1の通り。セキュリティを考慮すると“／（Webルートディレクトリ）”には、
   
   

   Options None
   

   を指定して、CGIディレクトリのみ、
   
   

   Options ExecCGI
   

   と指定するのがいいだろう。
   
   表1：Options指示子の設定値
   

   オプション	備考
   None	すべてのオプションを無効にする
   All	すべてのオプションを有効にする
   Indexes	ディレクトリリストをクライアント側に送信する
   Includes	サーバー側インクルードを有効にする
   IncludesNOEXEC	#execと#include以外のサーバー側インクルードのみ有効にする
   ExecCGI	CGIスクリプトの実行を有効にする

   
   
5. 【AllowOverride指示子】
   Apacheは設定ファイルだけではなく、「.htAccess」ファイルを作成し、それを配置することにより、その配置先のディレクトリの設定を変更可能だ。これは、個人用Webディレクトリの設定をその利用者に変更可能とするようなときに便利だ。AllowOverride指示子は、「.htAccess」ファイルにより、どのような指示子を変更可能（オーバーライド）させるかを指定する（表2）。
   
   表2：AllowOverride指示子の設定値
   

   設定値	備考
   None	.htAccessによる設定を無視する
   All	.htAccessの設定をすべて有効にする
   AuthConfig	.htAccessの認証指示子を有効にする
   FileInfo	.htAccessのドキュメントの種類を管理する指示子を有効にする
   Indexes	.htAccessのインデックス表示指示子を有効にする
   Limit	.htAccessのアクセス管理指示子を有効にする
   Options	.htAccessのOptions指示子を有効にする

   
   
6. 【アクセス管理指示子】
   ディレクトリに対するアクセス制限を指定することができる。これは、認証とは別に、ホスト名やIPアドレスを限定して公開・非公開を制限するときに使う。たとえば、
   
   

   Allow from .hogehoge.co.jp
   

   のように指定すれば、hogehoge.co.jp内のマシンからのアクセスだけを許可する事ができる。支店からのみアクセス可能なディレクトリを作るようなときには、支店をfk.hogehoge.co.jpやos.hogehoge.co.jpのようにサブドメインにまとめておけば、Allow指示子ひとつでOKだ）。逆に、
   
   

   Deny from hogehoge.co.jp
   

   とすれば、特定の会社からのアクセスを拒否することもできる。ところで、
   
   

   Allow from hogehoge.co.jp
   Deny from All
   

   のように矛盾した記述はどう扱われるのだろうか。これは、Apacheの設定ファイルの評価基準に従えば、Allowを評価してからDenyを評価することになり、どこからもアクセスを拒否することになる。このようにAllowとDenyの順番は密接に結びついているので、特別にOrder指示子が存在する。
   
   

   Order Deny,Allow
   

   と指定しておけば、Deny→Allowの順に評価され、hogehoge.co.jp以外からのアクセスを禁止することができる。
   
7. 【UserDir指示子】
   UserDir指示子は、個人用Webディレクトリを指定する指示子だ。たとえば、
   
   

   UserDir "D:/Apache/user/
   

   と指定しておけば、
   
   

   http://localhost/~mypage/
   

   のように入力したとき、Apacheは、
   
   

   D:\Apache\user\mypage\index.html
   

   のファイルをWebブラウザに返却する（図6）。
   
   図6：UserDir指示子の効能
   
   
   
8. 【DirectoryIndex指示子】
   URLでディレクトリ名を指定したときにWebブラウザに返却するファイル名を指定する。通常、index.htmlを指定する。
   
9. 【AccessFileName指示子】
   アクセス制限ファイルの名前を指定する。通常は、.htaccessだ。
   
10. 【Filesコンテナ指示子】
    Filesコンテナ指示子は、特定のファイルに対するアクセス制限を指定する。アクセス制限の方法は、Directoryコンテナ指示子で指定できるアクセス管理指示子を使う。たとえば、.htaccessへのアクセスを制限するには、
    
    

    <Files .htaccess>
        Order Allow,Deny
        Deny from All
    </Files>
    

    と指定する。もちろんこのように指定してもApache自体はこの.htaccessの設定を使う事ができる。
    
11. 【ErrorLog指示子】
    エラーログファイルの格納場所を指定する。
    
12. 【Alias指示子】
    ルートディレクトリとCGIディレクトリ以外のWebディレクトリを実フォルダにマッピングする。
    
13. 【ScriptAlias指示子】
    CGIプログラムが格納されている実フォルダをWebディレクトリにマッピングする。
    

★ Virtual Hosts

NameVirtualHost IPアドレス:ポート番号

<VirtualHost IPアドレス:ポート番号>
    ServerName   www.hogehoge.co.jp
    ServerAdmin  webmaster@hogehoge.co.jp
    DocumentRoot /www/hogehoge/public/htdocs
</VirtualHost>

1. 名前ベース
2. IPベース
3. ポート番号

NameVirtualHost ＩＰアドレス:ポート番号

<VirtualHost ＩＰアドレス:ポート番号>
  ServerName   www.shoeisha.co.jp
  ServerAdmin  webmaster@shoeisha.co.jp
  DocumentRoot /www/shoeisha/public/htdocs
</VirtualHost>

<VirtualHost ＩＰアドレス:ポート番号>
  ServerName   www.hogehoge.co.jp
  ServerAdmin  webmaster@hogehoge.co.jp
  DocumentRoot /www/hogehoge/public/htdocs
</VirtualHost>

★ Windows版の注意点

ResourceConfig nul
AccessConfig   nul

ResourceConfig conf/null.conf
AccessConfig   conf/null.conf

1. Apacheで標準EXEの実行を設定
   　Apache for WindowsでVBの標準EXEを実行するには、CGIの設定を行なえばよい。そのためには、httpd.confファイルの中で、
   
   

   ScriptAlias /cgi-bin/ "D:/Apache/cgi-bin/"
   
   <Directory "D:/Apache/cgi-bin">
     AllowOverride None
     Options ExecCGI
   </Directory>
   

   のようにCGIディレクトリを指定する。これで、あとはCGIディレクトリに標準EXEをコピーすればCGIとして実行される。もちろん、httpd.confファイルを変更したら、Apacheの再起動を行なうことを忘れてはいけない。
   
2. CGI規約で標準EXEをコーディング
   　CGIの入出力は、標準入出力を使うが、Visual Basicは、標準入出力をサポートしていない。そこで、Windows APIを使って、標準入出力を実現する（リスト4）。
   
   リスト4：サンプルCGI（cgi.bas）
   

   Option Explicit Declare Function GetStdHandle Lib "kernel32" _ (ByVal nStdHandle As Long) As Long Declare Function WriteFile Lib "kernel32" _ (ByVal hFile As Long, _ lpBuffer As Any, _ ByVal nNumberOfBytesToWrite As Long, _ lpNumberOfBytesWritten As Long, _ ByVal lpOverlapped 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 Public Const STD_INPUT_HANDLE As Long = -10& Public Const STD_OUTPUT_HANDLE As Long = -11& Public Const STD_ERROR_HANDLE As Long = -12& Private Sub Main() On Error GoTo errMain: ' printf "HTTP/1.1 200 OK" & vbCrLf ' 応答コード部 printf "Content-type: text/html" & vbCrLf & vbCrLf ' ヘッダ部 printf "" & vbCrLf printf "" & vbCrLf printf "こんにちは、世界!" & vbCrLf exitMain: On Error Resume Next printf "" & vbCrLf Exit Sub errMain: printf Error$ Resume exitMain: End Sub Private Sub printf(ByVal strBuffer As String) Dim abytBuffer() As Byte Dim lngOutLen As Long Dim lngBytes As Long Dim lngRet As Long Dim hStdOut As Long ' VBの内部コードであるUnicodeからSJISに変換してそれをバイナリとして扱う abytBuffer = StrConv(strBuffer, vbFromUnicode) ' バイト配列の大きさ（いわゆる文字列長）を求める lngOutLen = UBound(abytBuffer) - LBound(abytBuffer) + 1 ' 標準出力ハンドルを取得する hStdOut = GetStdHandle(STD_OUTPUT_HANDLE) ' 標準出力先へSJISコードのまま出力する lngRet = WriteFile(hStdOut, _ abytBuffer(0), _ lngOutLen, _ lngBytes, _ 0&) End Sub

   
   　このとき、Visual Basicの内部コードであるUNICODEをそのまま標準出力に渡してはいけない。必ずシフトJIS（SJIS）コードに変換する。このとき、必ずバイト型変数に文字列を格納して、UNICODE⇔SJISの自動変換が発生しないようにする。
   　なお、リスト4は、標準EXEが作成できるEditionであれば、Visual Basic 4.0（32bit）以降のどのバージョンでもコーディング可能だ。
   　この2つのステップをクリアしていれば、Webブラウザからcgi.exeを指定することができる（図8）。
   
   図8：Apache→VBの標準EXE-CGI
   
   
   　このときのCGIとのやりとりは、httpd.confファイルのScriptLog指示子を指定すれば取得することができる（リスト5）。
   
   リスト5：ScriptLog指示子でブラウザから起動するcgi.exeを指定する
   

   %% [Sun Mar 05 19:55:34 2000] GET /cgi-bin/cgi.exe HTTP/1.1 %% 500 d:/apache/cgi-bin/cgi.exe %request Accept: */* Accept-Encoding: gzip, deflate Accept-Language: ja Connection: Keep-Alive Host: localhost User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt) %response HTTP/1.1 200 OK %stdout Content-type: text/html <HTML> <HEAD><TITLE>Hello, World!</TITLE></HEAD> <BODY>こんにちは、世界!</BODY> </HTML>

   
   ScriptLog指示子の指定方法は、
   
   

   ScriptLog "D:/Apache/log/cgi.log"
   

   だ。もちろん、指定後にはApacheの再起動が必要だ。
   

★ 環境変数を参照する

★ 標準入力から入力する

<html>
<head><title>StdIn Test Driver</title></head>
<body>
<FORM METHOD="POST" ACTION="/cgi-bin/CGIStdIn.exe">
<table>
<tr>
	<td>UserID:</td>
	<td><INPUT NAME="strUID" SIZE=8 MAXLENGTH=8 value="scott"><br></td>
</tr>
<tr>
	<td>Password:</td>
	<td><INPUT NAME="strPass" TYPE="PASSWORD" SIZE=8 MAXLENGTH=8 value="tiger"><br></td>
</tr>
<tr>
	<td>Database:</td>
	<td><INPUT NAME="strHost" SIZE=8 MAXLENGTH=8 value="kawa8"><br></td>
</tr>
<tr>
	<td>SQL:</td>
	<td><TEXTAREA NAME="strSQL" cols=80>SELECT * FROM EMP ORDER BY EMPNO</TEXTAREA><br></td>
</tr>
</table>
<INPUT TYPE="SUBMIT" VALUE="検索">
</form>
</body>
</html>

Declare Function ReadFile Lib "kernel32" _
                (ByVal hFile As Long, _
                 lpBuffer As Any, _
                 ByVal nNumberOfBytesToRead As Long, _
                 lpNumberOfBytesRead As Long, _
                 lpOverlapped As Any) As Long
Public Const STD_INPUT_HANDLE As Long = -10&

Private Function getchar() As String
  Dim abytBuffer()       As Byte
  Dim lngInLen           As Long
  Dim lngBytes           As Long
  Dim hStdIn             As Long
  Dim lngRet             As Long
  Dim strBuffer          As String

  On Error GoTo errChar:

  lngInLen = Environ("CONTENT_LENGTH")
  If lngInLen > 0 Then
    ReDim abytBuffer(lngInLen)
    strBuffer = String(lngInLen, Chr$(0))
    hStdIn = GetStdHandle(STD_INPUT_HANDLE)
    lngRet = ReadFile(hStdIn, _
                      ByVal strBuffer, _
                      lngInLen, _
                      lngBytes, _
                      ByVal 0&)
    getchar = Left$(strBuffer, lngBytes)
  Else
      getchar = ""
  End If

exitChar:
  On Error Resume Next
  Exit Function

errChar:
  printf Error$ & vbCrLf
  Resume exitChar:
  Resume Next
End Function

Private Function strURLDecode(ByVal rstrPost As String) As String
  Dim intindex    As Integer
  Dim intPos      As Integer
  Dim strAsc      As String

' 8bit Decode
  intindex = 1
  strURLDecode = ""
  intPos = InStr(rstrPost, "%")
  Do While intPos > 0
    If intPos > 1 Then
      strURLDecode = strURLDecode & Mid$(rstrPost, _
                                         intindex, _
                                         intPos - 1)
      intindex = intindex + intPos
    Else
        intindex = intindex + 1
    End If
    strAsc = StrConv(Mid$(rstrPost, intindex, 2), _
                     vbUpperCase)
    intindex = intindex + 2
    If strAsc > "7F" Then
    ' 漢字項目なので
      If Mid$(rstrPost, intindex, 1) = "%" Then
        strAsc = Chr(CInt("&H" & strAsc _
                          & Mid$(rstrPost, _
                                 intindex + 1, 2)))
        intindex = intindex + 3
      Else
        strAsc = Chr$(CInt("&H" & strAsc & _
                           Hex(Asc(Mid$(rstrPost, _
                                        intindex, 1)))))
        intindex = intindex + 1
      End If
    Else
      strAsc = Chr$(CInt("&H" & strAsc))
    End If
    strURLDecode = strURLDecode & strAsc
    intPos = InStr(Mid$(rstrPost, intindex), "%")
  Loop
  strURLDecode = strURLDecode & Mid$(rstrPost, _
                                     intindex)
' + Decode
  strAsc = strURLDecode
#If VB6 Then
  strURLDecode = Replace(strAsc, "+", " ", _
                         1, -1, vbTextCompare)
#Else
  intPos = InStr(strAsc, "+")
  Do While intPos > 0
    Mid$(strAsc, intPos, 1) = " "
    intPos = InStr(strAsc, "+")
  Loop
  strURLDecode = strAsc
#End If
End Function

1. StdIn.htmlファイルをWebルートディレクトリにコピー
   
2. CGIStdIn.exeを/cgi-binディレクトリにコピー
   
3. StdIn.htmlをURLに指定して、Webブラウザから呼び出す（図10）
   
   図10：<Form>タグを使ったページ
   
   
   
4. ［検索］ボタンをクリックして、CGIを起動（図11）
   
   図11：標準入力を利用する
   
   
   

1. ActExe.htmlファイルをWebルートディレクトリにコピー
   
2. CGIEXE.exeを/cgi-binディレクトリにコピー
   
3. ActExe.htmlをURLに指定して、Webブラウザから呼び出す（図13）
   
   図13：標準入力を利用する
   
   
   
4. ［検索］ボタンをクリックして、CGIを起動（図14）
   
   図14：標準入力を利用する
   
   
   （注意）ActiveX EXEはレジストリに登録する必要がある。一度でもVbpファイルを開き［開始］すれば自動的に登録が完了する。もしくは、一度だけActiveX EXEを/regserverパラメータ付きで起動すればよい。レジストリの登録を抹消したいときは、ActiveX EXEを削除や移動する前に/unregserverパラメータ付きで起動すればよい。

★ インスタンシングの設定について

1. オブジェクトごとのスレッド
2. スレッドプール1スレッド
3. スレッドプールｎスレッド

■【動作確認環境】
ThinkPad 240 2609-31J
  Windows 98 SE  4.10.2222A
  IE5 5.00.2614.3500
  Office 2000 Developer
  Visual Basic 6.0 (SP3)

Copyright (c) 1998 int21 CorporationAll Rights Reserved.
For questions or comments, please send mail to: pcdn@int21.co.jp