View Source Code

SourceFileName = "samples/accesslog.asp"

C:\inetpub\wwwroot\aspsample\samples\accesslog.asp

<!-- このスクリプトはご自由にご利用頂いて結構ですが、無断転用などを禁止いたします。Copyright K.Nakajima -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>アクセスログを取るスクリプト</title>
</head>
<body>
<!-- このスクリプトはご自由にご利用頂いて結構ですが、無断転用などを禁止いたします。 -->
<!-- 下記のuseridの部分をお客様のユーザーIDと置き換えて下さい。-->
<!-- /excフォルダの中に、accesslog.txtが自動的に作成されます。-->
<%
 Set objFile = Server.CreateObject("Scripting.FileSystemObject")
 LogFile = Server.MapPath("_exc\accesslog.txt")
 LogMax = 300
 On Error Resume Next
 Set InStream = objFile.OpenTextFile(LogFile, 1, False)
 
 If Err <> 0 Then  
   Select Case Err       
     Case 53
       Set InStream = objFile.CreateTextFile(LogFile,False,False)       
       InStream.WriteLine ""
       InStream.Close
       Set InStream = objFile.OpenTextFile(LogFile, 1, FALSE)       
       Err.Clear
    Case Else
       Response.Write("エラー元: " & Err.Source & "<BR>")
       Response.Write("エラー番号: " & Err.Number & "<BR>")
       Response.Write("エラーの説明: " & Err.Description & "<BR>")
       Err.Clear
   End Select       
 End if       
 sOldLog = InStream.ReadAll
 InStream.Close

 Set fs = CreateObject("Scripting.FileSystemObject")
 Set OutStream = fs.CreateTextFile("c:\InetPub\wwwroot\userid\_exc\accesslog.txt", True)

 sRemoteAddr = Request.ServerVariables("REMOTE_ADDR")
 sHttpUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
 sWriteBuf = sRemoteAddr & " " & sHttpUserAgent & " " & FormatDateTime(now(), vbShortDate) & " " & FormatDateTime(now(), vbLongTime)

 OutStream.WriteLine sWriteBuf
 OutStream.Write sOldLog
 OutStream.Close
%>
アクセスログが作成されているか「_exc」フォルダ内の「accesslog.txt」をご確認下さい。
</body>
</html>