PHP+ACCESS文章管理程序代码

PHP+ACCESS文章管理程序代码

代码如下:
session_start();
//==========================
//作者：biyuan
//时间：2006.07
//联系：QQ6010707
//==========================
?>







//==================================
//连接数据库
//==================================
@$conn = new com("ADODB.Connection");
$conn->Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath("article.mdb"));
//==================================
//文章导航
//==================================
function article_menu(){
global $conn;
@$sql = "Select * From List";
@$rs = $conn->Execute($sql);
while(!$rs->Eof){
echo "| Fields[2]->value . "\">" . $rs->Fields[1]->value . " ";
$rs->MoveNext();
}
echo "| 后台管理\r\n";
$rs->Close();
if(@$_SESSION["ARTICLEADMIN"] == "BY_PHP_ARTICLE"){
echo "
管理选项-> | 分类管理 | 发表文章 | 文章列表 | 退出登陆";
}
}
//==================================
//文章列表：article_list(文章分类ID)
//==================================
function article_list($str){
global $conn;
@$sql = "Select id,by_title,by_name,by_time,by_count From Article Where by_class = " . $str . " Order By id desc";
@$rs = $conn->Execute($sql);
if(!$rs->Eof){
echo "\r\n"
. " \r\n"
. " \r\n"
. " \r\n";
while(!$rs->Eof){
echo " \r\n"
. " \r\n"
. " \r\n";
$rs->MoveNext();
}
echo "

文章标题	文章作者	发表时间	浏览次数
Fields[0]->value . "\">" . $rs->Fields[1]->value . "	" . $rs->Fields[2]->value . "	" . date("Y-m-d H:i:s",$rs->Fields[3]->value) . "	" . $rs->Fields[4]->value . "

\r\n";
}
else {
echo "
该分类不存在或暂时没有任何文章!";
}
$rs->Close();
}
//==================================
//文章详细：article_look(文章ID)
//==================================
function article_look($str){
global $conn;
@$sql = "Select * From Article Where id = " . $str;
@$rs = $conn->Execute($sql);
@$usql= "Update Article Set by_count = (by_count + 1) Where id = " . $str;
$conn->Execute($usql);
if(!$rs->Eof){
@$body = $rs->Fields[5]->value;
$body = str_replace("[url=file://%22,%22%22,$body/]\\","",$body[/url]);
echo "\r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. " \r\n"
. "

" . $rs->Fields[1]->value . "

文章作者:" . $rs->Fields[2]->value . " | 发表时间:" . date("Y-m-d H:i:s",$rs->Fields[3]->value) . " | 浏览次数:" . $rs->Fields[4]->value . "

" . $body . "

【 返 回 】 【 打 印 】 【 关 闭 】

\r\n"
. "