% '变量元素 Dim fsoObject '文件系统对象 Dim tsObject '文字系统对象 Dim filObject '文件对象 Session.Timeout = 10 On Error Resume Next session Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("visitor.txt"),8,True) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = GetIP() If Session("lngSessionVisitorNum") = "" Then Set tsObject = fsoObject.OpenTextFile((Server.MapPath("visitor.txt")),8,true) tsObject.Writeline GetRef() & "," & GetIP() & "," & Look_Ip(GetIP()) & "," & date & "," & time Session("lngSessionVisitorNum") = lngVisitorNumber Else 'Place the Visitor number in the session visitor number Session("lngSessionVisitorNum") = lngVisitorNumber End if Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing %>
|
|
|
友情链接 |
||||||
|
有意合作者请先做好链接,我们会在一个工作日内给您答复或做好您的链接。 本站文字链接:中国企业文化传播网 网址: http://www.miate.com |
||||||
|
|
|
|
|
|
||
| |
|
|
|
|
|
|
| |
|
|
|
|
|
|
![]() |
||||||
![]() |
||||||