골빈넷 따라하기.. 웹페이지 파싱..

골빈해커님이 만드신.. http://blog.golbin.net/ ..
블로그 사이트에 올라온 최신 포스팅 글들을 쭉 모아오는...
내가 php는 잘몰라서.. 어찌 했는지 물어봤더니..
간단하다는 말만.. 후후 -_-;;;
php로 개발한것 같던데..
asp로 한번 만들어 보고 싶은.. 생각이 들어서..

asp로 그냥 하기는 힘들거 같구..
vb에 있는 inet 컨트롤을 이용해서 파싱.. 해봤는데.
그런데로 만족할만한 결과가 온것 같다.
일단 TatterTools 사이트에 있는것만 뽑아 오는 소스는 아래와 같다.
별로.. 대단한건 아니지만..
그냥. 함 해보고 싶어서.. -_-;;;;

[CODE] <% Option Explicit Dim inet Dim tmpUrl, tmpStr Dim iStart, iEnd, content Dim tmpCont, i '불러올 tmpUrl 주소 tmpUrl="http://www.tattertools.com/tc/view_main.php" 'inet 컨트롤 객체 생성 및 속성값 셋팅 set inet = server.CreateObject("inetCtls.Inet") inet.RequestTimeout = 20 inet.tmpUrl = tmpUrl tmpStr=inet.OpentmpUrl 'Split로 자를 기준포인트를 만들기 위해 의미없는 문자를 삽입 tmpStr = Replace(tmpStr,"<td class=h1","!@#$%<td class=h1") '가져올 문자열 범위 설정 iStart=intmpStr(tmpStr, "!@#$%") iEnd=intmpStr(tmpStr, "<table width=470 cellpadding=0 cellspacing=0 style=margin-top:15>") '해당범위만큼 문자를 가져와서 변수에 담음 content=Mid(tmpStr, iStart, iEnd-iStart) '해당하는 내용중에 반복되는 값을 기준으로 잘라서 배열에 담는다 tmpCont = split(content,"!@#$%") Response.Write "<table width=""100%"" border=0 cellpadding=0 cellspacing=0>" Response.Write "<tr><td class=h1 colspan=3>***Tatter Tools***</td></tr>" Response.WRite "<tr onmouseover=""this.style.backgroundColor='#FFFAF0';"" onmouseout=""this.style.backgroundColor='#FFFFFF';"">" '루프를 돌면서 해당 값을 화면에 출력 for i=Lbound(tmpCont) to Ubound(tmpCont) if i> 30 then exit for Response.Write tmpCont(i) Next '객체 반환 Set inet = nothing %> [/CODE]

스타일시트만 적용하면 괜찮아 질듯..
얼마나 효율적인지는 모르겠지만.. 쩝..