connect_errno )
die("Cannot connect: ".$db->connect_error);
$db->set_charset("cp1251");
header("Content-type: text/html; charset=windows-1251");
setlocale(LC_CTYPE, "ru_RU.CP1251");
if( isset($_GET['ajax']) && strlen($_GET['ajax']) > 0 ) {
process_ajax($db);
$db->close();
exit;
}
$titler = '';
if( ($tgvridx = cleannum('card')) > 0 ) {
$result = $db->query("select concat(lower(wot.wotname),' ',water.woname) from water, wot where water.gvridx=$tgvridx and wot.wotid=water.wotid");
$data = $result->fetch_row();
if( $data !== null )
$titler = ': '.$data[0];
}
?>
Государственный водный реестр<?=$titler?>
Поиск по данным государственного водного реестра
Внимание: данные загружены в 2011 году и с тех пор не обновлялись.
0 ) $qw .= " and water.wotid = $wotid";
if( $hepidx > 0 ) { $ok=1; $qw .= " and water.hepidx = $hepidx"; }
elseif( $subbidx > 0 ) { $ok=1; $qt .= ",hep"; $qw .= " and hep.subbidx=$subbidx and water.hepidx=hep.hepidx"; }
elseif( $rbidx > 0 ) {$ok=1; $qt .= ",hep"; $qw .= " and hep.rbidx=$rbidx and water.hepidx=hep.hepidx"; }
elseif( $boid > 0 ) { $qt .= ",hep,rb"; $qw .= " and rb.boid=$boid and hep.rbidx=rb.rbidx and water.hepidx=hep.hepidx"; }
if( strlen($name) > 0 ) { $ok=1; $qw .= " and water.woname like '$name'"; }
if( strlen($loc) > 0 ) { $ok=1; $qw .= " and water.geoloc like '%$loc'"; }
if( $num > 0 ) { $ok=1; $qt .= ",waternum"; $qw .= " and waternum.gvridx = water.gvridx and waternum.idnum = $num"; }
if( $hepidx == 0 ) {
$qf .= ', hep.hepname';
if( strstr($qt, 'hep') === FALSE ) { $qt .= ',hep'; $qw .= ' and water.hepidx = hep.hepidx'; }
}
if( $ok == 1 ) {
$q = "select $qf from $qt where $qw order by water.woname";
$result = $db->query($q);
if( $result === FALSE )
echo "Неправильно составлен запрос: $q";
else {
$cntt = $result->num_rows;
if( $start > 0 && $cntt > 1 ) {
$result->data_seek(min($start, $cntt-1));
}
$cnt = min(200, $cntt);
?>Результаты поиска ( $cnt ? "$cnt из $cntt" : $cnt?> 0 ? ", начиная с ".($start+1) : '' ?>): fetch_row()) !== null) && $cnt-- > 0 ) {
echo "".$data[3].' '.$data[1]." , ".$data[2].($hepidx == 0 ? ' ('.$data[4].') ' : '')."следующая страница результатов
0 ) {
// карточка водного объекта
$result = $db->query("select water.gvrid, water.woname, wot.wotname, water.geoloc, water.hepidx, water.wotid, water.idgidrol, water.volnum, water.volver from water,wot where water.gvridx=$gvridx and wot.wotid=water.wotid");
$data = $result->fetch_row();
if( $data === FALSE )
echo "Объект $gvridx отсутствует в базе.";
else {
$data[0] = str_pad($data[0], 23, '0', STR_PAD_LEFT);
$hepidx = $data[4];
$result = $db->query("select bo.boid, bo.boname, rb.rbid, rb.rbname, hep.hepid, hep.hepname, hep.subbidx, hep.rbidx from hep,bo,rb where rb.rbidx=hep.rbidx and bo.boid=rb.boid and hep.hepidx=$hepidx");
$hepdata = $result->fetch_row();
$subbidx = isset($hepdata[6]) ? $hepdata[6] : 0;
if( $subbidx > 0 ) {
$result = $db->query("select subbid, subbname from subb where subbidx=$subbidx");
$subbdata = $result->fetch_row();
}
$wtype = $data[5] < 20 ? 1 : ($data[5] < 30 ? 2 : 0); // 2 - река, 1 - озеро
if( $wtype > 0 ) {
$result = $db->query("select wo".($wtype == 2 ? 'length' : 'area').", collecting_area from ".($wtype == 2 ? 'rivers' : 'lakes')." where gvridx=$gvridx");
$wdata = $result->fetch_row();
}
if( !isset($wdata) || $wdata === FALSE )
$wdata = array(0, 0);
$flowk = ''; $flowv = ''; $flowk1 = ''; $flowv1 = '';
if( $wtype == 1 ) { // из озера вытекают
$result = $db->query("select flow.intoidx, concat(lower(wot.wotname),' ',water.woname), flow.km from flow, water, wot where flow.gvridx=$gvridx and water.gvridx=flow.intoidx and wot.wotid=water.wotid");
$vytek = array(); $vpad = array();
while( ($fdata = $result->fetch_row()) !== null ) {
$str = "$fdata[1] ";
if( strlen($fdata[2]) == 0 ) $vpad[] = $str;
else $vytek[] = $str;
}
if( count($vytek) > 0 ) {
$flowk = count($vytek) > 1 ? 'Вытекают' : 'Вытекает';
$flowv = implode(', ', $vytek);
}
if( count($vpad) > 0 ) {
$flowk1 = 'Впадает в';
$flowv1 = implode(', ', $vpad);
}
} else { // река впадает в
$result = $db->query("select flow.intoidx, flow.km, concat(lower(wot.wotname),' ',water.woname) from flow, water, wot where flow.gvridx=$gvridx and water.gvridx=flow.intoidx and wot.wotid=water.wotid");
if( ($fdata = $result->fetch_row()) !== null ) {
$flowk1 = 'Впадает в';
$flowv1 = "$fdata[2] ";
$flowv1 .= $fdata[1] <= 0 ? '' : " в ".flformat($fdata[1])." км от устья";
}
// исток
$result = $db->query("select flow.gvridx, concat(lower(wot.wotname),' ',water.woname) from flow, water, wot where flow.intoidx=$gvridx and water.gvridx=flow.gvridx and wot.wotid=water.wotid and flow.km = 0");
if( ($fdata = $result->fetch_row()) !== null ) {
$flowk = 'Исток';
$flowv = "$fdata[1] ";
}
}
?>
$data[0],
'Тип водного объекта' => $data[2],
'Название' => $data[1],
'Местоположение' => parseloc($hepdata[0],$hepdata[7],$data[3]),
$flowk => $flowv, $flowk1 => $flowv1,
'Бассейновый округ' => $hepdata[1].' ('.$hepdata[0].')',
'Речной бассейн' => $hepdata[3].' ('.$hepdata[2].')',
'Речной подбассейн' => $subbidx < 1 ? 'нет (0)' : $subbdata[1].' ('.$subbdata[0].')',
'Водохозяйственный участок' => $hepdata[5].' ('.$hepdata[4].')',
$wtype == 1 ? 'Площадь водоёма' : ($wtype == 2 ? 'Длина водотока' : '') => $wtype > 0 ? flformat($wdata[0]).' км'.($wtype == 1 ? '²' : '') : '',
$wtype > 0 ? 'Водосборная площадь' : '' => $wtype > 0 ? flformat($wdata[1]).' км²' : '',
'Код по гидрологической изученности' => $data[6],
'Номер тома по ГИ' => $data[7],
'Выпуск по ГИ' => $data[8]
) as $k => $v ) if( strlen($k) > 0 ) { ?>
query("select wfrom, wto, wlength from ways where gvridx=$gvridx");
if( $result->num_rows > 0 ) {
echo 'Объект входит в перечень водных путей РФ ';
while( ($waydata = $result->fetch_row()) !== null ) { ?>
— :
км Внимание, это только пример, не копируйте значения в теги как есть, не думая.
= 50 && $data[5] <= 59 ) echotag('natural','coastline');
elseif( $data[5] >= 60) { echo 'Подземный водный объект, что-то с '; echokey('layer',-1); }
echokey('name', $data[1]);
echokey('status', mb_strtolower($data[2], 'cp1251'));
if( $wtype == 2 && $data[5] != 22 ) echokey('boat', !isset($boatyes) && substr($wdata[1], 0, strpos($wdata[1], '.')) < 5000 ? 'no' : 'yes');
echo('gvr:code='.$data[0]);
?>
query("select flow.gvridx, concat(lower(wot.wotname),' ',water.woname), flow.km from flow, water, wot, hep where flow.intoidx=$gvridx and water.gvridx=flow.gvridx and wot.wotid=water.wotid and hep.hepidx=water.hepidx order by flow.km, hep.hepid desc, water.woname");
while( ($fdata = $result->fetch_row()) !== null ) {
$str = "$fdata[1] ";
if( strlen($fdata[2]) == 0 ) $lakes[] = $str;
else if( $fdata[2] < 0 ) $prot[] = $str;
else if( $fdata[2] > 0 ) $rivers[] = flformat($fdata[2])." км: $str";
}
if( count($rivers) > 0 || count($lakes) > 0 || count($prot) > 0 ) {
?>
Впадают реки (км от устья) Впадают Протекает через озёра
', $rivers) ?>
', $lakes) ?>
', $prot) ?>
close();
function fetch_dict( $db, $query, $value ) {
$result = $db->query($query);
if( $result === FALSE ) return '';
$res = '';
while( ($data = $result->fetch_row()) !== null ) {
$res .= ''.$data[1].' ';
}
return $res;
}
function process_ajax($db) {
$boid = cleannum('bo');
$subbidx = cleannum('subb');
$rbidx = cleannum('rb');
$hepidx = cleannum('hep');
if( $boid < 1 ) return;
?>Речной бассейн Любой
Любой
Любое
$k =$v $k =$s$1 ", $loc);
$loc = preg_replace('/\b(руч[ьяей.] без н[звания.]+ №(\d+))/', "$1 ", $loc);
$loc = preg_replace('/\b(р[екаи.] без н[звания.]+ №(\d+))/', "$1 ", $loc);
$loc = preg_replace('/\b(?)(оз[ероа.] (\w+))/', "$1 ", $loc);
$loc = preg_replace('/\b(?<=исток )(р[еки.] ([\w-]+)\w)/', "$1 ", $loc);
$loc = preg_replace('/\b(?|п)(р[екаи.] ([\w-]+))/', "$1 ", $loc);
$loc = preg_replace('/^(([А-Я]+(?:\/[А-Я0-9]+)+))(?=\/\d+)/', "$1 ", $loc);
return $loc;
}
?>