<% @ LANGUAGE="VBSCRIPT" %> <% '履歴の記録 Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = Server.MapPath("rireki.txt") Set strmFile = objFile.OpenTextFile(sPathCountFile, 8, TRUE) strmFile.WriteLine Request.ServerVariables("HTTP_REFERER") & "," & Request.ServerVariables("REMOTE_ADDR") & "," & formatdatetime(now(),2) & "," & formatdatetime(now(),4) strmFile.Close 'model=Request.ServerVariables("ALL_HTTP") 'if instr(model,"DoCoMo")<>0 or instr(model,"JPHONE") then response.redirect "http://www.yashima.ac.jp/i/1" 'Randomize 'sw = rnd 'response.write sw 'if sw<0.5 then Response.Redirect "main1.asp" else Response.Redirect "main2.asp" Response.Redirect "http://study.jp/hs/yashima/index.asp" %>