📄 profile.cgi
字号:
<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/</</g;
$signature =~ s/>/>/g;
$signature =~ s/\&/\&/isg;
$signature =~ s/"\;/\"/g;
$signature =~ s/\ / /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=\"no\">否\n</select>\n";
$tempoutput =~ s/value=\"$showemail\"/value=\"$showemail\" selected/;
$output .= qq~
<tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
<form action="$thisprog" method=post name="creator" enctype="multipart/form-data">
<input type=hidden name="action" value="process">
<input type=hidden name="oldpassword" value="$inpassword">
<font color=$fontcolormisc><b>修改 <font color=$fonthighlight>$inmembername</b></font> 的个人资料</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);
$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=10 maxlength=20></td>
</tr>
~ if ($editusertitleself eq "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=10 maxlength=20></td>
</tr>
~ if ($editjhmpself eq "on");
$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>
~;
($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">年$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>请选择你所属的生肖。<br>如果你正确输入了生日的话，那么此项无效！</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\">魔羯座(12月22--1月19日)</OPTION> <OPTION value=\"z11\">水瓶座(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="newaolname" 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)">LB5000 标签</a><BR>
<li>贴图标签 : <b>$signpicstates</b><li>Flash 标签: <b>$signflashstates</b><li>音乐标签 : <b>$signsoundstates</b><li>文字大小 : <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>
<input type=hidden name="membername" value="$inmembername"></form></tr></table></td></tr></table>
~;
} # end modify routine
############################## save profile modification
sub savemodify {
# &getmember("$inmembername");
if ("$userregistered" eq "no") {&error("修改资料&没有此用户名！"); }
if ("$oldpassword" ne "$password") {&error("修改资料&密码错误！"); }
$newpassword1 = $query -> param('newpassword1');
$newpassword2 = $query -> param('newpassword2');
$newshowemail = $query -> param('newshowemail');
$newhomepage = $query -> param('newhomepage');
$newaolname = $query -> param('newaolname');
$newicqnumber = $query -> param('newicqnumber');
$newlocation = $query -> param('newlocation');
$newinterests = $query -> param('newinterests');
$newtimedifference = $query -> param('newtimedifference');
$newpersonalavatar = $query -> param('newpersonalavatar');
$newpersonalwidth = $query -> param('newpersonalwidth');
$newpersonalheight = $query -> param('newpersonalheight');
$newemailaddress = $query -> param('newemailaddress');
$newmembertitle = $query -> param('newmembertitle');
$newjhmp = $query -> param('newjhmp');
$inuserflag = $query -> param('userflag');
$inuserxz = $query -> param('userxz');
$inusersx = $query -> param('usersx');
$newyear = $query -> param('newyear');
$newmonth = $query -> param('newmonth');
$newday = $query -> param('newday');
$newsex = $query -> param('newsex');
$newsignature = $query -> param('newsignature');
$inuseravatar = $query -> param('useravatar');
$newuserquestion = &cleanarea($query -> param('getpassq')."|".$query -> param('getpassa'));
$newsignature = &unHTML("$newsignature");
$newpassword1 = &cleanarea("$newpassword1");
$newpassword2 = &cleanarea("$newpassword2");
$newshowemail = &cleanarea("$newshowemail");
$newhomepage = &cleanarea("$newhomepage");
$newaolname = &cleanarea("$newaolname");
$newicqnumber = &cleanarea("$newicqnumber");
$newlocation = &cleanarea("$newlocation");
$newinterests = &cleanarea("$newinterests");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -