English Sentence Loading...
英语句子加载中...
上一篇
下一篇
asp获取客户的IP和访问时间，并生成txt文件
作者:jiaming 日期:2009-09-24
<% '获取客户的IP和访问时间
dim t,d,str
t=time()
d=date()
str=d&" "&t
set myfileobject=server.CreateObject("scripting.filesystemobject")
set appnedtextfile=myfileobject.opentextfile(server.MapPath("getIP.txt"),8,true)
appnedtextfile.writeline("IP:"&request.ServerVariables("remote_host")&" 访问时间: "&str)
appnedtextfile.close
%>
dim t,d,str
t=time()
d=date()
str=d&" "&t
set myfileobject=server.CreateObject("scripting.filesystemobject")
set appnedtextfile=myfileobject.opentextfile(server.MapPath("getIP.txt"),8,true)
appnedtextfile.writeline("IP:"&request.ServerVariables("remote_host")&" 访问时间: "&str)
appnedtextfile.close
%>
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: 596
发表评论
