<% Option Explicit %> <% Response.Buffer = True Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" If IsEmpty(Session("SESSION_ID")) Then Response.Redirect "timeout.htm" End If %> <% Dim cn, rs, i, strSQL Dim RecCount Dim strKey Dim objBasp Dim iMuse Dim rs2 Dim strImg strKey = Request.ServerVariables("QUERY_STRING") strSQL = "SELECT * FROM K_RPTHN WHERE REPOT_CH_ID = '"& strKey &"'" Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Session("MDB_B") & ";" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, cn, 1, 1 RecCount = rs.RecordCount 'BASP21 Set objBasp = Server.CreateObject("BASP21") 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") 'Response.Write strSQL %>

<% If RecCount > 0 Then %> <% Else %> データが見つかりません。 <% End If %> 資料ＩＤ <% =NullRepWSP(rs.Fields("REPOT_CH_ID")) %> 書名 <% =NullRepWSP(rs.Fields("SHO_NM")) %> 巻次 <% =NullRepWSP(rs.Fields("KANJI")) %> 副書名 <% =NullRepWSP(rs.Fields("SUB_SHO_NM")) %> 副書名巻号 <% =NullRepWSP(rs.Fields("SUB_SHO_KANGO")) %> シリーズ名 <% =NullRepWSP(rs.Fields("SERIES_NM")) %> シリーズ番号 <% =NullRepWSP(rs.Fields("SERIES_NO")) %> 編著者名 <% =NullRepWSP(rs.Fields("TYOHEN_NM")) %> 編集機関 <% =NullRepWSP(rs.Fields("HEN_KK_NM")) %> 発行機関 <% =NullRepWSP(rs.Fields("HAKKO_KK")) %> 発行年月日 <% =NullRepWSP(rs.Fields("HAKKO_YMD")) %> 分類１ <% =NullRepWSP(rs.Fields("BUNRUI1")) %> 分類２ <% =NullRepWSP(rs.Fields("BUNRUI2")) %> 分類３ <% =NullRepWSP(rs.Fields("BUNRUI3")) %> 分類４ <% =NullRepWSP(rs.Fields("BUNRUI4")) %> 分類５ <% =NullRepWSP(rs.Fields("BUNRUI5")) %> 分類記号１ <% =NullRepWSP(rs.Fields("BUN_KG1")) %> 分類記号２ <% =NullRepWSP(rs.Fields("BUN_KG2")) %> 分類記号３ <% =NullRepWSP(rs.Fields("BUN_KG3")) %> 分類記号４ <% =NullRepWSP(rs.Fields("BUN_KG4")) %> 分類記号５ <% =NullRepWSP(rs.Fields("BUN_KG5")) %> 収蔵書架ＩＤ <% =NullRepWSP(rs.Fields("SHUZO_SYK_NO")) %> 版権 <% =NullRepWSP(rs.Fields("CHOKEN_NM")) %> <% strSQL = "SELECT * FROM RH_KANREN_FL WHERE REPOT_CH_ID = '" & rs.Fields("REPOT_CH_ID") & "'" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open strSQL, cn, 1, 1 If rs2.RecordCount > 0 Then %> ">ダウンロード <% End If %>

<% Set rs = Nothing Set rs2 = Nothing cn.Close %>