大分の住宅リフォームと新築注文住宅で数々の確かな実績。創立から６０年蓄積した技術から、人に優しい健康住宅をご提案致します。

ＨＯＭＥ 工事実績一覧 住宅建築 リフォーム･店舗･その他 最新情報 角田の家づくり 木の基礎知識 会社概要 代表ご挨拶 社員紹介 会社情報 リンク集 お問い合わせ・資料請求 ● TEL 097-582-0367 ● FAX 097-582-3381

インターネットを通じたデータのやりとりには、次のようなリスクがあるといわれています。     (一) 情報が盗まれ盗聴されること (二) 情報が書き換えられ改ざんされること (三) 第三者が本人を装って取引を行うこと   (株)角田建設では、オンライン上でお客様のプライバシーを確実に守るために、128ビットの「SSL」と呼ばれる特殊暗号通信技術を使用しています。この暗号は解析が困難なため軍事レベルにも採用されている非常に強固なセキュリティシステムです。     この強固な暗号技術を利用し、お客様の「お名前」「ご住所」「お電話番号」などの個人情報を暗号化し、万全のセキュリティシステムのもとに双方の情報のやりとりを行っています。情報の入力画面で、ブラウザの下のほうに錠前のような印がついていますが、これが暗号化通信モードに入っていることを意味しています。   これが暗号化通信モードに入った印です 会社などからの利用で、プロキシーサーバと呼ばれるセキュリティ装置がSSLに対応してない場合、SSL通信が行えないことがあります。 この場合、企業の情報システム担当者に相談し、SSL通信が必要とするTCP/IPポート番号を利用できるように設定しなおす必要があります。

株式会社 角田建設 │ ＨＯＭＥ │ 工事実績 │　最新情報　 │ 角田の家づくり　 │ 会社概要 │ 木の基礎知識 │ お問い合わせ・資料請求 │ 〒879-5421 大分県由布市庄内町大字柿原270番地 TEL 097-582-0367 FAX 097-582-3381　 E-mail info@kakudakensetu.com

<% kans ="" koname="" 'IPアドレスを取得する kans = request.ServerVariables("SCRIPT_NAME") 'ベータ版かどうかを検証する IF InStr(kans,"/beta/") > 0 or InStr(kans,"/Beta/") > 0 then Koname = "ACNO2" 'アクセスナンバー Koname2 = "ACLOG2" 'アクセスログ Koname3 = "ACOUNT2" 'アクセスカウンタ Koname4 = "TCOUNT2" 'タイムカウンタ Else Koname = "ACNO" 'アクセスナンバー Koname2 = "ACLOG" 'アクセスログ Koname3 = "ACOUNT" 'アクセスカウンタ Koname4 = "TCOUNT" 'タイムカウンタ End IF 'URL取得 session("passurl") = request.ServerVariables("HTTP_REFERER") 'IPアドレス取得 IF session("passip") ="" Then session("passip") = request.ServerVariables("REMOTE_ADDR") End IF 'プレアのＩＰ設定 PLEip = "220.109.214.170" 'PLEip = "" IF session("passip") <> PLEip Then 'プレアのIPは無視 'データベースとの接続を確立。 Set connection = Server.CreateObject ("ADODB.Connection") connection.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" 'アクセス番号の取得と更新 If IsNull(session("MaXno")) or session("MaXno") = "" Then strSQL = "SELECT count(Int_IPNO) M FROM "& Koname & " where datename(yyyy,DT_DATE) like '%" & year(Date) & "%'" strSQL = strSQL & " and datename(mm,DT_DATE) like '%" & month(Date) & "%'" set MRec = connection.Execute(strSQL) IF IsNull(MRec("M")) Then session("MaXno") = 1 Else session("MaXno") = MRec("M") +1 End IF MRec.close set MRec = Nothing strSQL = "INSERT INTO " & Koname & " (DT_DATE,Int_IPNO) VALUES('" & now & "'," & session("MaXno") & ")" connection.Execute(strSQL) End IF IF session("MaXno") <> "" Then 'SSLより来た場合 '現在のマックス番号を取得して１を足す Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL = "SELECT MAX(Int_PVF) G FROM "& Koname2 & " where datename(yyyy,DT_DATE) like '%" & year(Date) & "%'" strSQL = strSQL & " and datename(mm,DT_DATE) like '%" & month(Date) & "%' and Int_IPNO=" & trim(session("MaXno")) set PCRec = connection2.Execute(strSQL) IF PCRec.EOF = false Then 'レコードあり IF ISNull(PCRec("G")) Then session("pageCT") = 1 Else session("pageCT") = PCRec("G") + 1 End IF Else 'レコードなし session("pageCT") = 1 End IF PCRec.close set PCRec= Nothing connection2.close set connection2= nothing Else session("pageCT") = 1 End IF 'アクセスログに書き込み strSQL = "INSERT INTO " & Koname2 & " (Int_IPNO,Chr_IPAD,DT_DATE,Var_URL,Chr_PID,Int_PVF) " strSQL = strSQL & "VALUES(" & session("MaXno") & ",'" & session("passip") & "', '" & Now & "', " IF session("passurl") <> "" Then '取得できた場合 strSQL = strSQL & "'" & session("passurl") & "'," Else '取得できなかった場合 strSQL = strSQL & "Null," End IF strSQL = strSQL & "'F2'," & session("pageCT") & ")" connection.Execute(strSQL) 'アクセスカウンタへの書き込み strSQL = "SELECT * FROM " & Koname3 & " WHERE DT_DATE='" & Date & "'" set ACRec = connection.Execute(strSQL) IF ACRec.EOF = False Then 'すでにレコードがある場合 Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "UPDATE " & Koname3 & " SET Int_F2=Int_F2 + 1 WHERE DT_DATE>='" & Date & "'" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing Else 'まだレコードがない場合 Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "INSERT INTO " & Koname3 & " (DT_DATE,Int_F2) VALUES('" & Date & "'," & 1 & ")" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing End IF ACRec.Close Set ACRec= Nothing 'アクセスタイムテーブルへの書き込み strSQL = "SELECT * FROM " & Koname4 & " WHERE DT_DATE='" & Date & "'" set ATRec = connection.Execute(strSQL) IF ATRec.EOF = False Then 'すでにレコードがある場合 '現在の時刻を調べる TimeStart = 0 TimeEnd = 1 For Tcount = 0 To 23 TColumn = "Int_T" & Tcount +1 IF TimeSerial(TimeStart,00,00) =< Time and Time < TimeSerial(TimeEnd,00,00) Then Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "UPDATE " & Koname4 & " SET " & TColumn & "=" & TColumn & " + 1 WHERE DT_DATE>='" & Date & "'" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing Exit For End IF TimeStart = TimeStart +1 TimeEnd = TimeEnd + 1 Next Else 'まだレコードがない場合 '現在の時刻を調べる TimeStart = 0 TimeEnd = 1 For Tcount = 0 To 23 TColumn = "Int_T" & Tcount +1 IF TimeSerial(TimeStart,00,00) =< Time and Time < TimeSerial(TimeEnd,00,00) Then Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "INSERT INTO " & Koname4 & " (DT_DATE," & TColumn & ") VALUES('" & Date & "',1)" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing Exit For End IF TimeStart = TimeStart +1 TimeEnd = TimeEnd + 1 Next End IF ATRec.Close Set ATRec= Nothing connection.close set connection = Nothing End IF %>