function prev_subj($id){
    $DROOT=getenv('DOCUMENT_ROOT');
    include("sql.php3");
    $db=mysql_connect($sql['host'], $sql['user'] , $sql['passwd']);  
    $qstr="select id,aid from bbs_subj where id='$id'";
    $rs=mysql_db_query($sql['db'],$qstr);     
    $row=mysql_fetch_array($rs);
    $aid=$row['aid'];
     
    $qstr="select id from bbs_subj where aid='$aid' order by wdate DESC";
    $rs=mysql_db_query($sql['db'],$qstr);
    $pid=$id;     
    while($row=mysql_fetch_array($rs)){
        $tid=$row['id'];     
        if($id==$tid) break;
        $pid=$tid;
    }
     
    return $pid;
}
// 絞
function next_subj($id){
    $DROOT=getenv('DOCUMENT_ROOT');
    include("sql.php3");
    $db=mysql_connect($sql['host'], $sql['user'] , $sql['passwd']);  
    $qstr="select id,aid from bbs_subj where id='$id'";
    $rs=mysql_db_query($sql['db'],$qstr);     
    $row=mysql_fetch_array($rs);
    $aid=$row['aid'];
     
    $qstr="select id from bbs_subj where aid='$aid' order by wdate DESC";
    $rs=mysql_db_query($sql['db'],$qstr);
    $pid=$id;     
    while($row=mysql_fetch_array($rs)){
        $pid=$row['id'];     
        if($id==$pid) break;
    }
    if($row=mysql_fetch_array($rs)) {
        $pid=$row['id'];
    }
    return $pid;
}

//======================================================================
function viewbar() {
    global $pgno;
    global $PHP_SELF;
    global $aid,$sid;
    //global $OPEN_LIST;
    echo "<TABLE width=85% border=0 cellPadding=0 cellSpacing=1 align=center align=center class='num'";
    echo "<tr<td align=center";
        $nextid=next_subj($sid);
        $previd=prev_subj($sid);
        echo "<a href=$PHP_SELF?aid=$aid&sid=$sid[夹肈跋]</a";
        echo "<a href=#re[莱セ絞]</a";
        echo "<a href=$PHP_SELF?proc=view&aid=$aid[祇穝ゅ彻]</a";
        echo "<a href=$PHP_SELF?proc=view&aid=$aid&sid=$nextid&rid=$nextid[絞]</a";
        echo "<a href=$PHP_SELF?proc=view&aid=$aid&sid=$previd&rid=$previd[絞]</a";
        //echo "<a href=$PHP_SELF?proc=view&pgno=$pgno&aid=$aid&sid=$previd&rid=$previd[程絞]</a>