<% 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 %> <% '初・中・上級の区分 Session("LEVEL") = "C" '検索方法 Session("SEARCH_TYPE") = "IBUTSU" 'リターンページ Session("RETURN_PAGE") = "input_ibutsu_c.asp" %>

下の入力欄に検索したい語句を入力して「検索実行」ボタンを押してください。 各項目の入力例は入力フィールド右横の をクリックしてください。 遺跡名 エリア名 (指定なし) <% Dim cn, rs 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 "SELECT * FROM HELP WHERE ITEMNM = 'エリア名'", cn, 1, 1 If rs.PageCount > 0 Then Do Until rs.EOF Response.Write "" Response.Write rs.Fields("CONTENTS") Response.Write "" rs.MoveNext Loop End If '破棄 cn.Close Set rs = Nothing %> 管理コード 遺物の種別 遺物の様式または系統 遺物の型式または器種 遺物の細別型式または分類 遺物の形式または種類 遺物の特徴または素材 遺物の出土層位 遺物の時期１ (指定なし) <% 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 "SELECT * FROM HELP WHERE ITEMNM = '遺物の時期1'", cn, 1, 1 If rs.PageCount > 0 Then Do Until rs.EOF Response.Write "" Response.Write rs.Fields("CONTENTS") Response.Write "" rs.MoveNext Loop End If '破棄 cn.Close Set rs = Nothing %> 遺物の時期２ (指定なし) <% 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 "SELECT * FROM HELP WHERE ITEMNM = '遺物の時期2'", cn, 1, 1 If rs.PageCount > 0 Then Do Until rs.EOF Response.Write "" Response.Write rs.Fields("CONTENTS") Response.Write "" rs.MoveNext Loop End If '破棄 cn.Close Set rs = Nothing %> 遺物の部位 遺物所蔵者