시작하기 전에...
asp로 갑자기 Rss 2.0 Reader나 만들어 봐야겠다는 생각이 무지하게 들어서 작업을 뚝딱뚝딱 하고 있던중 감당못할 문제점이 발생해 버렸다. 바로 pubDate 항목이었다. Rss2.0에서는 세계표준시인 UTC 시간을 사용하기 때문에 이 시간을 우리나라 형식으로 변환하여야 하였다. .Net 2.0에서는 쉽사리 바꿔졋었는데 ASP에서는 대략 난감이었다. OTL
좌절하지말고 그냥 만들어서 쓰자 생각하고 함수로 만들어 버렸다.. -_-;;
UTCtoDate
구글, 데브피아, 태오싸이트, 해외싸이트등 수많은 싸이트를 돌아다녓는데.. 왜 이런 함수를 찾지 못하였을까? 검색하는 방법을 다시 터득해야하나? 라는 엄청난 고민이 밀려들어왔다.
이럴시간에 그냥 하나 만들자 하는 생각으로 만들었으니 마음껏(?) 사용하시기 바란다. 아무도 사용하지 않을것 같다는 불길한 예감이 밀려온다.. -_-;;
코드를 살펴보면...
Function UTCtoDate(ByVal value)
Dim temp : temp = split(value,",") ' 요일 분리
Dim temp2 : temp2 = split(temp(1),"+") ' 표준시간대 분리
Dim minspan ' 표준시간대 분리된 값을 가지고 분으로 계산
minspan = CInt(right(trim(temp2(1)),2)) + (60 * CInt(left(trim(temp2(1)),2)))
Dim returnDate ' 기준시각을 한국시간으로 맞춰서 보이게함
returnDate = DateAdd("s", (540 * 60) - (minspan*60) ,temp2(0))
UTCtoDate = returnDate
End Function
' 함수사용 예제
Dim test1 : test1 = "Fri, 12 Jan 2007 03:20:29 +0900"
Dim test2 : test2 = "Fri, 12 Jan 2007 03:20:29 +0000"
Dim test3 : test3 = "Fri, 12 Jan 2007 03:20:29 +1830"
Response.Write test1 & " ==> 우리나라시간으로 : " & UTCtoDate(test1) & "<br/>"
Response.Write test2 & " ==> 우리나라시간으로 : " & UTCtoDate(test2) & "<br/>"
Response.Write test3 & " ==> 우리나라시간으로 : " & UTCtoDate(test3) & "<br/>"그리 복잡하진 않다. 스트링의 값을 잘라서 변환해서 계산(?)하고 우리나라 날짜에 맞게 변환시켜주는 작업일뿐.. 근데 왜 이런게 없을까? 너무 간단해서 그냥 뚝딱뚝딱 만들어 쓰는 함수인가.. 검색실력(?)의 부재인가...
아무튼 코드를 첨부해 놓겠다. 필요하신 분은 마음껏 사용, 수정, 배포하셔도 됩니다.
원작자의 이름을 지우던지 말던지 마음대로 하시구요. 시간이 남으신다면 코멘트 하나 정도 써주는 쎈!쓰!
코드다운로드
UTCtoDate_func.asp포스팅을 마치며...
파일업로드 마음에 아주 안듭니다. 링크걸라고 해도 제대로 걸리지가 않는군요. 기본제공하는 첨부파일로 하였습니다. -_-;; 이런거 이쁘게좀 안되나 모르겠습니다. 스킨을 수정봐야겠습니다. OTL..
한개 건드리면 한개 튀어나오는데 정말 대책이 없군요;;;
다음에는 Rss2.0 Reader를 만드는 코드를 가지고 다시 포스팅을 할 예정입니다. 요즘 시간이 많아서 뻘짓(?)거리만 무지하게 하고 있는 거 같습니다.
어디선가 이제는 우리가 헤어져야 할시간~ 노래가 들리는 것 같습니다. 완전 혼자놀기의 진수를 보여준다는..
아무쪼록 다음에 뵙겠습니다... 꾸벅 ('')(..)
