企业文化传播网,安全生产标语 5s标语6s挂图 RoHS环保标语 ISO标语

<% '变量元素 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 本站图片链接，, 贵站做好链接后，请联系 info@miate.com , 谢谢！