<% ''************************************************** '' MISOクリックカウント Version 1.0 ''************************************************** '' '' --------------------------------------------- '' 著作権および使用条件・改造・再配布の許諾について '' --------------------------------------------- '' '' 営利・非営利使用に関わらず、本プログラムを使用する際 '' には、下記を十分に理解してお使いください。 '' '' 著作権について: ''  * 本プログラムの著作権はMIS沖縄(ty@misokinawa.com) ''   が保有しています。 '' '' 使用条件について: ''  * 本プログラムは、MIS沖縄の提供するサービスのみにお ''   いて使用することができます。本プログラムを他のホス ''   ティングサービスで使ったり、MIS沖縄に無断で使用す ''   ることを固く禁じます。 ''   上記の利用条件を犯して利用している場合、法的手段を ''   使う場合もあります。 ''  * 本プログラムを使用した上で生じたいかなる損害につい ''   ても、作者は一切の責任を負いません。 ''  * 作者はバージョンアップの義務を負いません。 '' '' 改造について: ''  * 上記の使用条件を厳守していれば、改造してお使いになっ ''   てもかまいません。 ''   ただし、改造されたものについては、MIS沖縄は不具合修 ''   正などのサポートをいっさい行いません。自己責任におい ''   て改造してください。 '' '' 再配布について: ''   いかなる場合においても、MIS沖縄に無断で再配布するこ ''   とは認めません。再配布した場合は、法的手段を使います。 '' '' Copyright (C) 2003, MIS Okinawa ( ty@misokinawa.com ) '' ''************************************************** ''************************************************** '' プログラム本体 ''************************************************** Dim sUrl Dim sCip Dim sDate Dim sTime Dim objConn Dim sSql sUrl = Request.QueryString sUrl = Right(sUrl, Len(sUrl)-4) sCip = Request.ServerVariables("REMOTE_ADDR") sDate = jptime() sSql = "INSERT INTO linkstat VALUES (" sSql = sSql & "#" & sDate & "#, " sSql = sSql & "'" & sCip & "', " sSql = sSql & "'" & addSQ(sUrl) & "');" Set objConn = Server.CreateObject("ADODB.Connection") On Error Resume Next objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/database/misolinkstat_wjreport.mdb") objConn.Execute sSql Call closeConn Response.Redirect(sUrl) Sub closeConn objConn.Close Set objConn = Nothing 'Response.Write "

" & sUrl & "

" '' for debug End Sub Function jptime() Dim dst1 Dim dst2 Dim regulartimediff regulartimediff = 15 dst1 = firstSun(4) & " 2:00:00" dst2 = DateAdd("D", -7, firstSun(11)) & " 1:59:59" If Now() > dst1 And Now() < dst2 Then jptime = dateAdd("H", regulartimediff+1, Now()) Else jptime = dateAdd("H", regulartimediff, Now()) End If End Function Function firstSun(sMon) Dim dYear Dim fs Dim dt dYear = Year(Now()) For fs = 1 to 7 dt = sMon & "/" & fs & "/" & dYear If Weekday(dt) = 1 Then Exit For End If Next firstSun = dt End Function function addSQ(str) addSQ = replace(str, "'", "''") addSQ = replace(addSQ, ";", ":") addSQ = replace(addSQ, "INSERT", "I-NSERT",1,3,1) addSQ = replace(addSQ, "DELETE", "D-ELETE",1,3,1) addSQ = replace(addSQ, "SELECT", "S-ELECT",1,3,1) addSQ = replace(addSQ, "CREATE", "C-REATE",1,3,1) addSQ = replace(addSQ, "DROP", "D-ROP",1,3,1) addSQ = replace(addSQ, "UPDATE", "U-PDATE",1,3,1) End function %>