#####################################################
#  LEO SuperCool BBS / LeoBBS X / 雷傲極酷超級論壇  #
#####################################################
# 基於山鷹(糊)、花無缺製作的 LB5000 XP 2.30 免費版  #
#   新版程式製作 & 版權所有: 雷傲科技 (C)(R)2004    #
#####################################################
#      主頁地址： http://www.LeoBBS.com/            #
#      論壇地址： http://bbs.LeoBBS.com/            #
#####################################################

    require "cleanolddata.pl";
    &cleanolddata2;
    $helpurl = &helpfiles("遺忘密碼");
    $helpurl = qq~$helpurl<img src=$imagesurl/images/$skin/help_b.gif border=0></span>~;

    if ("$userregistered" eq "no") {&error("修改資料&沒有此會員名稱！"); }
    if ("$inpassword" ne "$password") {&error("修改資料&論壇密碼錯$div_wrong！請重新登入後修改！"); }
    if (("$passwordverification" eq "yes") && ("$emailfunctions" ne "off")) {
	$newpassneeded = "<br><B>如果您修改了郵件地址，$div_one個新的論壇密碼將通過郵件發給您。</B>";
	undef $newpasswordaddon;
    }
    $newpasswordaddon = qq~
<tr><td bgcolor=$miscbackone width=40%><font color=$fontcolormisc><b>論壇密碼：</b> 請輸入修改論壇密碼，區分大小寫<br>只能使用大小寫字母和數字的組合,不得少於８位</td>
<td bgcolor=$miscbackone width=60%><input type=password name="newpassword1" maxlength=20> &#12288; $helpurl</td>
</tr><tr>
<td bgcolor=$miscbackone><font color=$fontcolormisc><b>論壇密碼： (至少8位)</b><br>再輸$div_one遍，以便確定！</td>
<td bgcolor=$miscbackone><input type=password name="newpassword2" maxlength=20> &#12288; $helpurl</td>
</tr><tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
<font color=$fonthighlight><b>如果你不想修改論壇密碼，請保持上面空白！</b></font></td></tr>
~;

    my $filetoopens = "$lbdir" . "data/onlinedata.cgi";
    $filetoopens = &lockfilename($filetoopens);
    if (!(-e "$filetoopens.lck")) {
        &whosonline("$inmembername\t個人資料\tnone\t修改<b>$inmembername</b>的個人資料\t");
    }

    if ($avatars eq "on") {
        if ($arrowavaupload eq "on") {
            $avaupload = qq~<br>上載頭像： <input type="file" size=20 name="addme">　上載自定義頭像。<br>~;
        }
        else { undef $avaupload; }

    open (FILE, "${lbdir}data/lbava.cgi");
    my @images = <FILE>;
    close (FILE);
    chomp @images;

    $selecthtml .= qq~<option value="noavatar" selected>不要頭像</option>\n~;
    $currentface = "noavatar";
    foreach (@images) {
	$totleavator=@images -1;
        $cleanavatar =  $_;
        $cleanavatar =~ s/\.(gif|jpg)$//i;
        if (($cleanavatar =~ /admin_/) && ($membercode eq "me")) { next; }
        if ($cleanavatar eq "$useravatar") {
	    $selecthtml .= qq~<option value="$cleanavatar" selected>$cleanavatar</option>\n~;
            $currentface = "$cleanavatar";
        }
        elsif (($cleanavatar eq "noavatar") && (!$useravatar)) {
        }
	else {
            $selecthtml .= qq~<option value="$cleanavatar">$cleanavatar</option>\n~;
        }
    }
	    
    $personalavatar =~ s/\$imagesurl/${imagesurl}/o;
    $avatarhtml = qq~
<script>
function showimage(){document.images.useravatars.src="$imagesurl/avatars/"+document.creator.useravatar.options[document.creator.useravatar.selectedIndex].value+".gif";}
</script>
<tr>
<td bgcolor=$miscbackone valign=top><font color=$fontcolormisc><b>個性圖片：</b><br>您可以選擇$div_one個個性圖片，當你發表時將顯示在您的名字下方。<BR>如果你填寫了下面的自定義頭像部分，那麼你的頭像以自定義的為準。否則，請你留空自定義頭像的所有欄目！<BR>
<br><b>關於自定義頭像</b>：<br>你也可以在這裡給出你自定義頭像的 URL 地址，頭像的高度和寬度(像素)。 如果不想要自定義頭像，請將相應欄目全部留空！<BR>如果不填寫頭像的高度和寬度，則系統將自動判斷並填入。<BR><BR>
<br><b>如果你不想要任何的頭像，那麼請首先在選單上選“noavatar”，然後留空所有自定義頭像的部分！</b><BR><br>
<BR>您也可以用虛擬形象功\能來打造豐富多彩的個人形象，<a href=face.cgi><font color=$fonthighlight>請按此進入</font></a>。<BR>
</td>
<td bgcolor=$miscbackone valign=top>總頭像個數： $totleavator 個。　<a href=viewavatars.cgi target=_blank><B>按此查看</B></a>所有頭像名稱名單。<BR>
<select name="useravatar" size=1 onChange="showimage()">
$selecthtml
</select>
<img src=$imagesurl/avatars/$currentface.gif name="useravatars" width=32 height=32 hspace=15><br><br><br>
$avaupload
<br>圖像位置： <input type="text" name="newpersonalavatar" size="26" value="$personalavatar">　輸入完整的 URL 路徑。<br>
<br>圖像寬度： <input type="text" name="newpersonalwidth" size="2" maxlength=3 value="$personalwidth">　必須是 20 -- $maxposticonwidth 之間的$div_one個整數。<br>
<br>圖像高度： <input type="text" name="newpersonalheight" size="2" maxlength=3 value="$personalheight">　必須是 20 -- $maxposticonheight 之間的$div_one個整數。<br></td>
</td></tr>
~;
    }
    $userflag = "blank" if ($userflag eq "");
    $flaghtml = qq~
<script language="javascript">
function showflag(){document.images.userflags.src="$imagesurl/flags/"+document.creator.userflag.options[document.creator.userflag.selectedIndex].value+".gif";}
</script>
<tr><td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>所在國家:</b><br>請選擇你所在的國家。</td>
<td bgcolor=$miscbackone>
<select name="userflag" size=1 onChange="showflag()">
<option value="blank">保密</option>
<option value='HongKong'>香港</option><option value='China'>中國</option>
<option value="Angola">安哥拉</option>
<option value="Antigua">安提升瓜</option>
<option value="Argentina">阿根廷</option>
<option value="Armenia">亞美尼亞</option>
<option value="Australia">澳大利亞</option>
<option value="Austria">奧地利</option>
<option value="Bahamas">巴哈馬</option>
<option value="Bahrain">巴林</option>
<option value="Bangladesh">孟加拉</option>
<option value="Barbados">巴巴多斯</option>
<option value="Belgium">比利時</option>
<option value="Bermuda">百慕大</option>
<option value="Bolivia">玻利維亞</option>
<option value="Brazil">巴西</option>
<option value="Brunei">文萊</option>
<option value="Canada">加拿大</option>
<option value="Chile">智利</option>
<option value="Colombia">哥倫比亞</option>
<option value="Croatia">克羅地亞</option>
<option value="Cuba">古巴</option>
<option value="Cyprus">塞浦路斯</option>
<option value="Czech_Republic">捷克</option>
<option value="Denmark">丹麥</option>
<option value="Dominican_Republic">多米尼加</option>
<option value="Ecuador">厄瓜多爾</option>
<option value="Egypt">埃及</option>
<option value="Estonia">愛沙尼亞</option>
<option value="Finland">芬蘭</option>
<option value="France">法國</option>
<option value="Germany">德國</option>
<option value="Great_Britain">英國</option>
<option value="Greece">希臘</option>
<option value="Guatemala">危地馬拉</option>
<option value="Honduras">洪都拉斯</option>
<option value="Hungary">匈牙利</option>
<option value="Iceland">冰島</option>
<option value="India">印度</option>
<option value="Indonesia">印度尼西亞</option>
<option value="Iran">伊朗</option>
<option value="Iraq">伊拉克</option>
<option value="Ireland">愛爾蘭</option>
<option value="Israel">以色列</option>
<option value="Italy">意大利</option>
<option value="Jamaica">牙買加</option>
<option value="Japan">日本</option>
<option value="Jordan">約旦</option>
<option value="Kazakstan">哈薩克</option>
<option value="Kenya">肯尼亞</option>
<option value="Kuwait">科威特</option>
<option value="Latvia">拉脫維亞</option>
<option value="Lebanon">黎巴嫩</option>
<option value="Lithuania">立陶宛</option>
<option value="Malaysia">馬來西亞</option>
<option value="Malawi">馬拉維</option>
<option value="Malta">馬耳他</option>
<option value="Mauritius">毛裡求斯</option>
<option value="Morocco">摩洛哥</option>
<option value="Mozambique">莫桑比克</option>
<option value="Netherlands">荷蘭</option>
<option value="New_Zealand">新西蘭</option>
<option value="Nicaragua">尼加拉瓜</option>
<option value="Nigeria">尼日利亞</option>
<option value="Norway">挪威</option>
<option value="Pakistan">巴基斯坦</option>
<option value="Panama">巴拿馬</option>
<option value="Paraguay">巴拉圭</option>
<option value="Peru">祕魯</option>
<option value="Poland">波蘭</option>
<option value="Portugal">葡萄牙</option>
<option value="Romania">羅馬尼亞</option>
<option value="Russia">俄羅斯</option>
<option value="Saudi_Arabia">沙特阿拉伯</option>
<option value="Singapore">新加坡</option>
<option value="Slovakia">斯洛伐克</option>
<option value="Slovenia">斯洛文尼亞</option>
<option value="Solomon_Islands">所羅門</option>
<option value="Somalia">索馬裡</option>
<option value="South_Africa">南非</option>
<option value="South_Korea">韓國</option>
<option value="Spain">西班牙</option>
<option value="Sri_Lanka">印度</option>
<option value="Surinam">甦裡南</option>
<option value="Sweden">瑞典</option>
<option value="Switzerland">瑞士</option>
<option value="Thailand">泰國</option>
<option value="Trinidad_Tobago">多巴哥</option>
<option value="Turkey">土耳其</option>
<option value="Ukraine">烏克蘭</option>
<option value="United_Arab_Emirates">阿拉伯聯合酋長國</option>
<option value="United_States">美國</option>
<option value="Uruguay">烏拉圭</option>
<option value="Venezuela">委內瑞拉</option>
<option value="Yugoslavia">南斯拉夫</option>
<option value="Zambia">贊比亞</option>
<option value="Zimbabwe">津巴布韋</option>
</select>
<img src="$imagesurl/flags/$userflag.gif" name="userflags" border=0 height=14 width=21>
</td></tr>
~;
    $flaghtml =~ s/value=\"$userflag\"/value=\"$userflag\" selected/;

    my ($getpassq, $getpassa) =split(/\|/,$userquestion); 
    $getpassFORM =qq~ 
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>論壇密碼提示問題：</b>用於取得忘記了的論壇密碼<br>最大 20 個字符（10個中文字）</td> 
<td bgcolor=$miscbackone><input type=text name="getpassq" value="$getpassq" size=20 maxlength=20></td> 
</tr> 
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>論壇密碼提示答案：</b>配合上欄使用<br>最大 20 個字符（10個中文字）</td> 
<td bgcolor=$miscbackone><input type=text name="getpassa" value="$getpassa" size=20 maxlength=20></td> 
</tr><tr> 
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center> 
<font color=$fonthighlight><b>論壇密碼提示問題和答案是不能夠修改的，請謹慎輸入！</b></font></td></tr>~ if(($userquestion eq "")||($userquestion eq "|"));

    $signature=$signatureorigin if ($signatureorigin);
    $signature="" if (($signatureorigin eq "")&&($signaturehtml eq ""));
    $signature =~ s/\[br\]/\n/isg;
    $signature =~ s/<br>/\n/isg;
    $signature =~ s/<p>/\n/isg;
    $signature =~ s/</&lt;/g;
    $signature =~ s/>/&gt;/g;
    $signature =~ s/\&amp;/\&/isg;
    $signature =~ s/&quot\;/\"/g;
    $signature =~ s/\&nbsp;/ /isg;
    $interests =~ s/<br>/\n/isg;
    $interests =~ s/<p>/\n/isg;
    $interests =~ s/\n+/\n/isg;

    $tempoutput = "<select name=\"newshowemail\">\n<option value=\"yes\">是\n<option value=\"msn\">MSN\n<option value=\"popo\">網易泡泡\n<option value=\"no\">否\n</select>\n";
    $tempoutput =~ s/value=\"$showemail\"/value=\"$showemail\" selected/;

    $output .= qq~
<script>
function chk(){
if(!document.creator.oldpassword.value){alert('為了安全，請輸入目前論壇的密碼。');document.creator.oldpassword.focus();return false;}
}
</script>
<tr><td bgcolor=$titlecolor $catbackpic valign=middle colspan=2 align=center>
<form action="$thisprog" method=post name="creator" enctype="multipart/form-data" onsubmit="return chk()">
<input type=hidden name="action" value="process">
<input type=hidden name="oldsex" value="$sex">
<input type=hidden name="membername" value="$inmembername">
<font color=$fontcolormisc>修改 <font color=$fonthighlight><b>$inmembername</b></font> 的個人資料</td></tr>
<tr><td bgcolor=$miscbacktwo width=40%><font color=$fonthighlight><b>目前論壇密碼：</b> <U>為了安全，請先輸入您目前的論壇密碼</U></td>
<td bgcolor=$miscbacktwo width=60%><input type=password name="oldpassword" maxlength=20>　<font color=$fonthighlight>*</td>
</tr>
<tr><td bgcolor=$miscbacktwo valign=middle colspan=2 align=center></td></tr>
$newpasswordaddon$getpassFORM
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>郵件地址：</b><br>請輸入有效的郵件地址，這將保證您在論壇中的私人資料。$newpassneeded</td>
<td bgcolor=$miscbackone><input type=text name="newemailaddress" value="$emailaddress"></td>
</tr><tr>
<td bgcolor=$miscbackone><font color=$fontcolormisc><b>顯示郵件地址</b><br>
您是否希望在您發表文章之後顯示您的郵件？</td>
<td bgcolor=$miscbackone><font color=$fontcolormisc>$tempoutput</font></td>
</tr>
~;

    $membertitle = "" if ($membertitle =~ m/^member$/i);
    if (($editusertitleself eq "post") && ($jifen >= $needpoststitle)) { $editusertitleself = "on"; }
    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>個人頭銜：</b><BR>最大 20 個字符（10個中文字）</td>
<td bgcolor=$miscbackone><input type=text name="newmembertitle" value="$membertitle" size=14 maxlength=20></td>
</tr>
~ if ($editusertitleself eq "on");

    if (($editjhmpself eq "post") && (($numberofposts + $numberofreplys) >= $needpostsjhmp)) { $editjhmpself = "on"; }
    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>江湖門派：</b><BR>最大 20 個字符（10個中文字）</td>
<td bgcolor=$miscbackone><input type=text name="newjhmp" value="$jhmp" size=14 maxlength=20></td>
</tr>
~ if ($editjhmpself eq "on");

    if ($editjhmpself eq "system") {
	my $jumpfile="$lbdir" . "data/jhmp.cgi";
	open(FILE,$jumpfile);
	my @JUMP=<FILE>;
	close(FILE);
	chomp @JUMP;
	if($membercode eq "ad" || $membercode eq "smo"){
	    @JUMP = grep(/^(.+?)\t[1|0]\t/,@JUMP);
	} else {
            @JUMP1 = grep(/^$jhmp\t0\t/,@JUMP);
	    @JUMP = grep(/^(.+?)\t1\t/,@JUMP);
	    push(@JUMP,@JUMP1);
	}
	push(@JUMP,"");
	my $JUMP=join("\n",@JUMP);
	my $temp_c=0;
	$JUMP=~s/(.+?)\t[1|0]\t(.*?)\t\n/
	my $temp=$1;
	my $temp1=$2;
	$temp=qq(<option value="$temp_c">$temp　　[創始人：$temp1]<\/option>);
	$temp_c++;
	$temp;
	/ge;
	$JUMP=qq(<option value="1000">無門無派</option>$JUMP);
	my $jhmp_c=quotemeta($jhmp);
	$JUMP=~s/<option value="([0-9]+)">$jhmp_c　　\[(.+?)\]<\/option>/<option value="$1" selected>$jhmp　　\[$2\]<\/option>/;
	$output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>江湖門派：</b><BR>請選擇$div_one個您喜歡的門派</td>
<td bgcolor=$miscbackone><select name="newjhmp">$JUMP</select></td>
</tr>
~;
    }

    $tempoutput = "<select name=\"newsex\" size=\"1\"><option value=\"no\">保密 </option><option value=\"m\">帥哥 </option><option value=\"f\">美女 </option></select>\n";
    $tempoutput =~ s/value=\"$sex\"/value=\"$sex\" selected/;

    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>性別：</b></td>
<td bgcolor=$miscbackone><font color=$fontcolormisc>$tempoutput</font></td>
</tr>
~;

    $tempoutput = "<select name=\"neweducation\" size=\"1\"><option value=\"保密\">保密 </option><option value=\"小學\">小學 </option><option value=\"初中\">初中 </option><option value=\"高中\">高中</option><option value=\"中專\">中專</option><option value=\"大專\">大專</option><option value=\"本科\">本科</option><option value=\"碩士\">碩士</option><option value=\"博士\">博士</option><option value=\"博士後\">博士後</option></select>\n";
    $tempoutput =~ s/value=\"$education\"/value=\"$education\" selected/;

    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>最高學歷：</b></td>
<td bgcolor=$miscbackone><font color=$fontcolormisc>$tempoutput</font></td>
</tr>
~;

    $tempoutput = "<select name=\"newmarry\" size=\"1\"><option value=\"保密\">保密 </option><option value=\"未婚\">未婚 </option><option value=\"已婚\">已婚 </option><option value=\"離婚\">離婚 </option><option value=\"喪偶\">喪偶 </option></select>\n";
    $tempoutput =~ s/value=\"$marry\"/value=\"$marry\" selected/;

    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>婚姻情況：</b></td>
<td bgcolor=$miscbackone><font color=$fontcolormisc>$tempoutput</font></td>
</tr>
~;

    $tempoutput = "<select name=\"newwork\" size=\"1\"><option value=\"保密\">保密 </option><option value=\"電腦$div_yip\">電腦$div_yip </option><option value=\"金融$div_yip\">金融$div_yip </option><option value=\"商$div_yip\">商$div_yip </option><option value=\"服務行$div_yip\">服務行$div_yip </option><option value=\"教育$div_yip\">教育$div_yip </option><option value=\"學生\">學生 </option><option value=\"工程師\">工程師 </option><option value=\"主管，經理\">主管，經理 </option><option value=\"政府部門\">政府部門 </option><option value=\"制造$div_yip\">制造$div_yip </option><option value=\"銷售/廣告/市場\">銷售/廣告/市場 </option><option value=\"失$div_yip中\">失$div_yip中 </option></select>\n";
    $tempoutput =~ s/value=\"$work\"/value=\"$work\" selected/;

    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>職$div_yip情況：</b></td>
<td bgcolor=$miscbackone><font color=$fontcolormisc>$tempoutput</font></td>
</tr>
~;

    ($year, $month, $day) = split(/\//, $born);
    $tempoutput1 = "<select name=\"newmonth\"><option value=\"\" selected></option><option value=\"01\">01</option><option value=\"02\">02</option><option value=\"03\">03</option><option value=\"04\">04</option><option value=\"05\">05</option><option value=\"06\">06</option><option value=\"07\">07</option><option value=\"08\">08</option><option value=\"09\">09</option><option value=\"10\">10</option><option value=\"11\">11</option><option value=\"12\">12</option></select>\n";
    $tempoutput1 =~ s/value=\"$month\"/value=\"$month\" selected/;

    $tempoutput2 = "<select name=\"newday\"><option value=\"\" selected></option><option value=\"01\">01</option><option value=\"02\">02</option><option value=\"03\">03</option><option value=\"04\">04</option><option value=\"05\">05</option><option value=\"06\">06</option><option value=\"07\">07</option><option value=\"08\">08</option><option value=\"09\">09</option><option value=\"10\">10</option><option value=\"11\">11</option><option value=\"12\">12</option><option value=\"13\">13</option><option value=\"14\">14</option><option value=\"15\">15</option><option value=\"16\">16</option><option value=\"17\">17</option><option value=\"18\">18</option><option value=\"19\">19</option><option value=\"20\">20</option><option value=\"21\">21</option><option value=\"22\">22</option><option value=\"23\">23</option><option value=\"24\">24</option><option value=\"25\">25</option><option value=\"26\">26</option><option value=\"27\">27</option><option value=\"28\">28</option><option value=\"29\">29</option><option value=\"30\">30</option><option value=\"31\">31</option></select>\n";
    $tempoutput2 =~ s/value=\"$day\"/value=\"$day\" selected/;

    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>生日：</b>如不想填寫，請全部留空。此項可選</td>
<td bgcolor=$miscbackone><font color=$fontcolormisc><input type="text" name="newyear" size=4 maxlength=4 value="$year">$div_lee$tempoutput1月$tempoutput2日</font></td>
</tr>
~;

    if ($usersx eq "") {$usersx = "blank"};

    $tempoutput="<SELECT name=\"usersx\" onchange=showsx() size=\"1\"> <OPTION value=blank>保密</OPTION> <OPTION value=\"sx1\">子鼠</OPTION> <OPTION value=\"sx2\">丑牛</OPTION> <OPTION value=\"sx3\">寅虎</OPTION> <OPTION value=\"sx4\">卯兔</OPTION> <OPTION value=\"sx5\">辰龍</OPTION> <OPTION value=\"sx6\">巳蛇</OPTION> <OPTION value=\"sx7\">午馬</OPTION> <OPTION value=\"sx8\">未羊</OPTION> <OPTION value=\"sx9\">申猴</OPTION> <OPTION value=\"sx10\">酉雞</OPTION> <OPTION value=\"sx11\">戌狗</OPTION> <OPTION value=\"sx12\">亥豬</OPTION></SELECT>\n";
    $tempoutput =~ s/value=\"$usersx\"/value=\"$usersx\" selected/;

    $output.=qq~
<SCRIPT language=javascript>
function showsx(){document.images.usersxs.src="$imagesurl/sx/"+document.creator.usersx.options[document.creator.usersx.selectedIndex].value+".gif";}
</SCRIPT>
<tr><td bgcolor=$miscbackone vAlign=top><font color=$fontcolormisc><b>所屬生肖：</b>請選擇你所屬的生肖。</td>
<td bgcolor=$miscbackone>$tempoutput<IMG border=0 name=usersxs src=$imagesurl/sx/$usersx.gif align=absmiddle>
</TD></TR>
~;
    if ($userxz eq "") {$userxz = "blank"};
    $tempoutput="<SELECT name=\"userxz\" onchange=showxz() size=\"1\"> <OPTION value=blank>保密</OPTION> <OPTION value=\"z1\">白羊座(3月21--4月19日)</OPTION> <OPTION value=\"z2\">金牛座(4月20--5月20日)</OPTION> <OPTION value=\"z3\">雙子座(5月21--6月21日)</OPTION> <OPTION value=\"z4\">巨蟹座(6月22--7月22日)</OPTION> <OPTION value=\"z5\">獅子座(7月23--8月22日)</OPTION> <OPTION value=\"z6\">處女座(8月23--9月22日)</OPTION> <OPTION value=\"z7\">天秤座(9月23--10月23日)</OPTION> <OPTION value=\"z8\">天蠍座(10月24--11月21日)</OPTION> <OPTION value=\"z9\">射手座(11月22--12月21日)</OPTION> <OPTION value=\"z10\">魔$div_sco座(12月22--1月19日)</OPTION> <OPTION value=\"z11\">水$div_bottle座(1月20--2月18日)</OPTION> <OPTION value=\"z12\">雙魚座(2月19--3月20日)</OPTION></SELECT>\n";
    $tempoutput =~ s/value=\"$userxz\"/value=\"$userxz\" selected/;
    $output.=qq~
<SCRIPT language=javascript>
function showxz(){document.images.userxzs.src="$imagesurl/star/"+document.creator.userxz.options[document.creator.userxz.selectedIndex].value+".gif";}
</SCRIPT>
<tr><td bgcolor=$miscbackone vAlign=top><font color=$fontcolormisc><b>所屬星座：</b>請選擇你所屬的星座。<br>如果你正確輸入了生日的話，那麼此項無效！</td>
<td bgcolor=$miscbackone>$tempoutput<IMG border=0 height=15 name=userxzs src=$imagesurl/star/$userxz.gif width=15 align=absmiddle>
</TD></TR>
~;

    $output .= qq~
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>主頁地址：</b><br>如果您有主頁，請輸入主頁地址。此項可選</td>
<td bgcolor=$miscbackone><input type=text name="newhomepage" value="$homepage"></td>
</tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>OICQ 號：</b><br>如果您有 OICQ，請輸入號碼。此項可選</td>
<td bgcolor=$miscbackone><input type=text name="newoicqnumber" value="$oicqnumber"></td>
</tr><tr>
<td bgcolor=$miscbackone><font color=$fontcolormisc><b>ICQ 號：</b><br>如果您有 ICQ，請輸入號碼。此項可選</td>
<td bgcolor=$miscbackone><input type=text name="newicqnumber" value="$icqnumber"></td>
</tr>$flaghtml<tr>
<script src=$imagesurl/images/comefrom.js></script>
<body onload="init()">
<td bgcolor=$miscbackone><font color=$fontcolormisc><b>來自：</b><br>請輸入您所在的地方。此項可選</td>
<td bgcolor=$miscbackone>
省份 <select name="province" onChange = "select()"></select>　城市 <select name="city" onChange = "select()"></select><br>
我在 <input type=text name="newlocation" value="$location" maxlength=12 size=20 style="font-weight: bold">　不能超過12個字符（6個中文字）</td>
</tr><tr>
~;

    $timedifference = 0 if ($timedifference eq '');
    $tempoutput = "<select name=\"newtimedifference\"><option value=\"-23\">- 23</option><option value=\"-22\">- 22</option><option value=\"-21\">- 21</option><option value=\"-20\">- 20</option><option value=\"-19\">- 19</option><option value=\"-18\">- 18</option><option value=\"-17\">- 17</option><option value=\"-16\">- 16</option><option value=\"-15\">- 15</option><option value=\"-14\">- 14</option><option value=\"-13\">- 13</option><option value=\"-12\">- 12</option><option value=\"-11\">- 11</option><option value=\"-10\">- 10</option><option value=\"-9\">- 9</option><option value=\"-8\">- 8</option><option value=\"-7\">- 7</option><option value=\"-6\">- 6</option><option value=\"-5\">- 5</option><option value=\"-4\">- 4</option><option value=\"-3\">- 3</option><option value=\"-2\">- 2</option><option value=\"-1\">- 1</option><option value=\"0\">0</option><option value=\"1\">+ 1</option><option value=\"2\">+ 2</option><option value=\"3\">+ 3</option><option value=\"4\">+ 4</option><option value=\"5\">+ 5</option><option value=\"6\">+ 6</option><option value=\"7\">+ 7</option><option value=\"8\">+ 8</option><option value=\"9\">+ 9</option><option value=\"10\">+ 10</option><option value=\"11\">+ 11</option><option value=\"12\">+ 12</option><option value=\"13\">+ 13</option><option value=\"14\">+ 14</option><option value=\"15\">+ 15</option><option value=\"16\">+ 16</option><option value=\"17\">+ 17</option><option value=\"18\">+ 18</option><option value=\"19\">+ 19</option><option value=\"20\">+ 20</option><option value=\"21\">+ 21</option><option value=\"22\">+ 22</option><option value=\"23\">+ 23</select>";
    $tempoutput =~ s/value=\"$timedifference\"/value=\"$timedifference\" selected/;

    $output .= qq~
<td bgcolor=$miscbackone><font color=$fontcolormisc><b>時差：</b><br>
伺服器所在時區：$basetimes<br>如果您所在的位置和伺服器有時差，請輸入。<br>以後您看到所有的時間將按照您所在的地區時間顯示。</td>
<td bgcolor=$miscbackone>$tempoutput</td>
</tr><tr>
<td bgcolor=$miscbackone><font color=$fontcolormisc><b>自我簡介： </b><BR>不能超過 <B>$maxinsline</B> 行，也不能超過 <B>$maxinslegth</B> 個字符<br><br>您可以輸入您的個人簡介。此項可選</td>
<td bgcolor=$miscbackone><textarea name="newinterests" cols="60" rows="5">$interests</textarea></td>
</tr><tr>
<td bgcolor=$miscbackone><font color=$fontcolormisc><b>簽名：</b><br>不能超過 <B>$maxsignline</B> 行，也不能超過 <B>$maxsignlegth</B> 個字符
<br><br>不能使用 HTML 標籤<br>可以使用 <a href="javascript:openScript('misc.cgi?action=lbcode',300,350)">LeoBBS 標籤</a><BR>
<li>貼圖標籤 &#12288; : <b>$signpicstates</b><li>Flash 標籤: <b>$signflashstates</b><li>音樂標籤 &#12288; : <b>$signsoundstates</b><li>文字大小 &#12288; : <b>$signfontsizestates</b>
</td>
<td bgcolor=$miscbackone><textarea name="newsignature" cols="60" rows="8">$signature</textarea></td>
</tr>
$avatarhtml
<tr><td colspan=2 bgcolor=$miscbacktwo align=center><input type=submit value="送 出" name=submit></td>
</form></tr></table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>
~;
1;
