Untitled Document
이번 시간에는 지난시간에 배운 wsh를 응용해 보도록 하겠습니다.
간혹 실무를 하다보면 특정데이타를 추출하여 txt파일로 만들어서 ftp에 올려줘야 하는경우가
생기더군요...
예를들면 검색싸이트와 연동을 하기 위해 모업체에서 이런작업을 요청하더군요.
데이타를 추출하여 매일 3시간마다 한번씩 업데이트된 정보를 파일로 만들어서 ftp전송시켜주는거죠.
ㅋㅋ.. 혹시라도 이런경우가 피료하시면 참고하세요...
(유동아이피를 사용하는 컴터에서 자신의 컴터의 아이피를 실시간으로 메일이나 기타 공간에 넣어주는 응용두 가능하겠죠?)
과제) 회원정보를 아래와 같은 txt파일 형식으로 만들어서 ftp에 올리자.
과제) txt파일명은
생성날짜_시간.txt 형식이다
txt파일 생성예제
entrydev
엔트리데브
111111-11111
2004-11-11
수호천사
관리자
122131-12313
2004-12-11
.
.
.
|
자 위에 과제대로 일단은 txt파일을 만드는 asp코딩을 해보곘습니다..ㅋㅋ
createfile.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46 |
<%
dim db
Set Db = Server.CreateObject("ADODB.CONNECTION")
Db.Open "Provider=SQLOLEDB.1;Password=pwd;User
ID=sa;Initial Catalog=db;Data Source=localhost"
SQLstring = "SELECT id, name, jumin, date FROM member"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open SQLstring,db,1
filetmp = ""
do until rs.eof
filetmp = filetmp
& "" & rs("id") & chr(13) &
chr(10)
filetmp = filetmp
& "" & rs("name") & chr(13)
& chr(10)
filetmp = filetmp
& "" & rs("jumin") & chr(13)
& chr(10)
filetmp = filetmp
& "" & rs("date") & chr(13)
& chr(10)
rs.movenext
loop
rs.close : set rs = nothing
db.close : set db = nothing
myear = year(date())
mmonth = right("00"&month(date()),2)
mday = right("00"&day(date()),2)
mhour = right("00"&hour(time()),2)
mminute = right("00"&minute(time()),2)
msecond = right("00"&second(time()),2)
if filetmp <> "" then
Set fs = Server.CreateObject("Scripting.FileSystemObject")
filename = myear & mmonth
& mday & "_" & mhour & mminute & msecond &
".txt"
fs.CreateTextFile filename
Set objFile = fs.OpenTextFile(filename
,8)
objFile.writeLine(filetmp)
objFile.close
end if
%>
|
자 위 코딩을 보시면 member테이블에서 데이타를 뽑아서 해당 날짜의 txt파일을 생성하는 소스입니다.
그렇죠? ^^ 코드 설명을 해드릴까용? 흠... 오늘은 특별히 해보죵. 떱떱.
1~24 : 디비를 접속하여 쿼리를 날리고 filetmp 변수에 요청한 형식데로 입력하는부분이지요. 리스트 많이 해보셨죠?ㅋ
27~32 : 파일명 생성을 위해서 날짜와 시간을 뽑아 내는 부분입니다..
27~32 : right("00" & xxxx , 2) 이부분이
모냐구요?
27~32 : day(date()) 를 찍어보시면 1~9일까지는 자리수가 한자리가 나오죠.
이걸 두자리로 바꾸기 위한 것이죠 ㅎㅎ
27~32 : 01, 02, 03 이렇게 한자릿수 일자 앞에 0을 붙이는 코드입니다
39~40 : 파일을 생성하는 소스입니다.
42~44 : 위에서 생성된 파일을 열어서(42줄) filetmp변수에 있는 내용을 입력(43줄)하는 부분입니다.
자 어떠세요..원하시는 데로 생성이 되나요? ^^;;;
txt파일 생성은 했는데 이걸 어떻게 ftp로 올릴까요?...
위 코드를 3시간 마다 한번씩 실행하고 생성된 txt파일을 ftp프로그램을 이용해서 관리자가 직접 매일매일 올릴수는
없는 노릇입니다. 그렇죠?...
vb나 다른 언어를 이용해서 하나 맨들까요?.. 아~~ 귀찮죠?. 짱나짱나 귀차나. 아 짱나~!!!!!!!!!!!!!!!!!!!!!!!
제가 귀찮아서 고민고민 하던 끝에.. 문득 도스용 ftp가 생각나더군요.. 도스창을 실행해서.. 함 보도록 하죠
도스창을 키고 c:>ftp -? 를 입력해서 도움말을 살짝 보도록 하죠..
아 도움말이 영어로 나오죠. 아.. 머리아프... 니깐.
다 버리고.. 가운데 빨간줄 그은 부분만 보죠.. -s 라는 옵션입니다 (-a옵션두 빨간부분인데.. 실수에요
버리세요)
암튼 머 뜻은 멀겠고.. 중간중간 text file, commands, automatically, run, ftp starts 라는 단어들이
보이네요...
대충 해석하면 text file에 있는 명령어를 ftp를 실행해서 자동으로 한다는 얘기 인거 같습니다 .. ㅋㅋ
(딴지 걸지 마세요 ㅋㅋㅋ 워이워이~~)
ftp를 그냥 한번 실행해 보도록하죠..
1 : ftp를 실행합니다
2 : ftp주소를 입력합니다. 형식은 open 222.222.22.22(ip) 21(port) 입니다.
3 : ftp계정을 입력합니다.
4 : 비밀번호를 입력합니다..
로그인했다고 나오죠?. ^^;;
5 : 접속을 끊습니다.. (close)
6 : ftp 프로그램을 종료합니다 (bye)
참고루 위 주소는 접속이 안됩니다 ㅎㅎ.. 보안상 지웠습니당. 에고고...
자 그럼 위 작업을 아까 도움말에서 본 -s 옵션을 이용해서 한번 해보곘습니다.. 그전에 준비부터~!
txt파일을 하나 만듭니다..
ftp_script.txt
open 218.145.68.1 802
isenu
pwd1
put uploadtest.txt
close
bye
|
ftp 접속
ip / 포트
ftp계정
비밀번호
파일 업로드 (형식 : put 업로드할파일명)
접속 끊기
ftp종료 |
위와 같이 txt파일을 만드시구요...
테스트로 업로드할 파일 uploadtest.txt 로 하나 만들어 주세요.
준비가 끝났습니다.. 이제 실행해 보도록 하죠
c:> ftp -s:ftp_script.txt
자 어떠세요? txt파일에 있는 데로 실행이 되나요?. 업로드가 됐는지 ftp에 접속해서 확인해 보세요..
자 여기까지는 과제를 구현하기 위한 준비 작업이였습니다..
다음 시간에는.. 위에 asp코드와 아래의 ftp를 연동해서 과제를 본격적으로 구현해 보도록하곘습니다.
눈치 빠른분은 여기까지 보시면. 알아서 하시곗죠? ㅎㅎ..
그냥 계속 끝까지 쓰려다가 너무 길면. 거부감이. 생길까바.. 두시간에 걸쳐.. 하곘습니당.. 쿄...
질문이 있으신분은 질문&답변을 활용하세요...
|
로딩중 입니다.. 
제목
