|
|
//本程序是為解析人大復(fù)印資料的文章到數(shù)據(jù)庫(kù)專(zhuān)用。
//編者：孔秀祥。日期：2001/4/10
switch($position) {
default:
session_start();
if (!isset($auth_passed)) {
echo "本功能只有授權(quán)用戶(hù)才能使用。";
return -1;
}
if(isset($u_name)) {
session_name($u_name);
//echo "<center><font color='red'>".session_name().":本程序?qū)⒔哒\(chéng)為您服務(wù)。</font></center>/n";
//echo "<hr>";
}
?>
<HTML><HEAD>
<TITLE>文章加入數(shù)據(jù)庫(kù) </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>索引標(biāo)題<TD><INPUT NAME = "index_title" TYPE = "text" VALUE="學(xué)而齋資料" SIZE = "30"></TD></TR>
<TR><TD rowspan=5>查詢(xún)說(shuō)明</TD>
<!--/TR><TR-->
<TD rowspan=5><TEXTAREA wrap=on rows="5" cols="30" NAME = "index_describe" SIZE = "250">
人大復(fù)印資料(1985－1989)根據(jù)任意詞查詢(xún)，任意詞=
</TEXTAREA></TD>
</TR>
<TD>文章分類(lèi)</TD>
</TR>
<TR><TD>
<SELECT size="1" name="catalog" TYPE = "int" default=11>
?<OPTION selected value="11">語(yǔ)言理論</OPTION>
?<OPTION value="12">語(yǔ)法學(xué)</OPTION>
?<OPTION value="13">語(yǔ)義學(xué)</OPTION>
?<OPTION value="14">語(yǔ)用學(xué)</OPTION>
?<OPTION value="15">修辭學(xué) </OPTION>
?<OPTION value="16">古代漢語(yǔ)</OPTION>
?<OPTION value="21">歷史學(xué)</OPTION>
?<OPTION value="31">中國(guó)哲學(xué)</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; //索引文件是否已經(jīng)存在的標(biāo)記。
$die=0; //碰到異常情況退出循環(huán)標(biāo)記。
$data_exist=0; //要加入的文章已經(jīng)存在的計(jì)量
$data_insert=0; //新加入文章的計(jì)量
$repeat=0; //是不是重復(fù)了。
$TimeLimit=0; //設(shè)置超時(shí)限制時(shí)間缺省時(shí)間為 30秒設(shè)置為0時(shí)為不限時(shí)
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("文件名不能為空，或者文件沒(méi)有上傳成功。",$page);
}
//$file_data=file($UploadFile);
$link=@MYSQL_CONNECT($hostname,$dbusername,$dbpassword) OR DIE("不能連接數(shù)據(jù)庫(kù)！");
@mysql_select_db("$dbname") or die("不能選擇數(shù)據(jù)庫(kù)！");
$patterne="/【/s*文獻(xiàn)號(hào)/s*】(.+)/n/U"; //文獻(xiàn)號(hào)
$patternf="/【原文出處】(.+)/n/U"; //原文出處
$patterng="/【原刊期號(hào)】(.+)/n/U"; //原刊期號(hào)
$patternh="/【分/s*類(lèi)/s*號(hào)】(.+)/n/U"; //分 類(lèi) 號(hào)
$patternb="/【復(fù)印期號(hào)】(.+)/n/U"; //復(fù)印期號(hào)
//$patternc="/.*/s*【 標(biāo) 題 】(.+)/n【.*/Us"; //標(biāo) 題 本來(lái)不加/n，但碰到“小句(d0a1bee4)”其中的a1be正好是“【”的內(nèi)碼。2001/3/13
//$patternc="/【 標(biāo) 題 】(.+)/n【.*/Us"; //標(biāo) 題 本來(lái)不加/n，但碰到“小句(d0a1bee4)”其中的a1be正好是“【”的內(nèi)碼。2001/3/13
$patternc="/【/s*標(biāo)/s*題/s*】(.+)/n【.*/Us"; //標(biāo) 題 本來(lái)不加/n，但碰到“小句(d0a1bee4)”其中的a1be正好是“【”的內(nèi)碼。2001/3/13
$patternd="/【/s*作/s*者/s*】(.+)/n/U"; //作 者
$patterna="/(.+【/s*正/s*文/s*】)(.+)$/Us"; //留下一個(gè)【，作為標(biāo)題欄的結(jié)束標(biāo)記。
$pattern11="/【作者簡(jiǎn)介】(.+)【.*/Us";//
$pattern12="/【內(nèi)容提要】(.+)【.*/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"; //應(yīng)該寫(xiě)上“注”，否則把“（上/下）”也刪了。
$replacement[1]="/（注.*）/n/s*/s"; //為馬慶株的一篇文章而設(shè)。注后還有副題。
//echo$poem_array[1];
$s=sizeof($poem_array);
for($i=0;$i<$s;$i++){ //對(duì)一個(gè)網(wǎng)頁(yè)內(nèi)的所有唐詩(shī)進(jìn)行操作。
//for($i=0;$i<2;$i++){ //對(duì)一個(gè)網(wǎng)頁(yè)內(nèi)的所有唐詩(shī)進(jìn)行操作。
$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]; //復(fù)印期號(hào)
else
$date_rep="";
if(preg_match($patternc,$data,$matchesc,PREG_SET_ORDER)){
$artical_title=trim($matchesc[1]); //標(biāo)題
$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]); //人大編號(hào)
// 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]); //文章分類(lèi)
else
$artical_type="";
/*
if(preg_match($pattern11,$data,$matchesd,PREG_SET_ORDER))
$author_brif=$matchesd[1]; //作者簡(jiǎn)介
else
$author_brif="";
*/
if(preg_match($pattern12,$data,$matches12,PREG_SET_ORDER))
$content_brif=$matches12[1]; //內(nèi)容提要
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 "標(biāo)題或人大編號(hào)為空，不合法。第 $a 篇沒(méi)有加入數(shù)據(jù)庫(kù)<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)." 00:00:00";
}
else{
$date_pub=substr($date_temp,0,4)."-".substr($date_temp,4,2)."-01 01:01:01";
//在日期的數(shù)字一定要有效，否則被置零。
// $date_pub=substr($date_temp,0,4)."-".substr($date_temp,4,2);
} //如果原文發(fā)表在報(bào)紙上，則有日期
// $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)){ //重復(fù)的號(hào)碼可能有多個(gè)，真正重復(fù)的不一定是第一個(gè)找到的。所以要用循環(huán)來(lái)找。2001/3/16
//為了找到個(gè)理由，我花的代價(jià)可是不小。
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'數(shù)據(jù)寫(xiě)入失敗<br>';
}//if($result)
}//if(strlen($count)!=0){ //文章是否已經(jīng)存在。
}//if(strlen($artical_title)==0){
}//if(preg_match($patterna,$t_data,$matchesa,PREG_SET_ORDER)){
}//for()
//下面為結(jié)束處理。
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="學(xué)而齋資料";
}
$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 發(fā)現(xiàn)了 $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, "發(fā)現(xiàn)了 $total 條");
fputs($fp, "查詢(xún)?nèi)掌冢?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是一個(gè)全局變量。
echo "索引文件".$in_file."已經(jīng)存在，新索引已經(jīng)加入到文件的最后。<BR>";
// echo "請(qǐng)看<a href=$index_url$in_file>".$in_file.'</a>的最后'.$total.'條。<BR>';
}
else{
//將新索引文件寫(xiě)入總索引文件。
$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"點(diǎn)<a href=$index_url$in_file>這里</a>看新加入的文件索引<BR>";
//}//If(strlen($index_file)==0){
if($data_exist>0)
echo "重復(fù)的文章共".$data_exist."篇。<BR>";
if($data_insert>0)
echo "新加入的文章共".$data_insert."篇。<HR>";
$total=$data_exist+$data_insert;
echo"上傳文件".$UploadFile_name."共有文章".$total."篇。";
echo"<BR><A HREF = $php_SELF>返回 </A>";
echo"</BODY></HTML>";
break;
}
?>
php技術(shù)：人大復(fù)印資料處理程序_輸入篇，轉(zhuǎn)載需保留來(lái)源！
鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除，多謝。
