%@ Language="VBScript" %> <% GetUrl = Request.ServerVariables("HTTP_REFERER") 'アクセスログ生成 Set fs=CreateObject("Scripting.FileSystemObject") lognm=Server.MapPath("/u_izumix/flavia_ex/9th/log/") & "\izumin.log" Set ts=fs.OpenTextFile(lognm,8,True) ts.Write Now & vbTab & GetUrl & vbTab ts.WriteLine Request.ServerVariables("REMOTE_ADDR") ts.Close %>