Celeste Bulletin board 首页调用
Celeste Bulletin board 2003新帖首页调用代码
调用方法
1.带参数
newtopic.php?tnum=15&tlen=34
15条最新主题,每条最多34个字符
2.不带参数
newtopic.php
采用默认值,15条最新主题,标题最多34个字符
===============================================================================
修改方法:
将下面红色的DATA_PATH和$forumURL做相应的修改
注意;标为绿色的语句只占一行,切记.
===============================================================================
为方便计(避免复制出错),本站下载中心有下载 http://www.upsdn.net/html/lists/24.htm
================================================================================
/*
New Topic List for Celeste Bulltin Board 2003 1.1.3
http://www.upsdn.net
*/
define('DATA_PATH','../cgi-bin/celeste_data');
$forumURL="http://forum.upsdn.net/";
include( DATA_PATH.'/settings/config.global.php');
// set the error reporting level for this script
error_reporting(E_ALL);
set_magic_quotes_runtime(0);
include_once(DATA_PATH.'/src/core/com/celeste/class.database.php');
// Database initialization
$DB = new DB( SET_DATABASE_HOST, SET_DATABASE_USER, SET_DATABASE_PASSWORD, SET_DATABASE_DBNAME );
// Get Comminted Parameter
$tnum= array_key_exists("tnum", $_GET) ? $_GET['tnum'] : 15;
$tlen= array_key_exists("tlen", $_GET) ? $_GET['tlen'] : 34;
$forum_topics = GetNewTopics($tnum,$tlen);
for($i=0;$i
$forum_topics[$i]['url']=str_replace("\"","'",$forum_topics[$i]['url']);
$forum_topics[$i]['title']=str_replace("\"","'",$forum_topics[$i]['title']);
echo "document.write(\"[".$forum_topics[$i]['date']."]".$forum_topics[$i]['title']."
\");\n";
}
$DB->disconnect();
function GetNewTopics($rownum=10,$titlelen=22,$maxforumid=0)
{
global $DB;
$attach=($maxforumid > 1)?('<'.$maxforumid):(' in ('.GetAvailableForumsID().')');
$query = 'SELECT topicid,topic,lastupdate FROM celeste_topic WHERE forumid'.$attach.' ORDER BY lastupdate DESC';
$rs=& $DB->query($query, 0 , $rownum);
$newtopics=array();
while($topicRow =& $rs->fetch())
{
$title=CutTitle($topicRow['topic'],$titlelen);
$url='index.php?prog=topic::flat&tid='.$topicRow['topicid'];
$adddate=date("m-d",$topicRow['lastupdate']);
$newtopics[]=array('url'=>$url,'title'=>$title,'date'=>$adddate);
}
$rs->free();
return $newtopics;
}
function GetAvailableForumsID()
{
global $DB;
$AVAForumIDs = '';
$rs =& $DB->query('SELECT DISTINCT forumid FROM celeste_forum WHERE allowview=1');
while ($rs->next_record())
$AVAForumIDs .= $rs->get('forumid').',';
$rs->free();
$AVAForumIDs =& substr($AVAForumIDs,0,-1);
return $AVAForumIDs;
}
function CutTitle($str,$strlen=10,$other=true)
{
$j = 0;
for($i=0;$i<$strlen;$i++)
{
if(ord(substr($str,$i,1))>0xa0)
$j++;
}
if($j%2!=0)
$strlen++;
$rstr=substr($str,0,$strlen);
if(strlen($str)>$strlen && $other)
{
$rstr.='...';
}
return $rstr;
}
?>
============================================================
作者:CodeBreaker 更新日期:2004-11-17
来源:http://www.upsdn.net
浏览次数:
相关文章
相关评论 发表评论
ndun [2005-01-01]
我按照这个代码,怎么不能调用,老是提示网页错误啊!!!