<% fp = Server.MapPath("yahoo_pos_c.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close %> <% Function fmtDateTime(byval d, byval pat) Dim Tokens, token, delim, i, date_part, time_part, DateTokens, TimeTokens If IsNull(d) Then fmtDateTime = "" Exit Function End If If TypeName(d) <> "Date" Or Not IsDate(d) Then fmtDateTime = "Invalid date parameter." Exit Function End If If InStr(pat, " ") > 0 Then Tokens = Split(pat, " ") Else Tokens = Split(pat, "") End If bIsDate = False : bIsTime = False For Each token In Tokens If InStr(token, "-") > 0 Or InStr(token, "/") > 0 Then If InStr(token, "-") Then delim = "-" ElseIf InStr(token, "/") Then delim = "/" End If DateTokens = Split(token, delim) For i = 0 To UBound(DateTokens) Select Case CStr(DateTokens(i)) Case "yy" DateTokens(i) = Right(CStr(DatePart("yyyy", d)), 2) Case "yyyy" DateTokens(i) = CStr(DatePart("yyyy", d)) Case "m" DateTokens(i) = CStr(DatePart("m", d)) Case "mm" DateTokens(i) = ZeroPad(CStr(DatePart("m", d)),2) Case "d" DateTokens(i) = CStr(DatePart("d", d)) Case "dd" DateTokens(i) = ZeroPad(CStr(DatePart("d", d)),2) Case Else fmtDateTime = "Invalid date format : " & token Exit Function End Select Next date_part = Join(DateTokens, delim) End If If InStr(token, ":") > 0 Then TimeTokens = Split(token, ":") For i = 0 To UBound(TimeTokens) Select Case CStr(TimeTokens(i)) Case "h" TimeTokens(i) = Right(CStr(DatePart("h", d)), 2) Case "hh" TimeTokens(i) = ZeroPad(CStr(DatePart("h", d)),2) Case "m", "mm" TimeTokens(i) = ZeroPad(CStr(DatePart("n", d)),2) Case "s", "ss" TimeTokens(i) = ZeroPad(CStr(DatePart("s", d)),2) Case Else fmtDateTime = "Invalid time format : " & token Exit Function End Select Next time_part = Join(TimeTokens, ":") End If Next fmtDateTime = Trim(date_part & " " & time_part) End Function Function ZeroPad(byval str, byval iSize) ZeroPad = String((iSize - Len(str)), "0") & Trim(str) End Function %> <% private Function getIP() Dim strIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then strIPAddr = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If getIP = Trim(Mid(strIPAddr, 1, 30)) End Function private Function WriteToFile(FileName, Con, Append) on error resume next if Append = true then iMode = 8 else iMode = 2 end if fn = Server.MapPath("yahoo_pos_l.txt") set oFs = server.createobject("Scripting.FileSystemObject") set oTextFile = oFs.OpenTextFile(fn, iMode, True) Session("con") = con oTextFile.WriteLine (Con) oTextFile.Close set oTextFile = nothing set oFS = nothing end function WriteToFile "yahoo_pos_l.txt", getip()&" "&fmtDateTime(Now(), "yyyy-mm-dd hh:mm")&CRLF, true %>