LIN001-1.php
3.23 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
<?php
//*****************************************************************************
//*
//* プログラム名：リンク集
//* プログラムID：LIN001.php
//* 機能 ：リンク表示
//* 作成者 ：K.Yoshimura
//*
//*****************************************************************************
header("Content-type: text/html; charset=EUC-JP");
include("include/session_start.inc");
include("include/SessionChk.inc");
include("include/STRING.inc");
include('./include/smarty.conf');
$strDBinc="include/dbcon.inc";
include($strDBinc);
$strSQL="";
$objRec="null";
$strSQLSyain="";
$objRecSyain="null";
$messCt=0;
$hiddenComment .= '<input type="hidden" name="comments" value="">'."\n";
$hiddenComment .= '<DIV CLASS="spanstyle" ID="iL0"></DIV>';
//echo '<SCRIPT type="text/javascript" language="JavaScript"><!--'."\n";
//echo 'var message = new Array();'."\n";
//マスタ情報
$strSQLmst="Select seq,category_name,disp_rank ".
"From mst_link " .
"Order by disp_rank ";
$objRecmst = pg_exec($strSQLmst);
if($objRecmst==false){
echo("SQL実行に失敗しました(SELECT)");
exit;
}
for ($intCnt = 0; $intCnt < pg_numrows($objRecmst); $intCnt++) {
$objmst = pg_fetch_object($objRecmst, $intCnt);
$seq_mst=$objmst->seq;
$strSQL="Select seq,url,title,explanation,name_kj_sei,name_kj_mei ".
"From link,syain_tbl " .
"Where seq_mst = $seq_mst and link.syain_cd=syain_tbl.syain_cd ".
"Order by seq ";
$objRec = pg_exec($strSQL);
if($objRec==false){
echo("SQL実行に失敗しました(SELECT)");
exit;
}
$category_name[$intCnt]=$objmst->category_name;
$numrows[$intCnt] = pg_numrows($objRec);
for ($intDataCnt = 0; $intDataCnt < pg_numrows($objRec); $intDataCnt++) {
$objData = pg_fetch_object($objRec, $intDataCnt);
// $explanation[$intCnt][$intDataCnt]=LINE_BR($objData->explanation,34);
$url[$intCnt][$intDataCnt] = $objData->url;
$title[$intCnt][$intDataCnt] = '<A href="'.$objData->url.'" target="_blank" onmouseover="Mover('.($messCt+1).')" onmouseout="Mout('.($messCt+1).')">'.$objData->title.'</A>' ;
$namekj[$intCnt][$intDataCnt] = $objData->name_kj_sei.$objData->name_kj_mei;
$seq2[$intCnt][$intDataCnt] = $objData->seq;
$category_name_bk[$intCnt][$intDataCnt+1]=$category_name[$intCnt];
if($objData->explanation!=""){
$Set_explanation = htmlspecialchars($objData->explanation);
$explanation[$intCnt][$intDataCnt]=LINE_BR($Set_explanation,34);
}else{
$explanation[$intCnt][$intDataCnt]="詳細表示はありません。";
}
//echo "message[".$messCt."] = \"".$explanation[$intCnt][$intDataCnt]."\"\n";
$hiddenComment .= '<input type="hidden" name="comments" value="'.htmlspecialchars($explanation[$intCnt][$intDataCnt]).'<BR>('.$namekj[$intCnt][$intDataCnt].')">'."\n";
$hiddenComment .= '<DIV CLASS="spanstyle" ID="iL'.($messCt+1).'"></DIV>';
$messCt+=1;
}
}
//echo '//--></SCRIPT>';
$o_smarty->assign('category_name',$category_name);
$o_smarty->assign('explanation',$explanation);
$o_smarty->assign('category_name_bk',$category_name_bk);
$o_smarty->assign('numrows',$numrows);
$o_smarty->assign('url',$url);
$o_smarty->assign('title',$title);
$o_smarty->assign('namekj',$namekj);
$o_smarty->assign('seq2',$seq2);
$o_smarty->assign('hiddenComment',$hiddenComment);
$o_smarty->display('LIN001-1.tpl');
?>