帝国CMS 批量更新标题首字母

<?$sql=$empire->query("select id,title from {$dbtbpre}ecms_news where id>5000 order by id limit 1000");while($r=$empire->fetch($sql)){if($r[title]){$zm=GetInfoZm($r[title]);$empire->query("update {$dbtbpre}ecms_news set infozm='$zm' where id=$r[id] limit 1");}}?>