사랑하기 위해 필요한 것들

<%
'------------------------------------------------
' XML Parse 용 클래스
' 필요한 핵심부분만 만듬 2010. 06.18 이수환
'------------------------------------------------

Class XMLDOMParse

Private m_DOM ' XMLDOM 객체

' ---------------------- 생성자 -----------------------
Private Sub Class_Initialize()
Set m_DOM = Server.CreateObject("Microsoft.XMLDOM")
End Sub

' ---------------------- 소멸자 -----------------------
Private Sub Class_Terminate()
Set m_DOM = Nothing
End Sub

' ------------------- Property Get --------------------
Public Property Get TagText(tagName, index)
Dim Nodes

Set Nodes = m_DOM.getElementsByTagName(tagName)
TagText = Nodes(index).Text
Set Nodes = Nothing
End Property

' ------------------- Property Get --------------------
Public Property Get AttributeText(tagName, index , item)
AttributeText = m_DOM.getElementsByTagName(tagName)(index).attributes.getNamedItem(item).Text
End Property

' ------------------- 원격 XML 읽기 --------------------
Public Function LoadHTTP(url)
with m_DOM
.async = False ' 동기식 호출
.setProperty "ServerHTTPRequest", True ' HTTP로 XML 데이터 가져옴

LoadHTTP = .Load(url)
end with
End Function

' ------------------- XML 읽기 --------------------
Public Function Load(strXML )
with m_DOM
.async = False ' 동기식 호출
.loadXML(strXML)
end with
End Function

' ------------------- HTML 페이지 읽기 --------------------
Public Function OpenHttp( PgURL)
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "GET", PgURL, False
xmlHttp.Send
Ret = xmlHttp.ResponseText
Set xmlHttp = Nothing
OpenHttp = Ret
End Function

End Class

%>

1>

Set xml = new XMLDOMParse
xml.LoadHTTP(http://domain.com/getval.asp?pc_a=" & sPC)
ErrState = xml.TagText("ERROR",0)

2>

Set xml = new XMLDOMParse
Data = xml.OpenHttp("http://domain.com/getcid.asp?filename=" & sFileName )
xml.load(Data)
gCID = xml.TagText("CID",0)

'수동 트랜잭션 모드 또는 분산 트랜잭션 모드에 있기 때문에 연결을 새로 만들 수 없습니다.'

라고 에러메세지가 뜬다.

 ==< 우선 에러난 구문 >=================================

sql="select 어쩌구..."

set rs=conn.execute(sql)

 if not rs.eof or not rs.bof then

  while not rs.eof 

      subsql="update 저쩌구..."

      set subrs=conn.execute(subsql)

    rs.movenext

  wend

end if

 =======================================================

 ==< 해결 구문 >========================================

 set rs = server.createobject("adodb.recordset")

sql="selet 어쩌구 ..."

rs.open sql, conn, 1, 1

 이하... 위와 동일...

 =======================================================

"에디트 플러스" 웹 개발자라면 누구나 한번은 접해본 툴이라 생각됩니다.
이 프로그램에는 치명적인 버그가 있는데
프로그램 자체 버그인지 네트워크나 윈도우상의 문제와 혼합되어 발생되는 문제인지는 모르겠으나
FTP 파일 전송중 멈추는 현상입니다.
보통은 수초 내에 연결 끊김, 기타 오류 등 메시지를 뿜어내면서  취소되지만
아주 가끔은 아무 반응이 없이 멈춘상태가 지속되는 경우가 있습니다.
작업관리자를 열어서 강제종료하면 멈춘파일은 백지상태가 되어버리죠...
쓰다보니 더이상 길어지면 보시는분들 귀찮아지실것 같아서 결론 내리겠습니다.

C:\Documents and Settings\윈도우계정\Local Settings\Temp
위 디렉토리에 가보시면 윈도우에서 사용하는 각종 임시파일들이 있습니다.
에디트 플러스에서 FTP연결한 파일들도 여기 저장되더군요.
파일명은 rmt*.tmp 입니다. rmt 로 시작하는 파일이구요. 수정한 날짜 최근순으로 정렬해보시면
방금 저장하다 멈춘 파일을 찾으실 수 있을겁니다.
파일을 저장하는 순간 임시파일을 저장한 후 업로드를 시도하는 파일이라
작업하신 최신 소스로 복구가 가능합니다.