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
|
||
|
|
%>
|