トップ 履歴 一覧 カテゴリ ソース 検索 ヘルプ RSS ログイン

Script/RedirectJamp

INDEX

概要

ウェブページで別のページに飛ばす、リダイレクトの方法とそのときのリファラーの値。
No リダイレクト方法 IE 6.0 Fx 1.5
C0 HTTP Location ヘッダ LINK元 LINK元
C1 Aタグ リンククリック go.cgi go.cgi
C2 Metaタグ Refresh (none) (none)
C3 JavaScript location.href (none) go.cgi
C4 JavaScript location.assign() (none) go.cgi
C5 JavaScript location.replace() (none) go.cgi
C6 JS document.write() + Metaタグ (none) (none)
H1 HTML + JavaScript location (none) go.html
H2 HTML + JavaScript + Metaタグ (none) (none)

 infoseek isweb ライト の cgiの呼び出し制限

Referer に "infoseek.co.jp" が含まれている、もしくは、空でないと 403 Forbidden になる。(iswebライトのみ)

 BIGLOBE 個人ホームページ の cgiの呼び出し制限

HTTP Location ヘッダ

CGIでHTTPのLocationヘッダを出力して目的のページにリダイレクトします。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl
#####  Character-code is euc-jp. Tab-size is 4 space character.           #####
###############################################################################
## Redirect Jamp Script
###############################################################################
use strict; # restrict unsafe constructs
use warnings; # control optional warnings ( as /usr/bin/perl -w )

if( $ENV{'QUERY_STRING'} eq '' ){
    print "Content-type: text/plain\n\n";
    print "can't jump to page ....\n";
}else{
    my $jamp = $ENV{'QUERY_STRING'};
    $jamp =~ s/%3A/:/g;
    $jamp =~ s/%2E/\./g;
    $jamp =~ s/%2F/\//g;
    chomp($jamp);
    print "Location: ${jamp}\n\n";
}
###############################################################################
##    End Of File (go0.cgi)                                                  ##
###############################################################################

Aタグ リンククリック

CGIでAタグを出力して目的のページのリンクを表示します。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#!/usr/bin/perl
#####  Character-code is euc-jp. Tab-size is 4 space character.           #####
###############################################################################
## Redirect Jamp Script
###############################################################################
use strict; # restrict unsafe constructs
use warnings; # control optional warnings ( as /usr/bin/perl -w )

if( $ENV{'QUERY_STRING'} eq '' ){
    print "Content-type: text/plain\n\n";
    print "can't jump to page ....\n";
}else{
    my $jamp = $ENV{'QUERY_STRING'};
    $jamp =~ s/%3A/:/g;
    $jamp =~ s/%2E/\./g;
    $jamp =~ s/%2F/\//g;
    $jamp =~ tr/<//;
    $jamp =~ tr/>//;
    print "Content-type: text/html;\n\n";
    print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN'>";
    print "<html><head>";
    print "<meta http-equiv='Content-Type' content='text/html'>";
    print "<div style='text-align: center;'>Jamp to <a href='${jamp}'>${jamp}</a></div>";
    print "</body></html>";
}
###############################################################################
##    End Of File (go1.cgi)                                                  ##
###############################################################################

Metaタグ Refresh

CGIでMetaタグを出力してRefresh機能でリダイレクトします。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#!/usr/bin/perl
#####  Character-code is euc-jp. Tab-size is 4 space character.           #####
###############################################################################
## Redirect Jamp Script
###############################################################################
use strict; # restrict unsafe constructs
use warnings; # control optional warnings ( as /usr/bin/perl -w )

if( $ENV{'QUERY_STRING'} eq '' ){
    print "Content-type: text/plain\n\n";
    print "can't jump to page ....\n";
}else{
    my $jamp = $ENV{'QUERY_STRING'};
    $jamp =~ s/%3A/:/g;
    $jamp =~ s/%2E/\./g;
    $jamp =~ s/%2F/\//g;
    $jamp =~ tr/<//;
    $jamp =~ tr/>//;
    print "Content-type: text/html;\n\n";
    print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN'>";
    print "<html><head>";
    print "<meta http-equiv='Content-Type' content='text/html'>";
    print "<meta http-equiv='Refresh' content='0; URL=${jamp}'>";
    print "<div style='text-align: center;'>Jamp to <a href='${jamp}'>${jamp}</a></div>";
    print "</body></html>";
}
###############################################################################
##    End Of File (go2.cgi)                                                  ##
###############################################################################

JavaScript location.href

CGIでJavaScriptを出力してlocation.hrefプロパティでリダイレクトします。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl
#####  Character-code is euc-jp. Tab-size is 4 space character.           #####
###############################################################################
## Redirect Jamp Script
###############################################################################
use strict; # restrict unsafe constructs
use warnings; # control optional warnings ( as /usr/bin/perl -w )

if( $ENV{'QUERY_STRING'} eq '' ){
    print "Content-type: text/plain\n\n";
    print "can't jump to page ....\n";
}else{
    my $jamp = $ENV{'QUERY_STRING'};
    $jamp =~ s/%3A/:/g;
    $jamp =~ s/%2E/\./g;
    $jamp =~ s/%2F/\//g;
    $jamp =~ tr/<//;
    $jamp =~ tr/>//;
    print "Content-type: text/html;\n\n";
    print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN'>";
    print "<html><head>";
    print "<meta http-equiv='Content-Type' content='text/html'>";
    print "<meta http-equiv='Content-Script-Type' content='text/javascript'>";
    print "<script language='JavaScript'><!--\n";
    print "location.href='${jamp}';";
    print "\n//--></script>";
    print "<div style='text-align: center;'>Jamp to <a href='${jamp}'>${jamp}</a></div>";
    print "</body></html>";
}
###############################################################################
##    End Of File (go3.cgi)                                                  ##
###############################################################################

JavaScript location.assign

CGIでJavaScriptを出力してlocation.assign()メソッドでリダイレクトします。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl
#####  Character-code is euc-jp. Tab-size is 4 space character.           #####
###############################################################################
## Redirect Jamp Script
###############################################################################
use strict; # restrict unsafe constructs
use warnings; # control optional warnings ( as /usr/bin/perl -w )

if( $ENV{'QUERY_STRING'} eq '' ){
    print "Content-type: text/plain\n\n";
    print "can't jump to page ....\n";
}else{
    my $jamp = $ENV{'QUERY_STRING'};
    $jamp =~ s/%3A/:/g;
    $jamp =~ s/%2E/\./g;
    $jamp =~ s/%2F/\//g;
    $jamp =~ tr/<//;
    $jamp =~ tr/>//;
    print "Content-type: text/html;\n\n";
    print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN'>";
    print "<html><head>";
    print "<meta http-equiv='Content-Type' content='text/html'>";
    print "<meta http-equiv='Content-Script-Type' content='text/javascript'>";
    print "<script language='JavaScript'><!--\n";
    print "location.assign('${jamp}');";
    print "\n//--></script>";
    print "<div style='text-align: center;'>Jamp to <a href='${jamp}'>${jamp}</a></div>";
    print "</body></html>";
}
###############################################################################
##    End Of File (go4.cgi)                                                  ##
###############################################################################

JavaScript location.replace

CGIでJavaScriptを出力してlocation.replace()メソッドでリダイレクトします。ブラウザの履歴エントリが置換されるため、「戻る」ボタン等で戻ることが出来なくなる。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl
#####  Character-code is euc-jp. Tab-size is 4 space character.           #####
###############################################################################
## Redirect Jamp Script
###############################################################################
use strict; # restrict unsafe constructs
use warnings; # control optional warnings ( as /usr/bin/perl -w )

if( $ENV{'QUERY_STRING'} eq '' ){
    print "Content-type: text/plain\n\n";
    print "can't jump to page ....\n";
}else{
    my $jamp = $ENV{'QUERY_STRING'};
    $jamp =~ s/%3A/:/g;
    $jamp =~ s/%2E/\./g;
    $jamp =~ s/%2F/\//g;
    $jamp =~ tr/<//;
    $jamp =~ tr/>//;
    print "Content-type: text/html;\n\n";
    print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN'>";
    print "<html><head>";
    print "<meta http-equiv='Content-Type' content='text/html'>";
    print "<meta http-equiv='Content-Script-Type' content='text/javascript'>";
    print "<script language='JavaScript'><!--\n";
    print "location.replace('${jamp}');";
    print "\n//--></script>";
    print "<div style='text-align: center;'>Jamp to <a href='${jamp}'>${jamp}</a></div>";
    print "</body></html>";
}
###############################################################################
##    End Of File (go5.cgi)                                                  ##
###############################################################################

JS document.write() + Metaタグ

document.write() で「Refresh機能でリダイレクトするMetaタグ」を出力するJavaScriptをCGIで作成する。

HTML + JavaScript location

document.location.search で指定したURLのサーチ部(?以降)を取得して、location.href プロパティでリダイレクトします。

1
2
3
4
5
6
7
8
9
10
11
12
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<HTML>
<HEAD>
<TITLE>page jump</TITLE>
<SCRIPT LANGUAGE="JavaScript">
var strRef=document.location.search;
var strUri=strRef.substr(1, strRef.length-1);
location.href=strUri;
</SCRIPT>
</HEAD>
<BODY>can't jump to page ....</BODY>
</HTML>

HTML + JavaScript + Metaタグ

document.location.search で指定したURLのサーチ部(?以降)を取得して、document.write で「Refresh機能でリダイレクトするMetaタグ」を出力してリダイレクトします。

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<HTML>
<HEAD>
<TITLE>page jump</TITLE>
<SCRIPT LANGUAGE="JavaScript">
var strRef=document.location.search;
var strUri=strRef.substr(1, strRef.length-1);
var strTag='<meta http-equiv="Refresh" content="0; URL=' + strUri + '">';
document.write(strTag);
</SCRIPT>
</HEAD>
<BODY>can't jump to page ....</BODY>
</HTML>

最終更新時間：2008年11月19日 21時51分00秒　指摘や意見などあればSandBoxのBBSへ。

ようこそ、ゲスト さん

メニュー

検索

キーワード

最新

2026/6/1

2026/5/23

2026/5/20

2026/5/19

2026/5/17

Copyright (C) 2002 たけ
Powered by FreeStyleWiki3.6.5 with Perl5.016003