파일 업로드(다운로드) 작업을 수행하는 웹서버와, 업로드한 파일이 저장되는(다운로드할 파일이 저장되어 있는) 파일서버를 별개의 컴퓨터로 두고자 할 경우에는, 다음과 같은 네트워크 경로로의 액세스를 위한 추가적인 설정절차가 필요하다.

다음은 웹서버와 파일서버를 따로 두는 경우의 설정 절차이다. (Windows 2000 기준)

1. 익명 액세스를 위한 새로운 인터넷게스트계정 생성

1) 웹서버 컴퓨터에 임의의 로컬계정을 하나 만들고, 암호도 입력해 준다.
2) 이 계정에 대해 "암호 변경할 수 없음"과 "암호 사용 기간 제한 없음"이라는 두 개의 항목에만 체크표시를 해 주고, "다음 로그온할 때 반드시 암호 변경", "계정 사용 안함", "계정 잠겨 있음" 항목에 대해서는 체크표시를 없애 준다.
3) 만들어진 계정의 소속그룹 항목에서 이미 기본적으로 추가되어 있는 "Users"그룹을 제거하고, "Guests"그룹 을 추가해 준다.
4) 로컬 보안 정책 설정에서 이 계정이 "로컬 로그온" 권한을 가질 수 있도록 해 준다.
5) 파일서버 컴퓨터에서도 위 1)에서 4)와 동일한 절차를 거쳐 로컬계정을 하나 만들어 주되, 사용자 이름과 암호는 웹서버 컴퓨터에서 만들어준 것과 반드시 일치시켜 주도록 한다.

2. 웹서버 설정

1) 인터넷 서비스 관리자를 실행하여 해당 웹사이트의 디렉토리 등록정보 창을 연다.
2) "디렉터리 보안"탭에서 "익명 액세스 및 인증 제어" 항목에 있는 "편집"버튼을 클릭한다.
3) 여기서 "익명 액세스" 항목에 있는 "편집"버튼을 클릭하여, 익명 사용자 이름과 암호란에 위 1에서 만들어준 계정의 이름과 암호를 입력하되, 반드시 "IIS에서 암호를 제어할 수 있음" 체크박스의 체크표시를 없애 주도록 한다.

3. 파일서버 설정

1) 파일서버의 업로드 폴더의 디렉토리 등록정보 창을 연다.
2) 폴더를 공유하고 "공유"탭에서의 사용권한과 "보안"탭에서의 사용권한 모두에 대해 위 1에서 만들어준 계정을 추가해 준다.
3) 이 때, "공유"탭에서의 사용권한으로는 "읽기"와 "변경"을, "보안"탭에서의 사용권한으로는 "읽기", "쓰기", "수정" 권한을 지정해 주도록 한다.

위 1, 2, 3의 절차를 거쳐 웹서버와 파일서버를 설정하고 나면, 물리적 절대경로값을 필요로 하는 프로퍼티나 메쏘드에 다음과 같이 간단히 네트워크 경로를 지정함으로써, 파일을 업로드하거나 다운로드할 수 있게 된다.

예1) uploadform.DefaultPath = "\파일서버명공유폴더명"
예2) uploadform("file1").SaveAs "\파일서버명공유폴더명Sample.zip"
예3) oDownload.Download "\파일서버명공유폴더명Sample.zip"



근데.. 사실.. 잘안된다... ㅜㅡ

설정할때의 실수를 반복하지 않기 위해서 성공했던 케이스의 방법을 이렇게 정리해 놓았지만..

프로젝트 때마다 서버 셋팅을 하면서 단 한번도 한번에 깔끔하게 성공해본 적이 없다.


요는 계정을 하나 만들고 양쪽 계정을 일치 시켜 준다음에 네트웍 드라이브를 잡고 네트웍드라이브 계정 웹서버 계정 파일업로드 가상디렉토리 계정, 보안, 모든 계정을 동일하게 맞춰준다는 것이다.


하~ 서버셋팅은 넘 어려워서.. 쯧
VS.NET을 설치하고 공부를 하면서 asp.net 프로젝트를 생성하는데 다음과 같은 오류가 발생했다...


"지정된 웹서버에서 ASP.NET 버전 1.1이 실행되고 있지않아 ASP.NET 웹 응용프로그램 또는 웹 서비스를 실행할 수 없습니다."


지랄....


간만에 공부좀 할랬두만..
이게 또 시작부터 태클일세.. 훔..


msdn도 안깔았고..

간만에 구글신의 도움을 받기로 결정..


다행히 한방에 검색이 되었다.


.NET Framework를 깔지 않았을경우나

VS.NET을 설치후 IIS를 재설치 했을경우 그러한 현상이 나타납니다.

이때 VS.NET이 깔려있는 경우라면...

시작>>프로그램>>Microsoft Visual Studio .NET 2003>>Visual Studio .NET 도구>>Visual Studio .NET 2003 명
령 프롬프트

로 이동하여 명령프롬프트를 실행시킨후

aspnet_regiis /i

라고 입력하시면 해결하실수 있습니다.

출처 : 하야시의 와글와글네



그렇단다.

실행화면은 간단하다.





그렇다.

이간단한 두줄짜리 결과가.. 사람을 우롱한것이다.


그..그건아닌가.. 하튼..

간만에 공부하려니 힘들다. 젠장..



웹을 하다보면 테이블에 동적으로 행이나 열을 삽입해야 하는 경우가 있다.
그때 사용할수 있는 유용한 팁이다.

[CODE]<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=euc-kr"> <title>AnyFive</title> <script language="JavaScript"> <!-- var BasicStr = "" BasicStr = "<input type=button value=신규컬럼>"; function insertCol(tableID) { var tmpTbl = document.all[tableID] var tmpRow = tmpTbl.insertRow(tmpTbl.rows.length); for (var i=1;i<=tmpTbl.rows[0].cells.length;i++) { var tmpCell = tmpRow.insertCell(i - 1); if(i==1) { str = tmpTbl.rows.length-1 } else { str = BasicStr; } tmpCell.innerHTML = str; } } function insertRow(tableID) { var tmpTbl = document.all[tableID] var str = ""; for (var i=1;i<=tmpTbl.rows.length;i++) { var tmpRow = tmpTbl.rows[i-1].insertCell(tmpTbl.rows[i-1].cells.length); if(i==1) { str = tmpTbl.rows[i-1].cells.length-1 } else{ str = BasicStr; } tmpRow.innerText = str; } } //--> </script> </head> <body> <table style="WIDTH: 100%; HEIGHT: 100%; TEXT-ALIGN: left" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="left" valign ="top"> <table style="WIDTH: 40%; TEXT-ALIGN: center" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="*"> <input type="button" value="행삽입" onclick="javascript:insertCol('new_form')"> <input type="button" value="열삽입" onclick="javascript:insertRow('new_form')"> </td> </tr> </table><br/><br/> <table id="new_form" style="WIDTH: 100%; TEXT-ALIGN: center" border="1" cellpadding="5" cellspacing="0"> <tr> <td width="10%"> &nbsp; </td> <td> 1 </td> </tr> <tr> <td width="10%"> 1 </td> <td>기존컬럼</td> </tr> </table> </td> </tr> <% end if %> </table> </body> </html>[/CODE]


위에서 본대로 innerText와 innerHTML을 적절히 이용하면 text와 Html을 적절히 삽입할수 있다.

물론 inner가 있단 이야기는 outerText, outerHTML도 있다는 말이다.

이건 다음에.. ㅋㅋㅋ
웹에서 "window.showModalDialog " 메소드를 이용해서 Modal 창을 쓰는 예가 종종 있다.


뭐 개인의 차이겠지만..

개발자 취향에 따라서 ..
혹은 사이트특성에 따라서..
개발 표준에 따라서..
프로그램 특성에 따라서
일반 Popup이냐 혹은 Modal 창이냐를 선택하게 된다.

물론 그렇다는 이야기는 개개의 성격과 특성이 아주..아주 많이 다르다는 이야기 이다.

예를 들어서 마우스 오른쪽 클릭이라던가,
아니면 F5를 누르고 새로고침을 할때라든가..
하튼 상당히 여라가지 부분에 있어서 많이 다른 상황이 연출된다.

예전에 Modal 창으로 개발시에는 소스 수정후에 바로 반영이 안되어서 익스플로러 인터넷 옵션에 기존 임시 파일들을 다지우고서 새로 띄워야 적용사항을 볼 수 있었던 기억도 있다.

물론.. 지금은 안그렇지만..

뭐 어쨌거나..

이번에 Modal 창으로 떡칠(?)된 사이트 유지보수를 하다 당한 케이스인데..

리스트에서 선택값을 클릭하면 Modal 창이 뜨고 .
Modal 창에 뜨는 세부 화면에서 대분류 Select 값을 선택하면 window.open으로 안보이는 창하나를 띄우고 거기서 대분류에 맞는 특정 값을 쿼리해와서 다시 Modal 창으로 돌려 주는 구조의 화면 이었다.

쿼리시에는 Session값에 따른 권한별 구분을 줘서 결과를 구분하고 있었다.

그런데..

이런..

권한 적용이 하나도 안되는 문제가 발생했다.

첨엔 쌩쇼를 하다가..

나중에 권한별 Session값을 확인해 보니..

Modal 창에서는 확인이 되는 Session값이 새로 띄워진 popup에서는 전혀 값이 나오질 않았다.


결과적으로..
거기에 대한 기술자료는 찾지를 못했지만..

Modal 창이라는 특수한 놈에서 popup을 띄우면..
거기에 따른 Session값을 상속받지를 못한다는 결론을 잠정적으로 내리고 wiondow.open을 iframe을 이용하는 방식으로 바꿔서 원하는 결과를 얻어낼수 있었다.


Modal 창을 이용할때는 편한부분들도 분명 존재 하지만..
분명 귀찮은 부분들이 좀더 많은 것 같다.

이런 자잘한 세세한 부분들을 신경써야 좀더 신뢰성 있는 프로그램이 나올수 있을 것이다.


ps.. 도데체 얼마만에 지식공유라는 대분류 타이틀을 가지고 포스팅을 해본건지.. 쩝.
반성해야 겠다.
EX1.

1. Create a new ActiveX DLL Project in Visual Basic.
2. Select References from the Project menu and add the following references to the project:
'Microsoft Transaction Server Type Library' (MTXAS.DLL)
'Microsoft Active Server Pages Object Library' (ASP.DLL)
3. Name the Project ObjectCtxtProject and name the Class ObjectCtxtClass.
4. Set the Class Property MTSTransactionMode = 1 - NoTransactions.
5. Copy and paste the following code into the Class Module:


[CODE]Implements ObjectControl Private objContext As ObjectContext Option Explicit Private Sub ObjectControl_Activate() ' Get a reference to the object's context here, ' so it can be used by any method that may be ' called during this activation of the object. Set objContext = GetObjectContext() End Sub Private Function ObjectControl_CanBePooled() As Boolean ' This object should not be recycled, ' so return false. ObjectControl_CanBePooled = False End Function Private Sub ObjectControl_Deactivate() ' Perform any necessary cleanup here. Set objContext = Nothing End Sub[/CODE]



6. Copy and paste the following public method into the Class Module:


[CODE]Public Sub TestMethodObjectCtxt() Dim objResponse As Response Dim objRequest As Request Set objResponse = objContext("Response") ' Obtain ASP Response object Set objRequest = objContext("Request") ' Obtain ASP Request object If InStr(objRequest.ServerVariables("HTTP_USER_AGENT"), "MSIE") > 0 Then objResponse.Write "You are using a very powerful browser." Else objResponse.Write "Try Internet Explorer today!" End If End Sub[/CODE]



7. Compile the DLL.
8. Add the DLL to a MTS Server/Library Package.
9. Copy and paste the following ASP script into a new ASP file in a virtual directory.


[CODE]<% set obj = Server.CreateObject("ObjectCtxtProject.ObjectCtxtClass") obj.TestMethodObjectCtxt set obj = Nothing %>[/CODE]


10. Request the ASP file from a browser, you will see the following result if you are running Internet Explorer:

You are using a very powerful browser.

Otherwise you will see the following result:

Try Internet Explorer today!


EX2.

1. Open a new ActiveX DLL project.
2. Set a reference to the Microsoft Transaction Server (MTS) Type Library (Mtxas.dll).
3. Set a reference to the Microsoft Active Server Pages Object library (Asp.dll).
4. Rename the project as prjMTS and class as clsMTS.
5. Copy the following code to the clsMTS:


[CODE]Dim objApplication As Object Dim objSession As Object Public Function GetVar() As String Dim objCtx As ObjectContext Set objCtx = GetObjectContext Set objApplication = objCtx.Item("Application") Set objSession = objCtx.Item("Session") GetVar = objApplication("Var1") & objSession("Var2") & "..." End Function[/CODE]



6. Create a blank new ASP page under one of virtual directories and add this code to it:

[CODE]<% Application("Var1") = "Where do you want" Session("Var2") = "to go today ?" Dim obj Set obj = Server.CreateObject("prjMTS.clsMTS") response.write obj.GetVar() Set obj = Nothing %>[/CODE]


7. When you run this ASP page, the variables set in the page are accessed inside the Visual Basic component and the following appears in the browser:

Where do you want to go today ?



출처 : MSDN.com


주의1.)
Response, Request, Server, Application, Session 등의 asp 객체를 사용하고자 할경우 MTS 없이 사용하면 오류가 발생한다 .
이는 MTS 없이는 컴포넌트가 Context 를 관리할수 없기때문이며, 어떤 클라이언트에게 asp 구문을 수행해야 하는지 알길이 없기 때문이다 .

주의출처 : LikeJazz(박 상길) 님의 "COM+ 로 구현해보는 게시판 리스트 페이지" 강좌중...

주의2.)
Visual Basic ServicePack 이 설치가 되어야 한다.
테스트는 ServicePack 5, 6 두가지에서 테스트 완료 했다.
골빈해커님이 만드신.. 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]


스타일시트만 적용하면 괜찮아 질듯..
얼마나 효율적인지는 모르겠지만.. 쩝..
다 아시는 내용이지만 Procedure 사용에서 락 발생 다수 시 조치 사항입니다

1. TEMP 테이블 사용을 제한 - TEMP테이블의 경우 부하가 많은경우 락 발생이 급격하게 늘어나기 때문에 사용은 최소화 한다.

2. 다이나믹 쿼리의 제한 - 차라리 조회 조건에서 select 을 전부 써버리는 것이 더 났습니다.

3. 함수를 사용할 경우 다수의 값을 받아오는 경우에는 함수를 사용하기보다도 JOIN사용이 더 낫습니다.

함수를 사용할 경우 2건 이상인 경우에는 1건 1건씩 리턴값을 주기 때문에 리턴값이 늘어날 경우 점점 더 느려지게 됩니다.

4. 잘 쓰지 않고 건수가 적더라도 테이블에는 반드시 인덱스를 잡는다. 실 예로 8건 밖에 안되는 코드성 테이블에 인덱스 잡는 것으로 전체 시스템 성능이 5-6배가 된 경우도 있습니다.
- SiteLink #1 : http://nbloger.com/view_post/vw.asp?bidx=205

필요하신분들이 많으실듯해서 올려드립니다.

사실 크게 어려운 부분은 아닙니다.

아래글은 트랙백의 기본개념보다는 windows + asp 환경에서의 기술적 구현을 위해 간단하게 작성된 소스입니다.
따라서 트랙백의 기본개념을 이해하신후 소스를 보시는것이 도움이 되실것입니다.
또한 보다 확장적인 서비스를 위해서는 아래 소스외에 더 많은 부분을 추가하셔야 합니다.



1. 트랙백 핑 받기

[CODE] <% '변수 처리 bidx = Request("bidx") strTitle = Request("title") strExcerpt = Request("excerpt") strURL = Request("url") '콘텐츠 타입 Response.ContentType = "text/xml" '변수 확인 If strURL="" or strTitle = "" or bidx = "" Then Response.Write "<?xml version=""1.0"" encoding=""iso-8859-1""?>" Response.Write "<response>" Response.Write "<error>1</error>" Response.Write "<message>Not Enough Arguments.</message>" Response.Write "</response>" Response.End End If '내 블로그에 글이 있는지 확인 If 해당글의수 = 0 Then Response.Write "<?xml version=""1.0"" encoding=""iso-8859-1""?>" Response.Write "<response>" Response.Write "<error>1</error>" Response.Write "<message>Not Exist Post.</message>" Response.Write "</response>" Response.End End If set rs = Server.CreateObject("ADODB.Recordset") with rs .Open trackback_table,접근문자열,adOpenStatic,adLockPessimistic,adCmdTable .addnew .fields ("글번호 필드명") = opt_insert_text (bidx) .fields ("주소 필드명") = opt_insert_text (strURL) .fields ("제목 필드명") = opt_insert_text (strTitle) .fields ("내용 필드명") = opt_insert_text (strExcerpt) .fields ("날짜") = now .update .close end with set rs = nothing '정상적으로 완료되었으면 성공했다는 대답을 보내자. Response.Write "<?xml version=""1.0"" encoding=""iso-8859-1""?>" Response.Write "<response>" Response.Write "<error>0</error>" Response.Write "<message>TrackBack Success.</message>" Response.Write "</response>" %> [/CODE]



첫번째로 트랙백은 규정적으로 4개의 변수값을 전송합니다.
글제목(title),글주소(url),글내용(exerpt),블로그명(blog_name) 입니다.
여기서 필수요소는 url 입니다.
위 소스에서는 블로그명을 포함시키지 않았습니다.
그리고 글번호는 해당 글의 존재유무를 확인하기 위해 트랙백 주소에서 GET 형태로 받아옵니다.

두번째로 인코딩되는 xml 중 부분이 가장 중요합니다.
즉, error 값으로 트랙백 핑을 보낸쪽에다 대답을 하는 것입니다.
0이면 성공이?1이면 실패입니다.
그리고 부분은 말그대로 추가설명입니다.
그리고 트랙백 핑은 POST 형태로 값을 받습니다.
받아오는 변수들을 Request.Form 형태로 정의해주는것이 더 좋을듯 하네요.

세번째로 위 소스에서는 간단한 xml 이라 굳이 xmlhttp 같은 xml 관련 서버 컴포넌트를 사용하지 않았습니다.



2. 트랙백 핑 보내기


[CODE] <% b_tb = "핑을 보낼 블로그 게시물의 트랙백 주소" if b_tb <> "" then '만약 트랙백 주소가 입력되었다면 .. ' 여기서 부터 트랙백 처리 ' 핑을 보낼 준비하자 x_Posturl = Server.URLEncode(나의 글의 고유주소) x_BlogName = Server.URLEncode(나의 블로그명) x_Title = Server.URLEncode(나의 글의 제목) x_Excerpt = Server.URLEncode(나의 글의 내용) Str_tb="title="&amp;amp;amp;amp;amp;amp;x_Title&amp;amp;amp;amp;amp;amp;" &amp;amp;amp;amp;amp;amp;url="&amp;amp;amp;amp;amp;amp;x_Posturl &amp;amp;amp;amp;amp;amp;"&amp;amp;amp;amp;amp;amp;excerpt=" &amp;amp;amp;amp;amp;amp;x_Excerpt&amp;amp;amp;amp;amp;amp;" &amp;amp;amp;amp;amp;amp;blog_name="&amp;amp;amp;amp;amp;amp ;x_BlogName ' 트랙백 핑을 보내자 set xml = server.CreateObject("msxml2.xmlhttp") xml.open "POST", "" &amp;amp;amp;amp;amp;amp; b_tb &amp;amp;amp;amp;amp;amp; "", false ' 몇가지 헤더처리 xml.setRequestHeader "Accept-Language","ko" xml.setRequestHeader "Accept-Encoding","gzip, deflate" xml.setRequestHeader "Content-Type","application/x-www-form-urlencoded" xml.setRequestHeader "Connection","Keep-Alive" xml.setRequestHeader "Cache-Control","no-cache" xml.send (Str_tb) ' 트랙백 핑 성공여부 If InStr(1, xml.responseText, "<error>0</error>") Then ' 성공일경우 처리 Else ' 실패일경우 처리 End If Set xml = Nothing end if %> [/CODE]



일반적으로 글의 저장 또는 편집시 사용하실수 있습니다.
그리고 Str_tb 변수 정의 하면서 POST 로 넘기는 변수명은 변경하시면 안됩니다.
또한 위 소스에서는 xmlhttp 컴포넌트를 이용하여 POST 형태로 핑을 전송합니다.
트랙백 핑의 성공여부는 받아온 xml 을 디코딩 하셔도 되지만 그냥 부분만 체크하기 위해 instr 로 처리하였습니다.
추가적으로 부분도 체크하여 성공 또는 실패시의 메시지를 받아오실수도 있습니다.
간혹 핑 전송시 한글이 깨어진다는 질문이 있는데, 이 경우 UrlEncoding 을 시키지 않으셨을때가 가장많습니다.
그외에는 위와 같은 방법으로 무난하게 성공하실것 입니다.
- SiteLink #1 : http://nbloger.com/view_post/vw.asp?bidx=232

꼭 블로그가 아니더라도 XML RSS 는 이제 어느정도 대세가 되어가고 있는 듯합니다. 이제는 언론사나 커뮤니티 등에서도 RSS 가 나옵니다.. 그리고 #Reader나 Xpyder,FreeDemon 등의 RSS 구독기 또한 점차 넓게 사용되고 있습니다. 여기서는 이러한 XML RSS 를 구현하는 방법을 ASP 기반에서 XML 컴포넌트를 이용하여 구현하고자 합니다.



사실 RSS 를 구현할때 사실 단순히 텍스트 파일로 뿌려주고 ContentType 만 xml 로 선언해줘도 가능합니다. 그러나 조금은 다르게 해보고 싶다는 저의 호기심도 있고, 확장성과 향후 유지보수에 조금이라도 더 손쉽게 하기위해서 윈도우즈 2000 에 기본제공되어 있는 XML 관련 컴포넌트를 이용하여 구현해보았습니다. 물론 아래 소스는 지금 제 블로그 RSS 의 원형이 되고 있습니다.



한가지 주의 하실점은 XML 선언전에 어떠한 개행(
) 이나 문자가 들어가서는 안됩니다. PHP 에서의 쿠키과 마찬가지 입니다.

[CODE] <?xml version="1.0" encoding="EUC-KR" ?> <% Response.ContentType = "text/xml" Set xmlPars = Server.CreateObject("Msxml2.DOMDocument") ' 여기서 부터 rss 정보를 담는다. Set rss = xmlPars.CreateElement("rss") rss.setAttribute "version", "2.0" rss.setAttribute "xmlns:dc", "http://purl.org/dc/elements/1.1/" rss.setAttribute "xmlns:sy", "http://purl.org/rss/1.0/modules/syndication/" rss.setAttribute "xmlns:admin", "http://webns.net/mvcb/" rss.setAttribute "xmlns:rdf", "http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlPars.AppendChild(rss) '<channel> 시작 Set Channel = xmlPars.CreateElement("channel") rss.AppendChild(Channel) '<title>정보 Set title = xmlPars.CreateElement("title") Channel.AppendChild(title) Channel.childnodes(0).text = "블로그 제목" '<link>정보 Set channel_link = xmlPars.CreateElement("link") Channel.AppendChild(channel_link) Channel.childnodes(1).text = "블로그 주소" '<description>정보 Set description = xmlPars.CreateElement("description") Channel.AppendChild(description) Channel.childnodes(2).text = "블로그 설명" '<dc:language>정보 Set language = xmlPars.CreateElement("dc:language") Channel.AppendChild(language) Channel.childnodes(3).text = "ko" '<image>정보 Set image = xmlPars.CreateElement("image") Channel.AppendChild(image) '이미지 정보에 들어갈 것들 set i_title = xmlPars.CreateElement("title") set i_url = xmlPars.CreateElement("url") set i_width = xmlPars.CreateElement("width") set i_height = xmlPars.CreateElement("height") image.AppendChild(i_title) image.AppendChild(i_url) image.AppendChild(i_width) image.AppendChild(i_height) image.childnodes(0).text = "이미지 제목" image.childnodes(1).text = "이미지 경로" image.childnodes(2).text = "이미지 가로 사이즈" image.childnodes(3).text = "이미지 세로 사이즈" ' 여기서 부터는 포스트에 대해서 출력 ' 우선 데이터를 읽어오자 SQL = "해당되는 포스트에 대한 쿼리문" set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL,접근문자열,adOpenForwardOnly,adLockPessimistic,adCmdText ' 여기서 부터 루프를 돌리자. Do until rs.EOF '<item> 이라는 노드를 추가 Set item = xmlPars.CreateElement("item") Channel.AppendChild(item) ' 여기서부터 해당 포스트의 세부 정보를 출력 set title = xmlPars.CreateElement("title") ' set link = xmlPars.CreateElement("link") set description = xmlPars.CreateElement("description") set dcdate = xmlPars.CreateElement("dc:date") set dcsubject = xmlPars.CreateElement("dc:subject") item.AppendChild(title) item.AppendChild(link) item.AppendChild(description) item.AppendChild(dcdate) item.AppendChild(dcsubject) item.childnodes(0).text = rs("제목필드") item.childnodes(1).text = rs("포스트 고유 url 필드") item.childnodes(2).text = rs("내용 필드") item.childnodes(3).text = rs("날짜") item.childnodes(4).text = rs("포스트의 분류") rs.movenext loop ' 마지막으로 최종적으로 뿌려주자. Response.Write xmlPars.xml '마무리 ^^; rs.close set rs = nothing Set xmlPars = nothing %> [/CODE]
아는데로 참고만 하세요.
모르면 걍 스킵하시구요.. ㅋㅋㅋ
프로그래밍 하면서 INI파일 이용하는데 편리하긴 하더군요.
초보들만 보시면 될듯..
영어 잘 읽어보면 언제 누가 맹글었다고 다있네요. ㅎㅎㅎ

[CODE] =============================================================================== Attribute VB_Name = "INIFILES" '**************************************************** '* INIFILES.BAS Version 2.0 Date: 02/01/95 * '* VB Tips & Tricks * '* 8430-D Summerdale Road San Diego CA 92126-5415 * '* Compuserve: 74227,1557 * '* America On-LineS: DPMCS * '* InterNet: DPMCS@AOL.COM * '**************************************************** Option Explicit 'Global PlayPath As String #If Win16 Then Declare Function WritePrivateProfileString Lib "KERNEL" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$) As Integer Declare Function GetPrivateProfileString Lib "KERNEL" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnString$, ByVal NumBytes As Integer, ByVal FileName$) As Integer #Else Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$) As Long Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnString$, ByVal NumBytes As Long, ByVal FileName$) As Long #End If Function GetINI(Division As String, KeyName As String, INIPath As String) As String Dim ii As Integer Dim kk As Integer Dim sRet As String If INIPath = "" Then MsgBox "환경 설정 화일이 업습니다." GetINI = "" End If sRet = String(255, Chr(0)) ii = GetPrivateProfileString(Division, KeyName, "", sRet, Len(sRet), INIPath) kk = InStr(sRet, Right(sRet, 1)) GetINI = Left(sRet, kk% - 1) End Function '******************************************************* '* Procedure Name: sReadINI * '*Returns a string from an INI file. To use, call the * '*functions and pass it the AppName, KeyName and INI * '*File Name, [sReg=sReadINI(App1,Key1,INIFile)]. If you * '*need the returned value to be a integer then use the * '*val command. * '******************************************************* Function ReadINI(KeyName As String) As String Dim ii As Integer Dim kk As Integer Dim sRet As String Dim FileName As String Dim AppName As String AppName = "PlayPath" FileName = "C:mt.ini" sRet = String(255, Chr(0)) ii = GetPrivateProfileString(AppName, KeyName, "", sRet, Len(sRet), FileName) kk = InStr(sRet, Right(sRet, 1)) ReadINI = Mid(sRet, 1, kk% - 1) End Function '******************************************************* '* Procedure Name: WriteINI * '*-----------------------------------------------------* '* Created: 2/10/94 By: David McCarter * '* Modified: By: * '*=====================================================* '*Writes a string to an INI file. To use, call the * '*function and pass it the sAppname, sKeyName, the New * '*String and the INI File Name, * '*[R=WriteINI(App1,Key1,sReg,INIFile)]. Returns a 1 if * '*there were no errors and a 0 if there were errors. * '******************************************************* Sub WriteINI(Division As String, KeyName As String, NewString As String, INIPath As String) Dim R As Integer If INIPath = "" Then INIPath = App.Path & "line.ini" End If R = WritePrivateProfileString(Division, KeyName, NewString, INIPath) End Sub [/CODE]

+ Recent posts

티스토리툴바