ギャンブル・アダルト情報がここに集結!

PC、携帯の振り分け

CGIで振り分けるには、トップページをCGIで作成します。
Perlの例)index.cgi
-----以下プログラム
#!/usr/bin/perl
#Locationを使う設定
$loc=1
#機種ごとのURL設定
$do="DOCOMO_URL";
$au="au_URL";
$sb="SoftBank_URL";
$vo="Vodafone_URL";
$jp="J-PHONE_URL";
$ub="Up.Browser_URL";
$as="ASTEL_URL";
$dd="DDIPOCKET_URL";
$pc="PC_URL";
$_=$ENV{"HTTP_USER_AGENT"}
if (~/DoCoMo/i) {
$url = $do
if (~/KDDI/i) {
$url = $au
}elsif (~/SoftBank/i) {
$url = $sb
}elsif (~/vodafone/i) {
$url = $vo
}elsif (~/J-PHONE/i) {
$url = $jp
}elsif (~/Up\.Browser/i) {
$url = $ub
}elsif (~/ASTEL/i) {
$url = $as
}elsif (~/DDIPOCKET/i) {
$url = $dd
}else{
$url = $pc
}
if ($loc) {
print "Location: $URL\n\n";
}else{
print <<"_HTML_";
Content-type:text/html\n\n
<html>
<head><title>enter</title>
</head>
<body>
<center>$Title<br><br>
<a href=\"$url\">ENTER</a>
</center>
</body></html>
_HTML_
}
-----ここまで

サーバーのRewriteが使える場合
.htaccessを作成・編集しルートディレクトリーに置いて、携帯の場合は/k/index.htmlに転送します。
-----ここから設定
DirectoryIndex index.html
RewriteEngine On
RewriteCond %{HTTP_USER_AGENT} DoCoMo [OR]
RewriteCond %{HTTP_USER_AGENT} KDDI [OR]
RewriteCond %{HTTP_USER_AGENT} SoftBank [OR]
RewriteCond %{HTTP_USER_AGENT} vodafone [OR]
RewriteCond %{HTTP_USER_AGENT} J-PHONE [OR]
RewriteCond %{HTTP_USER_AGENT} Up\.Browser [OR]
RewriteCond %{HTTP_USER_AGENT} ASTEL [OR]
RewriteCond %{HTTP_USER_AGENT} DDIPOCKET
RewriteRule ^$ /k/index.html [L]

-----ここまで

どちらかの方法で
PC、携帯を振り分けます。