<? //本程序是为解析人大复印资料的文章到数据库专用。 //编者：孔秀祥。日期：2001/4/10 switch($position) { default: session_start(); if (!isset($auth_passed)) { echo "本功能只有授权用户才能使用。"; return -1; } if(isset($u_name)) { session_name($u_name); //echo "<center><font color='red'>".session_name().":本程序将竭诚为您服务。</font></center>\n"; //echo "<hr>"; } ?> <HTML><HEAD> <TITLE>文章加入数据库 </TITLE> </HEAD> <BODY><TABLE><CENTER> <FORM ENCTYPE= "multipart/form-data" NAME = "SubmitForm" ACTION= "<? $php_SELF ?>" METHOD = "POST"> <INPUT TYPE= "hidden" NAME = "MAX_FILE_SIZE" VALUE ="20000000"> <!--INPUT TYPE= "hidden" NAME = "UploadAction" VALUE = "1"--> <INPUT TYPE= "hidden" NAME = "position" VALUE = "PRocess"> <TR><TD>文件名<TD><INPUT NAME = "UploadFile" TYPE = "file" VALUE="" SIZE = "30"></TR> <TR><TD>索引文件名<TD><INPUT NAME = "index_file" TYPE = "text" VALUE="" SIZE = "30"></TD></TR> <TR><TD>索引标题<TD><INPUT NAME = "index_title" TYPE = "text" VALUE="学而斋资料" SIZE = "30"></TD></TR> <TR><TD rowspan=5>查询说明</TD> <!--/TR><TR--> <TD rowspan=5><TEXTAREA wrap=on rows="5" cols="30" NAME = "index_describe" SIZE = "250"> 人大复印资料(1985－1989)根据任意词查询，任意词= </TEXTAREA></TD> </TR> <TD>文章分类</TD> </TR> <TR><TD> <SELECT size="1" name="catalog" TYPE = "int" default=11> ?<OPTION selected value="11">语言理论</OPTION> ?<OPTION value="12">语法学</OPTION> ?<OPTION value="13">语义学</OPTION> ?<OPTION value="14">语用学</OPTION> ?<OPTION value="15">修辞学 </OPTION> ?<OPTION value="16">古代汉语</OPTION> ?<OPTION value="21">历史学</OPTION> ?<OPTION value="31">中国哲学</OPTION> ?<OPTION value="41">其他</OPTION> </SELECT> </TR> <TR><TD align=center> <INPUT NAME = "submit" VALUE = "提交" TYPE = "submit"> <TD><INPUT NAME = "reset" VALUE = "重置" TYPE = "reset"> </TD></TR> </FORM></CENTER></TABLE></BODY> </HTML> <? break; case "process": session_start(); require "config.php3"; $UploadAction=0; $index_path="\\index\\"; $added=0; //索引文件是否已经存在的标记。 $die=0; //碰到异常情况退出循环标记。 $data_exist=0; //要加入的文章已经存在的计量 $data_insert=0; //新加入文章的计量 $repeat=0; //是不是重复了。 $TimeLimit=0; //设置超时限制时间缺省时间为 30秒设置为0时为不限时 set_time_limit($TimeLimit); //$UploadPath = AddSlashes(dirname($PATH_TRANSLATED)); $FileName = $UploadPath.$UploadFile_name; //上载文件名 //If(($UploadFile != "none")&&($UploadFile != "")) If(($UploadFile =="none")||($UploadFile == "")){ $page=$PHP_SELF; xueroom_error_exit("文件名不能为空，或者文件没有上传成功。",$page); } //$file_data=file($UploadFile); $link=@MySQL_CONNECT($hostname,$dbusername,$dbpassWord) OR DIE("不能连接数据库！"); @mysql_select_db("$dbname") or die("不能选择数据库！"); $patterne="/【\s*文献号\s*】(.+)\n/U"; //文献号 $patternf="/【原文出处】(.+)\n/U"; //原文出处 $patterng="/【原刊期号】(.+)\n/U"; //原刊期号 $patternh="/【分\s*类\s*号】(.+)\n/U"; //分 类 号 $patternb="/【复印期号】(.+)\n/U"; //复印期号 //$patternc="/.*\s*【 标 题 】(.+)\n【.*/Us"; //标 题 本来不加\n，但碰到“小句(d0a1bee4)”其中的a1be正好是“【”的内码。2001/3/13 //$patternc="/【 标 题 】(.+)\n【.*/Us"; //标 题 本来不加\n，但碰到“小句(d0a1bee4)”其中的a1be正好是“【”的内码。2001/3/13 $patternc="/【\s*标\s*题\s*】(.+)\n【.*/Us"; //标 题 本来不加\n，但碰到“小句(d0a1bee4)”其中的a1be正好是“【”的内码。2001/3/13 $patternd="/【\s*作\s*者\s*】(.+)\n/U"; //作 者 $patterna="/(.+【\s*正\s*文\s*】)(.+)$/Us"; //留下一个【，作为标题栏的结束标记。 $pattern11="/【作者简介】(.+)【.*/Us";// $pattern12="/【内容提要】(.+)【.*/Us";// $fp_o=fopen("$UploadFile",'r'); $data=fread($fp_o,filesize($UploadFile)); //文件读入字符变量 fclose($fp_o); $poem_array=preg_split("/\n\s+\n\s+\n\s+/",$data); $replacement[0]="/（注.*）$/s"; //应该写上“注”，否则把“（上/下）”也删了。 $replacement[1]="/（注.*）\n\s*/s"; //为马庆株的一篇文章而设。注后还有副题。 //echo$poem_array[1]; $s=sizeof($poem_array); for($i=0;$i<$s;$i++){ //对一个网页内的所有唐诗进行操作。 //for($i=0;$i<2;$i++){ //对一个网页内的所有唐诗进行操作。 $t_data=$poem_array[$i]; // if(preg_match($pattern,$data,$matches,PREG_SET_ORDER)){ if(preg_match($patterna,$t_data,$matchesa,PREG_SET_ORDER)){ $artical_data=$matchesa[2]; //正文 $data=$matchesa[1]; //文章头 if(preg_match($patternb,$data,$matchesb,PREG_SET_ORDER)) $date_rep=$matchesb[1]; //复印期号 else $date_rep=""; if(preg_match($patternc,$data,$matchesc,PREG_SET_ORDER)){ $artical_title=trim($matchesc[1]); //标题 $artical_title=preg_replace($replacement,"",$artical_title); // echo $artical_title."<BR>"; } else $artical_title=""; if(preg_match($patternd,$data,$matchesd,PREG_SET_ORDER)) $artical_author=trim($matchesd[1]); //作者 else $artical_author=""; if(preg_match($patterne,$data,$matchese,PREG_SET_ORDER)){ $resource_id=trim($matchese[1]); //人大编号 // echo $resource_id."<BR>"; } else $resource_id=""; if(preg_match($patternf,$data,$matchesf,PREG_SET_ORDER)) $origin_periodical=trim($matchesf[1]); //期刊 else $origin_periodical=""; if(preg_match($patterng,$data,$matchesg,PREG_SET_ORDER)) $date_temp=$matchesg[1]; //出版日期 else $date_temp=""; if(preg_match($patternh,$data,$matchesh,PREG_SET_ORDER)) $artical_type=trim($matchesh[1]); //文章分类 else $artical_type=""; /* if(preg_match($pattern11,$data,$matchesd,PREG_SET_ORDER)) $author_brif=$matchesd[1]; //作者简介 else $author_brif=""; */ if(preg_match($pattern12,$data,$matches12,PREG_SET_ORDER)) $content_brif=$matches12[1]; //内容提要 else $content_brif=""; // echo$data; //echo $artical_title; /* echo $resource_id."<BR>"; echo $origin_periodical."<BR>"; echo $artical_title."<BR>"; echo $artical_author."<BR>"; */ // echo $date_rep."<BR>"; if(($artical_title=="")||($resource_id=="")){ $a=$i+1; echo "标题或人大编号为空，不合法。第 $a 篇没有加入数据库<BR>"; $die=1; //break; } else{ if(strlen(trim(substr($date_temp,6,2)))!=0){ $date_pub=substr($date_temp,0,4)."-".substr($date_temp,4,2).substr($date_temp,6,2)." 0"; } else{ $date_pub=substr($date_temp,0,4)."-".substr($date_temp,4,2)."-01 01:01:01"; //在日期的数字一定要有效，否则被置零。 // $date_pub=substr($date_temp,0,4)."-".substr($date_temp,4,2); } //如果原文发表在报纸上，则有日期 // $artical_title=preg_replace($pattern91,"",$artical_title); $origin_periodical=addslashes($origin_periodical); $artical_title=addslashes($artical_title); $date_reprinted=substr($date_rep,0,4)."-".substr($date_rep,4,2)."-01 01:01:01"; if($content_brif) $artical_data="$content_brif \r\n $artical_data"; $artical_data=addslashes($artical_data); $artical__size=strlen($artical_data); $resource_id=trim($resource_id); $query = "INSERT INTO artical (resource_id, origin_periodical,date_pub, artical_author, artical_title, artical_data, artical_type,artical__size, date_reprinted,catalog) VALUES ('$resource_id', '$origin_periodical','$date_pub', '$artical_author', '$artical_title', '$artical_data', '$artical_type','$artical__size', '$date_reprinted',$catalog)"; $q="select artical_id,resource_id,artical_title,artical_author,artical_type from artical where resource_id=\"$resource_id\""; $r = @mysql_query($q); // $count=@mysql_fetch_row($r); // echo "$artical_type,,".$count[4]."<BR>"; while($count=mysql_fetch_array($r)){ //重复的号码可能有多个，真正重复的不一定是第一个找到的。所以要用循环来找。2001/3/16 //为了找到个理由，我花的代价可是不小。 if($artical_type==$count[4]&&$artical_author==$count[3]){ $data_exist+=1; $id=$count[0]; $title=$count[2]; $author=$count[3]; $repeat=1; break; } } if($repeat){ $f_data.="<TR><TD><a href=".$dataurl."readfile.php3?artical_id=$id>$title</a><TD>作者：$author </TR>\r\n"; $repeat=0; } else{ $result = @mysql_query($query); if($result){ $data_insert+=1; $id= mysql_insert_id(); $f_data.="<TR><TD><a href=".$dataurl."readfile.php3?artical_id=$id>$artical_title</a><TD>作者：$artical_author</TR>\r\n"; } else{ echo $data; echo'数据写入失败<br>'; }//if($result) }//if(strlen($count)!=0){ //文章是否已经存在。 }//if(strlen($artical_title)==0){ }//if(preg_match($patterna,$t_data,$matchesa,PREG_SET_ORDER)){ }//for() //下面为结束处理。 set_time_limit(30); mysql_close($link); $dte_created=date('Y-m-d H:i:s'); $total=$data_exist+$data_insert; if($index_title==""){ $index_title="学而斋资料"; } $index_title=$index_title."_".$data_search; $html_header="<html><head><title>$index_title</title></head><body>"; $html_header.="<h5>$index_title</h5>\r\n"; $dte_created=date('Y-m-d H:i:s'); $html_header.="<font color='Maroon' face='楷体' size=1>$index_describe 发现了 $total 条/上载日期：$dte_created</font><hr>\r\n"; $html_header.="<table>\r\n"; $data=$html_header.$f_data; $data.="<TABLE></body></html>"; /* If(strlen($index_file)==0){ header("Content-type: text/html"); echo $data; } else { */ If(strlen($index_file)!=0){ $in_file="$index_file"; $index_file=$index_path.$in_file; } else $in_file="temp.html"; $fp=indexfile($index_file,$index_title,$index_describe); fputs($fp, "发现了 $total 条"); fputs($fp, "查询日期：$dte_created</font><hr>\r\n"); fputs($fp,"<table>\r\n"); fputs($fp, $f_data); fputs($fp, "<TABLE></body></html>"); fclose($fp); echo "<HTML><HEAD><TITLE>文件提取</TITLE></HEAD><BODY>"; if($added){ //如果索引文件存在。$added是一个全局变量。 echo "索引文件".$in_file."已经存在，新索引已经加入到文件的最后。<BR>"; // echo "请看<a href=$index_url$in_file>".$in_file.'</a>的最后'.$total.'条。<BR>'; } else{ //将新索引文件写入总索引文件。 $total_index=$index_path."k_index.html"; $fp_i=fopen($total_index,'a+'); $file_link="<a href=$index_url$in_file>$index_describe</a><BR>\r\n"; fputs($fp_i, $file_link); fclose($fp_i); }//if($added) echo"点<a href=$index_url$in_file>这里</a>看新加入的文件索引<BR>"; /
查看更多关于人大复印资料处理程序_输入篇-PHP实例的详细内容...