#!/usr/local/bin/perl asp
<%
if(! $ENV{MOD_PERL}) {
print "ERROR: \$Response->ErrorDocument() が、CGI モードでは実装されていません。\n";
$Response->End;
}
%>
<%
my $file = DemoASP->new->{file};
$Response->Status('404');
$Response->ErrorDocument('404', <
通例的な 404 番エラー
これは、404 番エラーを返す通例の応答で、
このスクリプトが、
\$Response->ErrorDocument(\$error_code, \$uri) メソッドを利用し
生成したものです。
ファイルのソースを見る