mnews.pl

网络时代程序源代码从—c++源程序,包含.exe文件等

        	$vo=substr($co[4],0,$text_length);
        	$vo="$vo......";
        }
        else {
        	$vo=$co[4];
        }
          @goto1=split(/\//,$co[1]);
          @goto2=split(/\:/,$co[2]);
          $skk=&timen_check($goto1[0],$goto1[1],$goto1[2],$goto2[0],$goto2[1],$goto2[2]);   

         if ($font_size_on == 1 ) {
         	$yu_ko1="<font size=$title1_font_size>";
         	$yu_ko2="<font size=$comments_font_size>$vo</font>";
        }else{
                $yu_ko1=""; 
                $yu_ko2="$vo";
                }
        
        
        print "<TR bgcolor=$view1_color><TD align=left width=$view1_size colspan=2>\n";
        print "$yu_ko1 $count\.\n";
        print "<A HREF=\"$cgiurl?job=views&num=$userno1\">".
              "<font color=$font1_color >$co[3]</font></A>\n" if ($co[7] eq "[none]");
        print "<A HREF=\"$co[7]\">".
              "<font color=$font1_color >$co[3]</font></A>\n" if ($co[7] ne "[none]");
        print "</font>\n" if ($font_size_on == 1 );       
        print "<IMG SRC=\"./$img_new\" WIDTH=25 HEIGHT=10>" if ($skk == 1);
        print "</TD><TD align=right width=$view2_size>\n";
        print "$yu_ko1人气：$co[5]\n"  if (($co[6] eq "[none]") && ($co[7] eq "[none]"));;
        print "</font>\n" if ($font_size_on == 1 ); 
        print "</TD></TR>\n";
        if ($comments_show == 1) {
        print "<TR bgcolor=$view2_color><TD colspan=3><font color=$font2_color>$yu_ko2<br></font><div align=right><font size=1 color=$font2_color>-($co[1]-$co[2])-</font></div></TD></TR>\n" if ($co[6] eq "[none]");
        print "<TR bgcolor=$view2_color><TD colspan=2><font color=$font2_color>$yu_ko2<br></font><div align=right><font size=1 color=$font2_color>-($co[1]-$co[2])-</font></div></TD>\n" if ($co[6] ne "[none]");
        print "<TD align=center valign=middle><A HREF=\"$cgiurl?job=view2&num=$userno1\"><IMG SRC=\"$co[6]\" BORDER=0></A></TD></TR>\n" if (($co[6] ne "[none]") && ($co[7] eq "[none]"));
        print "<TD align=center valign=middle><A HREF=\"$co[7]\"><IMG SRC=\"$co[6]\" BORDER=0></A></TD></TR>\n" if (($co[6] ne "[none]") && ($co[7] ne "[none]"));
        print "<TR bgcolor=$view2_color><TD colspan=3 bgcolor=$hr_color></TD></TR>\n"  if ($hr_show == 1);

        print "<TR bgcolor=$view2_color height=\"5\"><TD colspan=3></TD></TR>\n";
        }
        }
        print "<TR bgcolor=$view2_color><TD align=right colspan=3><A HREF=\"$cgiurl?job=manage\"><IMG SRC=\"./$img_point\" BORDER=0 alt=\"进入管理介面\"></A></TD></TR>\n" if ($img_point_show == 1);
        print "</TABLE></CENTER>\n";
}

#######观看全文###################################
sub views {
	
      dbmopen(%TEMP,"$filehead$news_data",0666);
      %USERFILE=%TEMP;
      dbmclose(%TEMP);
	
      @userno=keys %USERFILE;
      
      @co=split(/∥/,$USERFILE{$num});
      
      $co[5]=$co[5]+1;
      dbmopen(%USER,"$filehead$news_data",0666);
      $USER{$num}="yuko∥$co[1]∥$co[2]∥$co[3]∥$co[4]∥$co[5]∥$co[6]∥$co[7]∥\n";
      dbmclose(%USER);
      
               if ($font_size_on == 1 ) {
         	$yu_ko3="<font size=$title1_font_size_1>";
         	$yu_ko4="<font size=$comments_font_size_1>$co[4]</font>";
        }else{
                $yu_ko3=""; 
                $yu_ko4="$co[4]";
        }
        
      &HTMLHeader("观看全文$num",1);
      print "<center><table border=1 width=$view3_size><tr><td bgcolor=$view3_color>\n";
      print "$co[3]\n";
      print "[<a href=javascript:history.go(-1)>回上页</a>]\n";
      print "</TD></TR><TR><TD bgcolor=$view4_color>\n";
      print "$yu_ko4\n";
      print "<div align=right><font size=1>$co[1]-$co[2]</font></div>\n";
      print "</td></tr></table></center>\n";
      &HTMLFooter;
}
############################################
sub timen_check {
local($kk)="";
	use Time::Local;
	
          @goto3=split(/\//,$daten);
          @goto4=split(/\:/,$timen);	
	
	$time1= timelocal ($_[5],$_[4],$_[3],$_[2],$_[1],$_[0]);
	$time2= timelocal ($goto4[2],$goto4[1],$goto4[0],$goto3[2],$goto3[1],$goto3[0]);
	$time3=$time2-$time1;
        $time4=(($check_time*24)*60)*60;
        if ($time3 > $time4) {
        	$kk=0;
        } else {
        	$kk=1;
        	}
return $kk;
}
#######选择删除与编修####################################
sub change_and_delete {

      dbmopen(%TEMP,"$filehead$news_data",0666);
      %USERFILE=%TEMP;
      dbmclose(%TEMP);
	
      @userno=keys %USERFILE; 
      @userno=sort {$b<=>$a} @userno;
      $usertotal=$#userno+1;
      
       if (defined @userno) {
      	$vb=0;
      }else {
	$vb=1;
	}
      
      $count=0;
 
        &HTMLHeader("编辑与删除",1);
        print "<CENTER><TABLE Border=\"0\"  CELLSPACING=\"0\" CELLPADDING=\"2\" width=70%>\n";
        print "<TR><TD  bgcolor=$view1_color colspan=3  align=center>目前没有任何资料存在</TD></TR>\n" if ($vb != 0);      
    foreach $userno1 (@userno) {
          @co=split(/∥/,$USERFILE{$userno1});
          $count++;

          @goto1=split(/\//,$co[1]);
          @goto2=split(/\:/,$co[2]);
          $skk=&timen_check($goto1[0],$goto1[1],$goto1[2],$goto2[0],$goto2[1],$goto2[2]);   

         if ($font_size_on == 1 ) {
         	$yu_ko1="<font size=$title1_font_size>";
         	$yu_ko2="<font size=$comments_font_size>$co[4]</font>";
        }else{
                $yu_ko1=""; 
                $yu_ko2="$co[4]";
                }
        
        
        print "<TR bgcolor=$view1_color><TD align=left width=$view1_size colspan=2>\n";
        print "$yu_ko1 $count\.\n";
        print "<font color=$font1_color >$co[3]</font></A>\n";
        print "[<A HREF=\"$cgiurl?job=manage_change&num=$userno1\">修改</A>]\n";
        print "[<A HREF=\"$cgiurl?job=manage_del&num=$userno1\">删除</A>]\n";
        
        print "</font>\n" if ($font_size_on == 1 );       
        print "<IMG SRC=\"./$img_new\" WIDTH=25 HEIGHT=10>" if ($skk == 1);
        print "</TD><TD align=right width=$view2_size>$yu_ko1人气：$co[5]\n";
        print "</font>\n" if ($font_size_on == 1 ); 
        print "</TD></TR>\n";
        print "<TR bgcolor=$view2_color><TD colspan=3><font color=$font2_color>$yu_ko2<br></font><div align=right><font size=1 color=$font2_color>-($co[1]-$co[2])-</font></div></TD></TR>\n";
        print "<TR bgcolor=$view2_color><TD colspan=3 bgcolor=$hr_color></TD></TR>\n";

        print "<TR bgcolor=$view2_color height=\"5\"><TD colspan=3></TD></TR>\n";
        
        }
        print "</TABLE></CENTER>\n";     
        &HTMLFooter; 
}
######删除资料####################################
sub manage_del {
dbmopen(%USERFILE,"$filehead$news_data",0666);
         delete $USERFILE{$num}; 
dbmclose(%USERFILE);
  &succ("删除完成！",0);	
	
}
######编修资料###################################
sub manage_change {
      dbmopen(%TEMP,"$filehead$news_data",0666);
      %USERFILE=%TEMP;
      dbmclose(%TEMP);
	
      @userno=keys %USERFILE;
      @co=split(/∥/,$USERFILE{$num});
      $chdaten=$co[1];
      $chtimen=$co[2];
      $ck=$co[5];
      
&HTMLHeader("修改新闻",1);
print "<form method=\"post\" action=\"$cgiurl?job=add_change&num=$num&chdaten=$co[1]&chtimen=$co[2]&ck=$co[5]\">\n";
print "<center><table border=0>\n";
print "<tr><td align=center bgcolor=\"\#66ccff\">标题</td></tr>\n";
print "<tr><td align=center><input type=text name=\"title\" size=30 value=\"$co[3]\"></td></tr>\n";
print "<tr><td align=center bgcolor=\"\#66ccff\">内容</td></tr>\n";
print "<tr><td align=center><TextArea NAME=\"comments\" ROWS=5 COLS=40>$co[4]</TextArea></td></tr>\n";
print "<tr><td align=center bgcolor=\"\#66ccff\">图片网址</td></tr>\n";
print "<tr><td align=center><input type=text name=\"img_url\" size=30 value=\"$co[6]\"></td></tr>\n";
print "<tr><td align=center bgcolor=\"\#66ccff\">跳页位置</td></tr>\n";
print "<tr><td align=center><input type=text name=\"next_url\" size=30 value=\"$co[7]\"></td></tr>\n";
print "<tr><td colspan=2 align=center>\n";
print "<INPUT type=\"submit\" value=\"送出\"><INPUT type=\"reset\" value=\"清除\">\n";
print "</td></tr></table></form>\n";
&HTMLFooter;
}
#######加入修改的资料#####################################
sub add_change {
dbmopen(%USERFILE,"$filehead$news_data",0666);
$USERFILE{$num}="yuko∥$chdaten∥$chtimen∥$title∥$comments∥$ck∥$img_url∥$next_url∥\n";
dbmclose(%USERFILE);
 &succ("加入完成！",0);	
}
#######显示新闻######################################
sub view_2 {
	#print "Content-type: text/html\n\n";
	
      dbmopen(%TEMP,"$filehead$news_data",0666);
      %USERFILE=%TEMP;
      dbmclose(%TEMP);
	
      @userno=keys %USERFILE; 
      @userno=sort {$b<=>$a} @userno;
      $usertotal=$#userno+1;
      
       if (defined @userno) {
      	$vb=0;
      }else {
	$vb=1;
	}
      
      $count=0;
 
        print "<CENTER><TABLE Border=\"0\"  CELLSPACING=\"0\" CELLPADDING=\"2\" width=100%>\n";
        print "<TR><TD  bgcolor=$view1_color colspan=3  align=center>目前没有任何资料存在</TD></TR>\n" if ($vb != 0);      
    foreach $userno1 (@userno) {
          @co=split(/∥/,$USERFILE{$userno1});
          $count++;

          @goto1=split(/\//,$co[1]);
          @goto2=split(/\:/,$co[2]);
          $skk=&timen_check($goto1[0],$goto1[1],$goto1[2],$goto2[0],$goto2[1],$goto2[2]);   

         if ($font_size_on == 1 ) {
         	$yu_ko1="<font size=$title1_font_size>";
         	$yu_ko2="<font size=$comments_font_size color=$font4_color>$co[4]</font>";
        }else{
                $yu_ko1=""; 
                $yu_ko2="<font color=$font4_color>$co[4]</font>";
                }
        
       
        print "<tr><td align=\"middle\" width=$view4_size valign=\"top\" bgcolor=$view5_color>\n";
        print "<font face=\"Arial, Helvetica, sans-serif\" size=\"2\" color=$font3_color>\n";
        print "$yu_ko1<b>$co[1]<br>\n";
        print "</font>\n" if ($font_size_on == 1 ); 
        print "<IMG SRC=\"./$img_new\" WIDTH=25 HEIGHT=10>" if ($skk == 1);
        print "</b></font></td><td width=$view5_size bgcolor=$view5_color>$yu_ko2\n";
        print "<hr size=\"1\" color=$hr_color>\n" if ($hr_show == 1);
        print "</td></tr>\n";
        print "<TR bgcolor=$view6_color height=\"5\"><TD></TD></TR>\n";
        
        }
        print "<TR bgcolor=$view6_color><TD align=right colspan=3><A HREF=\"$cgiurl?job=manage\"><IMG SRC=\"./$img_point\" BORDER=0 alt=\"进入管理介面\"></A></TD></TR>\n" if ($img_point_show == 1);
        print "</TABLE></CENTER>\n";
}
#######显示新闻######################################
sub view_3 {
	#print "Content-type: text/html\n\n";
	dbmopen(%TEMP,"$filehead$news_data",0666);
      %USERFILE=%TEMP;
      dbmclose(%TEMP);
	
      @userno=keys %USERFILE; 
      @userno=sort {$b<=>$a} @userno;
      $usertotal=$#userno+1;
      

      
       if (defined @userno) {
      	$vb=0;
      }else {
	$vb=1;
	}
      
      $count=0;
      $count_color=0;
 
        print "<CENTER><TABLE Border=\"0\"  CELLSPACING=\"0\" CELLPADDING=\"2\" width=100%>\n";
        print "<TR><TD  bgcolor=$view1_color colspan=3  align=center>目前没有任何资料存在</TD></TR>\n" if ($vb != 0);      
    foreach $userno1 (@userno) {
    	  if ($count_color > $#color) {
    	  	$count_color=0;
    	  	}
          @co=split(/∥/,$USERFILE{$userno1});
          $count++;
          $test_ko1=length($co[4]);
       	  $vo1=substr($co[4],0,$test_color_limite);
       	  $vo2=substr($co[4],$test_color_limite,$test_ko1);
          @goto1=split(/\//,$co[1]);
          @goto2=split(/\:/,$co[2]);
          $skk=&timen_check($goto1[0],$goto1[1],$goto1[2],$goto2[0],$goto2[1],$goto2[2]);   

         if ($font_size_on == 1 ) {
         	$yu_ko1="<font size=$title1_font_size>";
         	$yu_ko2="<font size=$comments_font_size color=$font4_color>$vo2</font>";
        }else{
                $yu_ko1=""; 
                $yu_ko2="<font color=$font4_color>$vo2</font>";
                }
        
        print "<TR><TD>\n";
        print "<P>　<font size=3 color=$color[$count_color]>$vo1</font> $vo2</P>";
        $count_color++;
        print "</TD></TR>\n";
}
        
        print "<TR bgcolor=$view6_color><TD align=right colspan=3><A HREF=\"$cgiurl?job=manage\"><IMG SRC=\"./$img_point\" BORDER=0 alt=\"进入管理介面\"></A></TD></TR>\n" if ($img_point_show == 1);
        print "</TABLE></CENTER>\n";
}
#######################################
#_____________________________________________
# 收集/整理: 网酷资讯 http://shining.yeah.net