*//ユニークなテンポラリファイル名を付ける 
TempDBF1=FUniq("_tmp????.dbf")  && お好みに合わせて(笑) 

*//テンプレートより、上記のテンポラリファイル名のdbfを作成 
Select WebTmp 
Copy Stru to &TempDBF1. 
Use in WebTmp 

*//テンポラリdbfをNosaveモードで開ける 
Use &TempDBF1. in Select() Alias ZAIKO Exclusive Nosave 

*(以下必要な処理をコーディング) 
*CGI終了後自動でテンポラリファイルは削除される。

Extern CLONG InternetGetConnectedState(CSTRING,CWORD);                                              "WININET.DLL"

State = space(1)
InternetGetConnectedState(STATE,0)
STATE_L = LEFT(ITOH(asc(STATE)),1)
STATE_R = RIGH(ITOH(asc(STATE)),1)

IF STATE_L=LEFT(INTERNET_CONNECTION_CONFIGURED,1)
   ? "インターネット接続環境なし！"
ELSE
   DO CASE
   CASE STATE_R=INTERNET_CONNECTION_MODEM
      ? "モデムで接続中"
   CASE STATE_R=INTERNET_CONNECTION_LAN
      ? "ＬＡＮで接続中"
   CASE STATE_R=INTERNET_CONNECTION_PROXY
      ? "プロキシ経由で接続中"
   OTHERWISE
      ? "現在接続されていません"
   ENDCASE
   *
   DO CASE 
   CASE STATE_L=LEFT(INTERNET_RAS_INSTALLED,1)
      ? "ダイヤルアップがインストールされています"
   CASE STATE_L=LEFT(INTERNET_CONNECTION_OFFLINE,1)
      ? "オフライン"
   OTHERWISE
      ? "オンライン"
   ENDCASE
ENDIF