ASP&ASP.NET 데이터 받아서 asp파일로 txt파일 저장하기

페이지 정보

작성자 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 댓글 0건 조회 3,481회 작성일 13-11-26 12:42

본문

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

답변목록

등록된 답변이 없습니다.

Total 0건 1 페이지
게시물 검색
번호 제목 글쓴이 조회 날짜
게시물이 없습니다.