' **********************************************************
' ログ書き込み
' **********************************************************
Sub WriteLog( )
Dim aFile
' ログデータを配列として読み込み
aFile = GetFile( Server.MapPath( Session("INI_LOGFILE") ) )
Dim objFp
' ログファイルを書き込みモードでオープン
Set objFp = objFs.CreateTextFile(Server.MapPath( Session("INI_LOGFILE") ), True)
Dim strDate
' 日付フォーマット
dtDate = Date
strDate = Year( dtDate )
strDate = strDate & Right( "0" & Month( dtDate ), 2 )
strDate = strDate & Right( "0" & Day( dtDate ), 2 )
strDate = strDate & Right( "0" & Hour( dtDate ), 2 )
strDate = strDate & Right( "0" & Minute( dtDate ), 2 )
strDate = strDate & Right( "0" & Second( dtDate ), 2 )
strDate = FormatDateTime( Now ) & " (" & WeekdayName(Weekday(Date)) & ")"
Dim strUserName,strTitle,strMessage
' カンマのコンバート
strUserName = Replace( Request.Form("UserName"), ",", "," )
strTitle = Replace( Request.Form("Title"), ",", "," )
strMessage = Replace( Request.Form("Message"), ",", "," )
' その他のコンバート
strMessage = Server.HTMLEncode( strMessage )
strUserName = Server.HTMLEncode( strUserName )
strTitle = Server.HTMLEncode( strTitle )
' 改行のコンバート
strMessage = Replace(strMessage, vbCrLf, "<BR>")
' POST されたデータの書き込み
objFp.WriteLine strDate & "," & strUserName & "," & strTitle & "," & strMessage
Call WriteArray( objFp, 0, Ubound(aFile)-1, aFile )
objFp.Close
End Sub