teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]

 投稿者
  題名
  内容 入力補助画像・ファイル<IMG> youtubeの<IFRAME>タグが利用可能です。(詳細)
    
 URL
[ ケータイで使う ] [ BBSティッカー ] [ 書込み通知 ] [ 検索 ]


テスト?w

 投稿者:臨音  投稿日:2010年 8月19日(木)15時09分52秒
返信・引用
  テストw  
 

テスト@スルー

 投稿者:臨音  投稿日:2010年 8月18日(水)10時40分35秒
返信・引用
  # -------------------------------------------------------------
#. 入室画面

sub first{
&setcookie if($nofent eq "on");
&getcookie if($hua !~ /Mozilla\/1/i);
if($saycolor_check){ $rows1 = 6; $rows2 = 2; }
else{ $rows1 = 5; $rows2 = 1; }
if($nofent eq "on"){
$target = '_parent';
$nofent_title = " -ノーフレーム入室画面-";
}
else{
$target = '_self';
}
$xrom_flag = '&xrom_flag=on' if($xrom);
$changetitle = " [設定変更モード]" if($change eq "on");
&http_header;
&css;
local $fullicon = "on";
&iconinit;
print <<"EOF";
<script Language="JavaScript">
<!--
function chaImgIenn5(foName,elName,imgName) {
if (document.images) {
var p=document.forms[foName].elements[elName];
var v=p.options[p.selectedIndex].value;
if (v!="defult") {
var img=new Image();
img.src=v;
document.images[imgName].src=img.src;
}
}
}
//-->
</script>
EOF
print qq(</head>\n);
print qq($body><table border="0" cellpadding="1" cellspacing="1" width="100%"><tr><td>$logo$changetitle$nofent_title</td>);
&icq if($icq_uin);
print yahoo_im() if $cs_y_id;
print qq(</tr></table><hr size="1"><table border="0" cellpadding="2" cellspacing="2">\n);
print qq(<form method="$method" name="ent" action="$script" target="$target"><input type="hidden" name="enter" value="on">\n);
print qq(<input type="hidden" name="high" value=""><input type="hidden" name="auto" value="on">\n);
print qq(<input type="hidden" name="nof" value="on">\n) if($nofent eq "on");
print qq(<input type="hidden" name="change" value="on">\n) if($change eq "on");
print qq(<tr><td width="$MaxTbWidth" rowspan="$rows1" align="center" valign="top" nowrap>\n);
print qq(<table width="$MaxTbWidth" height="$MaxTbHeight" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FF66FF">\n);
print qq(<tr><td width="$MaxPicWidth" height="$MaxPicHeight" align="center" valign="middle" bgcolor="$bgcolor2">\n);
print qq(</td></tr></table></td>\n);
print qq(<th nowrap>名前</th><td nowrap><input type="text" name="name" size="20" maxlength="30" value="$name" class="i_text"></td>\n);
&win;
if($change eq "on"){ $eb = "変更"; }
else{ $eb = "入室"; }
if(!$chktext || ($change eq "on")){ $col = "colspan=\"2\""; }
print <<"EOF";
<th nowrap align="left"><input type="submit" value="   $eb   " class="bttn"></th></tr><tr><th nowrap>Mail\/URL</th>
<td nowrap><input type="text" name="email" size="20" value="$email" class="i_text"></td><th nowrap>リロード</th>
<td $col nowrap><select name="reload" size="1" class="i_text"><option value="$reload">$reload<option value="0">off
<option>10<option>15<option>20<option>30<option>60</select>秒</td>
EOF
if (!$col) {
print qq(<th noweap><input type="text" name="chkspam" size="18" maxlength="6" value="$keytxt" class="i_text"> $chktext と入力してください(SPAM防止用合言葉です)</th>);
}
print qq(</tr>\n<tr><th nowrap>アイコン[見本]</th>\n);
if ($senyou) {
print qq(<td nowrap><select name="icon" size="1" class="i_text" onChange='chaImgIenn5("ent","icon","imgIenn5")'>$facemark</select></td>\n);
print qq(<th nowrap>専用パス</th><td colspan="2" nowrap><input type="password" name="iconpass" size="10" maxlength="8" value="$iconpass" class="i_text"></td></tr>);
} else {
print qq(<td colspan="4" nowrap><select name="icon" size="1" class="i_text" onChange='chaImgIenn5("ent","icon","imgIenn5")'>$facemark</select></td>\n);
}
print qq(<tr><td nowrap rowspan="$rows2">名前色

[色見本]</td>\n);
print qq(<td nowrap rowspan="$rows2"><select name="n_color" size="1" class="i_text"><option value="$n_color">$n_color\n);
&color_list;
print qq($colorlist</select>
任意指定 <input type="text" name="n_color2" size="8" value="$n_color2" class="i_text" style="ime-mode:inactive"></td>\n);
if($saycolor_check){
$s_color = '' if($s_color eq $text2);
print qq(<th nowrap>文字色</th><td nowrap colspan="2"><input type="text" name="s_color" size="8" value="$s_color" class="i_text" style="ime-mode:inactive">);
print qq(<input type="checkbox" name="ncsame" value="on"$ncsame_ch>名前と同色</td></tr>\n<tr>);
}
if($change eq "on"){
print qq(<th rowspan="$rows2" colspan="3"> </th>\n);
}
else{
print qq(<th nowrap>挨拶</th><td colspan="2" nowrap><input type="text" name="greet" size="20" maxlength="45" class="i_text">);
print qq(
<input type="checkbox" name="kosr" value="on">こっそり入室(成功率$kossori\%)) if($kossori);
print qq(</td>\n);
}
print <<"EOF";
</tr><tr>
<td colspan="6"><input type="checkbox" name="cookie" value="on" checked> 設定を保存</td></form></tr></table>

EOF
if(!(($nofent eq "on") || ($change eq "on"))){
if($ctch){
&counter;
print qq($count
\n);
}
}
print qq([);
print qq(管理用) if($nofent ne "on");
print qq( | ランキング) if $cs_use_ranking;
print qq( | ノーフレーム) if(!(($change eq "on") || ($nofent eq "on")));
print qq( | BBS) if($bbs);
print qq( | HOME) if($home && ($change ne "on"));
print qq(]

※メールアドレス欄に文章等を表\示させたい場合は「@.」(半角)を入れてください。

\n);
print qq(</body></html>\n);
print "$endhtml" if($nof ne "on");
}

sub win{
print <<"EOF";
<th nowrap>ログ</th><td nowrap><select name="window" size="1" class="i_text"><option value="$window">$window
<option>10<option>20<option>30<option>40<option>50</select>行</td>
EOF
}
 

teacup.掲示板 START!

 投稿者:teacup.運営  投稿日:2010年 7月28日(水)15時38分30秒
返信・引用
  掲示板が完成しました!
掲示板のデザイン変更や記事の削除などは管理者メニュー(管理画面)から行えます。
また、ケータイでは50種類以上のデザインテンプレートが選べますので、ぜひケータイからのご利用もお試しください。(※ケータイ版も同じURLでご利用になれます!)

teacup.の掲示板はお一人様いくつでもご利用になれますので、用途に合わせて掲示板を作成して下さい。※この記事を削除してご利用下さい。
【記事の削除方法】
・掲示板下部の管理者メニュー(管理画面)からログイン
・左メニューより「投稿の管理」をクリック
・削除したい記事にチェックを入れ「削除」をクリック

http://www.teacup.com/

 

レンタル掲示板
/1