ASP输出logTXT

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

Function Read_File(sFile)
Dim path,fso,fl,fc
path=Server.MapPath(sFile)
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path) Then
Set fl=fso.OpenTextFile(path,1)
If Not fl.AtEndOfStream Then
fc=fl.ReadAll
End If
fl.Close:set fl=Nothing
End If
Set fso=Nothing
Read_File=fc
End Function

IPlog=Read_File("log.txt")
ip=getIP()
timelog=time()
Set FSO=Server.CreateObject("Scripting.filesystemObject")
Set txtFile =FSO.CreateTextFile(Server.mappath("log.txt"),true)
txtFile.WriteLine(IPlog)
txtFile.WriteLine(timelog)
txtFile.WriteLine(ip)
txtFile.Close
%>

这样输出为：时间 时分秒
ip：132.465.132

如何改为输出为 时间：年 月 日 时 分 秒
IP：不用改动？
求高手

如果按系统默认时间格式输出,可以将
timelog=time()

改为
timelog=Now()

0、1和2分别表示标准输入、标准输出和标准错误信息输出， 将一个脚本的执行过程及执行结果打印到日志的常用命令： ./myscript.sh 2>&1 | tee mylog.log 可以用来指定需要重定向的标准输入或输出，比如 2>a.txt 表示将错误信息输出到文件a.txt中。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息