<% 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") = "B" '検索方法 Session("SEARCH_TYPE") = "ISEKI" 'リターンページ Session("RETURN_PAGE") = "input_iseki_b.asp" %>

下の入力欄に検索したい語句を入力して「検索実行」ボタンを押してください。 各項目の入力例は入力フィールド右横の をクリックしてください。 ※所在地市区町村名による検索は合併以前の旧名で指定してください。 遺跡名 所在地都道府県名 鹿児島県 所在地市区町村名 (指定なし) 鹿児島市 桜島町 吉田町 三島村 十島村 指宿市 喜入町 山川町 開聞町 頴娃町 枕崎市 加世田市 大浦町 笠沙町 坊津町 知覧町 川辺町 串木野市 市来町 東市来町 伊集院町 松元町 郡山町 日吉町 吹上町 金峰町 川内市 樋脇町 入来町 東郷町 宮之城町 鶴田町 薩摩町 祁答院町 里村 上甑村 下甑村 鹿島村 阿久根市 出水市 高尾野町 野田町 東町 長島町 大口市 菱刈町 国分市 加治木町 姶良町 蒲生町 溝辺町 横川町 栗野町 吉松町 牧園町 霧島町 隼人町 福山町 大隅町 輝北町 財部町 末吉町 松山町 志布志町 有明町 大崎町 垂水市 鹿屋市 串良町 東串良町 内之浦町 高山町 吾平町 大根占町 根占町 田代町 佐多町 西之表市 中種子町 南種子町 上屋久町 屋久町 名瀬市 大和村 宇検村 住用村 瀬戸内町 龍郷町 笠利町 喜界町 徳之島町 天城町 伊仙町 和泊町 知名町 与論町 ※旧名での指定です。 所在地街区大字名 標高 (指定なし) 〜 0 m 1 〜 100 m 101 〜 200 m 201 〜 300 m 301 〜 400 m 401 〜 500 m 501 〜 600 m 601 〜 700 m 701 〜 800 m 801 〜 900 m 901 〜 1000 m 1001 m 〜 地形 (指定なし) <% Dim cn, rs Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Session("MDB_A") & ";" 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_A") & ";" 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 %> 時代 　旧石器 　縄文 　弥生 　古墳 　古代 　中世 　近世 　近代 　現代 遺跡の主な時期 主な検出遺構 主な出土遺物