<% 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") = "IKHOU" 'リターンページ Session("RETURN_PAGE") = "input_ikhou_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 %> 管理コード 時代 　旧石器 　縄文 　弥生 　古墳 　古代 　中世 　近世 　近代 　現代 遺構の主な時期 遺構内出土遺物 遺構内施設等 検出層位 埋土の特徴 遺構の種別 遺構の種類 遺構のプラン 遺構の分類