10 lines
273 B
Plaintext
10 lines
273 B
Plaintext
<%
|
|
IPAddress=Request.ServerVariables ("REMOTE_ADDR")
|
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
|
Set objFile = objFSO.OpenTextFile("c:\log.txt", forappending)
|
|
objFile.WriteLine (IPAddress)
|
|
|
|
objFile.close
|
|
Set objFile=nothing
|
|
Set objFSO=nothing
|
|
%> |