萍踪侠影 


等级:七城鬼才
经验:169255
金豆:44513
体力: 虚拟职业:IT公司CEO 
 
哦
裤兄，不要进行人身攻击
不要动不动说别人是老女人，因为你妈妈也是女人，而且肯定超过四十了，所以，可以发泄你的不满
七城并不想成为什么门户网，所以如果你觉得狂人用人不当，就直接让他撤消那些人，这样骂来骂去解决不了问题嘛
当然，我不是在为自己说话了，因为我早就辞职了，所以我不属于领导
我衷心佩服你对这个社区曾经的热情，不过专门在百度开个吧来针对，似乎没有什么必要
这是一个很小的社区，百度里每天也在诞生无数无聊的“吧”
hand一下，不要发这么大的火，网络这东西，看开点，早晚这个世界要人走茶凉的，谁主政一点都不重要，因为不喜欢的可以自由选择让自己去寻找更好的社区，喜欢的可以留下来奋斗耕耘。

我也说,我是酷儿.为什么人家盗我号把我号封到现在不还给我?我在这里浪费多少心血有人知道么?为什么这里会欺负人.白吃.只会封人号的白吃.别的会干什么!

呀..没想到你的帐号也被封了?

你好象没反动呀?呵呵

这个 饿是lovely-1117 = =|||
9842怎么了啊？进不去了啊最近？

行了，吵来吵去的，有什么用？除了会吵能解决点事吗？七城现在没了！~彻底完了！~满意了没？什么事情没闹清楚就赖这个赖那个的？为什么七城没了，你们又知道吗？就是因为那些什么所谓的成天七城这不好，那不好，这个不好，那个不好的人，跑到热线发什么关于反动的破帖子，在现在这个两会期间正是政治敏感时期，然后被公安查封了，满意没？这也怨市长，市长叫你们发的？？

七城没了，是谁上班时间还在和空间商联系，和公安沟通？？是你们吗？你们谁做了？在她到处想办法的时候你们在做什么？？？要不七城后来能又开吗？？你们又知道什么？最后七城因为被封了之间出了程序问题，导致现在这样！~难道都是市长搞的?？？？做人不能昧良心说话！~

哪个网站运行不花钱，至少她们还捐钱了，试图留着七城给你们这些所谓的人来有个地方骂，你们这些成天骂街的，除了会鸡蛋里挑骨头为七城做过什么有意义的事情？现在好了，啥都没了，骂吧！~你们可以在这里骂，但是你们自己拍拍自己的良心想想吧！~

现在也不用吵了，爱吵你们就吵吧，反正七城没了！~我真的闹不明白说话的时候有没有摸着你的良心说话！~

我告诉你，我是七城的，我就是雪の念尘，有什么觉得我说错了，冲我来……

..............
搞的我好象很不厚道
七城谁到那发反动帖谁知道
要不是管理不足的话,会这样的吗?
要不是把人心都搞烂了,会这样吗?
到现在因为管理问题.而论坛被关.现在她去为了七城奔跑,
这是什么个逻辑....呵呵.简直是笑话.

希望她能看到.她自己在七城关闭的时候.到底有没有想过.因果关系.

而雪の念尘.我们曾经也是很好的朋友.请你看看,我发的帖子是什么时候的.如果你还认识我是谁的话.

对于我曾付出热情和时间的一个坛子,我也是有权力说一点关于我的个人想法地.


PS:如果这个帖子是在七城的话.已经被删除,而帐号也马上被封了.
不到这里来说说,要到那里去说?有本事的话,可以叫那个女人也把这里管了

晕哦，弄的动静还挺大
当年我也是为七城捐过钱的
因为我喜欢那个地方
吵架不能解决问题
省省吧
我是虫子

貌似我现在说这些也晚了

我觉得七城到现在这个地步谁也不能说自己没有责任

七城是我们的家

我相信不管我们是争吵还是和睦

都是因为我们对它的爱

爱到一步小心就伤害到自己他人还有我们的七城

一味的删贴或者封号

根本就不能解决最跟本的问题

如果我们心平气和地聊清楚问题的所在

如果我们都早一点认识到问题的严重

而不是一有什么事就动用内裤所说的特权

事情也许就不会这个样子

所以自作孽不可活



没关之前的很长一端日子

七城的人气急剧下降

毫无声气

关是在所难免的

因为大家在吵架

因为一些貌似元老的人

经常说类似

”又没人留你””七城少你一个有不少的话”

我在那里呆了两年

把最初对网络的经历全部给予了七城

可是现在这个我投入了大把大把的心血的地方
消失了

心里空空的啊




我是冰美儿

貌似我现在说这些也晚了

我觉得七城到现在这个地步谁也不能说自己没有责任

七城是我们的家

我相信不管我们是争吵还是和睦

都是因为我们对它的爱

爱到一步小心就伤害到自己他人还有我们的七城

一味的删贴或者封号

根本就不能解决最跟本的问题

如果我们心平气和地聊清楚问题的所在

如果我们都早一点认识到问题的严重

而不是一有什么事就动用内裤所说的特权

事情也许就不会这个样子

所以自作孽不可活



没关之前的很长一端日子

七城的人气急剧下降

毫无声气

关是在所难免的

因为大家在吵架

因为一些貌似元老的人

经常说类似

”又没人留你””七城少你一个有不少的话”

我在那里呆了两年

把最初对网络的经历全部给予了七城

可是现在这个我投入了大把大把的心血的地方
消失了

心里空空的啊




我是冰美儿

竟然要连发两次。。�

#!/usr/bin/perl
#--------------------------------------------#
#　　　　　　 7CITY v1.0　　 　　　　 #
#　　　　本程序为三味·狂人工作室提供　　　　#
#--------------------------------------------#
BEGIN {
 $cgi_path = '.';
 $pgm = $0;
 $pgm =~ s/\\/\//g;
 $pgm =~ s/^.*\/([^\/]+)$/$1/g;
 unless ( -e $cgi_path . '/' . $pgm ) {
 foreach ( $0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'} ) {
 s!\\!/!g;
 s/^(.*)\/[^\/]+$/$1/g;
 if ( -e $_ . '/' . $pgm ) { $cgi_path = $_; last; }
 }
 }
 unshift( @INC, "$cgi_path", "$cgi_path/mylib" );
}
######################
require "setup.cgi";
 use COMMON;
 use CLUB;
 use BBS;  
 $sectionurl=$thiscgi="home.cgi";
 $topimg="club_index.gif";
 GetCookies();
 validate_user();
 read_input();
 people("我的家");
 unless(-e "$_data_path/userbox/$user_file/$url_username.cgi"){
 writefile("$_data_path/userbox/$user_file/$url_username.cgi","");}
######################
if($FORM{'menu'} eq "home_index" || $FORM{'menu'} eq ""){&home_index;exit;} ######我的家首页
elsif($FORM{'menu'} eq "livingroom"){&livingroom;exit;} ######客厅
elsif($FORM{'menu'} eq "bedroom"){&bedroom;exit;} ######卧室
elsif($FORM{'menu'} eq "kitchen"){&kitchen;exit;} ######厨房
elsif($FORM{'menu'}){require "club/$FORM{'menu'}.pl";exit;} 
#///----------我的家首页----------///#
sub home_index{
 validate_house();
 $thecgi="home.cgi";
 club_top();
 print qq~
 <div align="center"><center>
 <table border="0" width="85%">
 <tr>
 <td width="72%">　<p align="left"><A href="$thecgi?menu=livingroom&username=$url_username"><IMG onmouseover="this.className='gr';" onmouseout="this.className='';" src="/$club_img/myhome/livingroom.gif" border=0></A>    <A href="$thecgi?menu=bedroom"><IMG onmouseover="this.className='gr';" onmouseout="this.className='';" src="/$club_img/myhome/bedroom.gif" border=0></A>    <A href="$thecgi?menu=kitchen"><IMG onmouseover="this.className='gr';" onmouseout="this.className='';" src="/$club_img/myhome/kitchen.gif" border=0></A><BR><BR><br></td>
 </tr>
 <tr>
 <td width="100%" colspan="2"><p align="center"><IMG src="/$club_img/myhome/one.gif"></td>
 </tr>
 </table></center></div><div align="center">
 <table border="0" width="85%">
 <tr>
 <td width="100%" align="center"><p align="right"><A href="$thecgi?menu=livingroom&username=$url_username"><IMG onmouseover="this.className='gr';" onmouseout="this.className='';" alt=进入我的客厅 src="/$club_img/myhome/go.gif" border=0></A></td>
 </tr>
 </table></div>
 </table>
 ~;
 html_end();
exit;
}
#///----------客厅----------///#
sub livingroom{
 use CODE;
 member_split("$FORM{'username'}");
 if ($user_id_exist eq "no"){ errorview("$FORM{'username'}尚未注册");exit;}
 ($the_membertype,$the_sideline,$the_levelname,$the_levelgif)=split(/,/,$rank);
 ($the_secrecylevel,$the_savecookie)=split(/,/,$secrecy);
 if($url_username ne "$FORM{'username'}" && $experience < $the_secrecylevel && $levelgif < 11){ errorview("对不起，您无权查看！");}
 ($the_school,$the_QQ,$the_mail,$the_homepage)=split(/,/,$contact);


 ($the_face,$the_photo)=split(/,/,$picture); ($the_money,$the_charm,$the_maxthew,$the_thew,$the_moral,$the_contribute,$the_brains,$the_addtitle,$the_repeattitle,$the_experience)=split(/,/,$change);
 ($the_wlevel,$the_wname,$the_whours,$the_wtime)=split(/,/,$work);
 ($the_idiograph,$the_yokemate,$the_employment,$the_note)=split(/,/,$remark);
 ($the_sex,$the_province,$the_regtime,$the_birthday)=split(/,/,$riveter);
 ($the_face,$the_gif)=split(/\.gif/,$the_face);
 ($the_housename,$the_sectionid,$the_areaid)=split(/,/,$house);
 if($the_housename eq ""){ errorview("对不起，$FORM{'username'}尚未购房！");} 
 if($the_areaid < 2 && $FORM{'sign'}=~/u_photo_upload|u_face_upload/){ errorview("对不起，您的居室档次太低，请购买2区以上的房子！");} $the_experience=(int((($the_repeattitle*0.05+$the_addtitle*0.1+$the_charm*0.2+$the_maxthew*0.3+$the_contribute*0.4)*(1+$the_moral*0.1))*10))/10 if ($the_experience eq "");
 $the_toltitle = $the_addtitle+$the_repeattitle;
 $the_QQ = "------" if($the_QQ eq "");
 $the_wname = "社区游民" if($the_wname eq "");
 $the_yokemate1 = ($the_yokemate eq "")? "未婚" : "<A href=home.cgi?menu=livingroom&username=$the_yokemate target=_blank>$the_yokemate</a>";
 $the_school="------" if($the_school eq "");
 $the_homepage="------" if($the_homepage eq "");
 $the_idiograph="------" if($the_idiograph eq "");
 $the_note="　" if($the_note eq "");
 $homepage_ts = (length($the_homepage) < 11)?"还没有个人主页":"<a href='$the_homepage' target=_blank>欢迎光临</a>"; 
 if($FORM{'sign'} eq ""){$the_idiograph=~s/(\[IMG\])(.+?)(\[\/IMG\])/<A href=$2><b><u>图片<\/u><\/b><\/A>/isg; }
$the_note1 = &topic_text("$the_note");

 my $url_username_1 = &url_encode("$FORM{'username'}");
 $the_photo = ($the_photo==1)? "photo/$url_username_1.gif" : "photo/photo.gif";
 $the_face = ($the_face==1)? "portrait/$url_username_1.gif" : "$the_face.gif";

 if($url_username eq "$FORM{'username'}"){
 $section="我的家";
 $cginame="我的客厅";
 $thecgi="$thiscgi?menu=livingroom&username=$url_username";
 $livingroom_ts = qq~ 
 ■ <A href="$thecgi&sign=u_visit_index#end">访问权限</A>
 ■ <A href="$thecgi&sign=u_intro_index#end">文字介绍</A>
 ■ <A href="$thecgi&sign=u_rework_index#end">修改资料</A>
 ■ <A href="$thecgi&sign=u_face_upload#end">上传头像</A>
 ■ <A href="$thecgi&sign=u_photo_upload#end">上传照片</A>
 ~; 
 $html_ts = qq~
 <tr>
 <td style="LEFT: 0px; WIDTH: 60%; WORD-WRAP: break-word; 130: " width="20%" align=left><b>$the_housename</b>($the_areaid)<br>    $the_note1</td>
 <td width="80%"><p align='right'><A href='$thiscgi?menu=livingroom&username=$url_username'><IMG onmouseover=this.className='gr' onmouseout=this.className='' src='/$club_img/myhome/livingroom1.gif' border=0></A>  <A href='$thiscgi?menu=bedroom'><IMG onmouseover=this.className='gr' onmouseout=this.className='' src='/$club_img/myhome/bedroom1.gif' border=0></A>  <A href='$thiscgi?menu=kitchen'><IMG onmouseover=this.className='gr' onmouseout=this.className='' src='/$club_img/myhome/kitchen1.gif' border=0></A></td>  


 </tr>
 ~;
 }
 else{    
$section="";
$cginame="$FORM{'username'}的客厅";
$sectionurl=$thecgi="$thiscgi?menu=livingroom&username=$$FORM{'username'}";
$livingroom_ts = qq~
 ■ <A href=$thiscgi?menu=a_friend_stowok&object=$FORM{'username'}>加为好友</A>
■ <A href=$thiscgi?menu=bedroom&sign=a_guestbook_add&object=$FORM{'username'}>发送短讯</A>~;

 $html_ts = qq~
 <tr>
 <td style="LEFT: 0px; WIDTH: 60%; WORD-WRAP: break-word; 130: " width="20%" align=left><b>$the_housename</b>($the_areaid)<br>    $the_note1</td>
 <td width="80%"></td>  
 </tr>
 ~;
 }
 club_top();
 print qq~
 <BODY oncontextmenu="return false;" ondragstart="return false;"> ~ if($the_levelgif < 11);
 print qq~
 <BODY> ~ if($the_levelgif >= 11);
 print qq~
 <STYLE>TABLE{BORDER-TOP: 1px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px;}TD{BORDER-RIGHT: 0px; COLOR: $bgcolor}</STYLE><br><TABLE style="TABLE-LAYOUT: fixed" border="0" width="96%">$html_ts
 <TR><TD width="100%" align=center colspan="3"><br>           $livingroom_ts
 </TD></TR></TABLE>
 <TABLE border="0" width="96%" height="233" cellspacing="1" cellpadding="5" >
 <TR><TD width="17%" align=center height="119"><a href="/$bbs_img/$the_face"><img src="/$bbs_img/$the_face" width=70 height=70 border=1 alt="当前体力：$the_thew"></a><br>$FORM{'username'}<br><img src="/$bbs_img/level/$the_levelgif.gif"></TD>
 <TD width="83%" rowspan="2" height="150">
 ~;
 require "user/u_rework_index.pl" if($FORM{'sign'} eq "u_rework_index" && $url_username eq "$FORM{'username'}");
 print qq~
 <TABLE cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
 <TR><TD width="100%" height="60%">
 <TABLE cellSpacing="1" cellPadding="5" width="100%" align="center" bgColor="$bgcolor" border="0">
 <TR bgColor="#ffffcc">
 <TD align=left width="30%"><B>等级:</B>$the_levelname</TD>
 <TD align=left width="20%"><B>金豆:</B>$the_money</TD>
 <TD align=left width="22%"><B>魅力:</B>$the_charm</TD>
 <TD align=left width="22%"><B>体力:</B>$the_maxthew</TD>
 </TR>
 <TR bgColor="#ffffcc">
 <TD align=left width="20%"><B>经验:</B>$the_experience</TD>
 <TD align=left width="20%"><B>道德:</B>$the_moral</TD>
 <TD align=left width="20%"><B>贡献:</B>$the_contribute</TD>
 <TD align=left width="20%"><B>智力:</B>$the_brains</TD>
 </TR>
 <TR bgColor="#ffffcc">
 <TD align=left width="50%" colspan="2"><B>发帖:</B>$the_toltitle  $the_addtitle(发)/$the_repeattitle(回)</TD>
 <TD align=left width="50%" colspan="2"><B>社区配偶:</B>$the_yokemate1</TD>
 </TR>
 <TR bgColor="#ffffcc">
 <TD align=left width="50%" colspan="2"><B>虚拟职业:</B>$the_wname</TD>
 <TD align=left width="50%" colspan="2"><B>入住日期:</B>$the_regtime</TD>
 </TR>
 </TABLE>
 <TD width="1%" bgColor="green" rowSpan="2"><font color="white">社区资料</font></TD></TR> 
 </TABLE> 　
 <TABLE cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
 <TR><TD width="1%" bgColor="green" rowSpan="2"><font color="white">详细资料</font>


 <TD width="100%" height="60%">
 <TABLE cellSpacing="1" cellPadding="5" width="100%" align="center" bgColor="$bgcolor" border="0">
 <TR bgColor="#ffffcc">
 <TD align=left width='50%' colspan='2'><B>性别:</B>$the_sex</TD>
 <TD align=left width='50%' colspan='2'><B>生日:</B>$the_birthday</TD>
 </TR>
 <TR bgColor="#ffffcc">
 <TD align=left width='50%' colspan='2'><B>来自:</B>$the_province</TD>
 <TD align=left width='50%' colspan='2'><B>MYQQ:</B>$the_QQ</TD>
 </TR>
 <TR bgColor="#ffffcc">
 <TD align=left width='50%' colspan='2'><B>职业:</B>$the_employment</TD>
 <TD align=left width='50%' colspan='2'><B>E-Mail:</B><a href=mailto:$the_mail title="$the_mail">发送Email</a></TD>
 </TR>
 <TR bgColor="#ffffcc">
 <TD align=left width='50%' colspan='2'><B>毕业院校:</B>$the_school</TD>
 <TD align=left width='50%' colspan='2'><B>个人主页:</B>$homepage_ts</TD>
 </TR>
 <TR bgColor="#ffffcc">
 <TD align=left colspan='4'><B>个性签名:</B>$the_idiograph</TD>
 </TR> ~ if($FORM{'sign'} ne "u_rework_index"); 
 require "user/$FORM{'sign'}.pl" if($FORM{'sign'} =~/u_visit_index|u_intro_index|u_rework_index|u_face_upload|u_photo_upload/ && $url_username eq "$FORM{'username'}");
 print qq~
 </TABLE></TD></TABLE></TD></TR><TR>
 <TD width="17%" align=center height="120"><a href="/$club_img/$the_photo"><img src="/$club_img/$the_photo" width=100 height=120 border=1></a></TD></TR>
 </TABLE></TABLE><A name=end></A>
 ~;
 html_end();
exit;
}

#///----------卧室----------///#
sub bedroom{
 validate_house();
 $thecgi="home.cgi?menu=bedroom";
 $section="我的家";
 $cginame="我的卧室";
 $FORM{'sign'}="a_guestbook_receivelist" if ($FORM{'sign'} eq "");
 if($FORM{'sign'} eq "a_guestbook_receivelist"){$font_ts_1="<b>";}
 elsif($FORM{'sign'} eq "a_friend_stow"){$font_ts_2="<b>";}
 elsif($FORM{'sign'} eq "a_title_stow"){$font_ts_3="<b>";}
 club_top();
 home_top();
 print qq~
 <TR align=center><TD align=middle width=5%>
 ■<a href="$thecgi&sign=a_guestbook_receivelist">$font_ts_1留言集</b></a>  
 ■<a href="$thecgi&sign=a_friend_stow">$font_ts_2好友录</b></a>  
 ■<a href="$thecgi&sign=a_title_stow">$font_ts_3文件夹</b></a>  
 ■备忘录  
 ■<a href="$thiscgi?menu=h_bedroom_sleep">我要睡</a></TD></TR>~;  
 require "club/$FORM{'sign'}.pl" if ($FORM{'sign'}=~/a_guestbook_receivelist|a_guestbook_writelist|a_guestbook_viewlist|a_guestbook_add|a_title_stow|/);  
 html_end();
 exit;
}
#///----------厨房----------///#
sub kitchen{
 validate_house();
 $thecgi="home.cgi?menu=kitchen";
 $section="我的家";
 $cginame="我的厨房";
 $FORM{'no'} = 1 if($FORM{'no'} eq "");
 open(KITCHEN,"$_data_path/userbox/$user_file/$url_username.cgi");
 while(<KITCHEN>){
 if ($_ =~ /^\s*$/){del_blank("$_data_path/userbox/$user_file/$url_username.cgi");}
 chomp;
 (my $type,my $product,my $effect,my $num,my $price,my $value,my $pic,my $introduce,my $no)=split(/↑/,$_);  
 $cureall_attack ="| <a href='$thecgi&sign=h_kitchen_attack&no=$no&pic=$pic#end'>攻击</a>" if($FORM{'no'} == 5);