five minutes of funk

예전 포스팅중에
ASP 로 RSS 만들기. : http://web20korea.com/22 가 있었는데 이번에는 반대인
읽어오기를 포스팅합니다.

혼자 끙끙대던차에
http://choong.tistory.com/6 포스팅을 참고해서 운좋게 ㅋㅋ 성공했습니다.

RSS가 뭐냐고 물으시는분은..;;
요기의 WIKI 링크를 참고하시면 ㅠㅠ http://startasp.net/html/rss.asp 감사 +_+

요점은뭐 RSS에서 오는 정보를 배열로 나누어서 알아서 가공..!!
이라는 간단한 원리지만, 그래도 많이 버벅되고그랬던(저만??ㅠㅠ) 부분을
위에 참고포스팅에서 사용한 변수명을 그대로 ( 제가 짠 소스가 아닙니다, 제가짠거랑 비슷하지만 깔끔하게 되어있고 또 사용시에 전혀 이상이 없었기때문에 소스의 내용을 그대로 공개합니다 원 소스의 제작은 choong 님의 것입니다. )


우선 받아들일 RSS주소로 요청을 합니다.

Dim xmlHttp
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", RSS주소(받아들일), false
xmlHttp.Send()

받아서 저장 ( 이게 요즘은 익숙하져? ㅋㅋ )

Dim RSSXML
RSSXML = xmlHttp.ResponseText

분할을 위해 DOM객채로 저장합니다 ( 안그래도 상관없는데... 이게더 좋은거 같습니다 )

Dim xmlDOM
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)

요건 센스 ㅋㅋ

Set xmlHttp = Nothing

DOM으로 저장한 객체중 item 노드로 뽑아내고 생성했던 객체는 소멸합니다.

Dim RSSItems
Set RSSItems = xmlDOM.getElementsByTagName("item")
Set xmlDOM = Nothing

이 이후에 이제 배열의 갯수 - 1개로 돌려서

'items(i,0) : title
'items(i,1) : link
'items(i,2) : description
'items(i,3) : category
'items(i,4) : author
'items(i,5) : guid
'items(i,6) : comments
'items(i,7) : pubdate

등등으로 뽑아 쓰시면 되겠습니다 ㅋㅋㅋ

위의 소스를 참고해서 만들어본것이 뭐 말이 메타블로그지만
간단하게 한번 만들어봤습니다 ㅋㅋㅋ

http://startasp.net/metablog

RSS를 읽어올 수 있음으로써 활용범위는 뭐 무한대라고 볼 수 있지 않을까요?

ㅋㅋ 저도 제 홈페이지에 날씨제공하는거 한번 받아서 붙여봤는데...

앞으로 많은 이용을 할꺼 같습니다 ( 너무 늦었나요 ㅠ? ㅋㅋ )

모두 즐프하세요~

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

Posted by web20korea

파란 엠박스 등과같이 동영상을 퍼갈때 URL퍼가기, 소스그대로 복사하기 등등!!!

클립보드에 소스를 복사해서 넣었더니...ㅋㅋㅋㅋ 그냥 소스만 정식하게 복사가 ㅎㄷㄷ

EasyLogic 님의 도움으로 살짝 해결...ㅋㅋㅋ 완전 맞는건지는 추후에 ㅎㅎ

아래의 소스는 파란 엠박스의 소스입니다.!!! ( 저작권 문제가 되는건가요 ?ㅠ )

 function text_copy(ch){
  window.blur();

  var doc = document.body.createTextRange();
  doc.moveToElementText(document.all(ch));
  doc.select();
  doc.execCommand('copy');
  alert('복사되었습니다.\n글쓰기 (에디터)창에 ctrl+V를 해주세요.');
 
  window.close();
 }

실제 하단에 테그입니다.

<object name='오브젝트명' width='400' height='300' align='middle' id='아이디'>
이 안에 embed 테그를 삽입(동영상이던 음악재생이던뭐..맘데로?) name="오브젝트명"
만 들어간다면 돌아가는것 같음..!!
</object>

스크립트의 호출은
text_copy(오브젝트명')
으로 가능하지만 선언 혹은 호출 위치가 onload 일때 안먹는다면
object 테그의 하단으로 호출하면 거의 작동이 되어집니다.

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

Posted by web20korea

스크립트

var locked = 0;

function show(imagenr)
{
    if (locked) return;
    var i;
    var image;
    var el;
  var e = document.getElementById('ratetext');
  var StateMSG;

    for (i=1; i<=imagenr; i++) {
        image = 'image' + i;
        el = document.getElementById(image);
        el.src="star1.gif";
    }

  switch (imagenr) {
   case 1:
    StateMSG = "20점";
    break
   case 2:
    StateMSG = "40점";
    break
   case 3:
    StateMSG = "60점";
    break
   case 4:
    StateMSG = "80점";
    break
   case 5:
    StateMSG = "100점";
    break
   default:
    StateMSG = "";
  }
  e.innerHTML = StateMSG;
}

function noshow(imagenr)
{
    if (locked) return;
    var i;
    var image;
    var el;
 

    for (i=1; i<=imagenr; i++) {
        image = 'image' + i;
        el = document.getElementById(image);
        el.src="star0.gif";
    }
}

function lock(imagenr)
{
    show(imagenr);
    locked = 1;
}

function mark(imagenr)
{
    //show(imagenr);
    //locked = 1;
    lock(imagenr);

    var e = document.getElementById('ratetext');
   

    /* store rating on server */
    var xmlhttp;
    try {
        xmlhttp = window.XMLHttpRequest ? new XMLHttpRequest() : new ActiveXObject("Microsoft.XMLHTTP");
    } catch (e) {
        // todo
    }
    //var qs = "UccPointProcess.asp?rate=" + imagenr; 
    //xmlhttp.open("GET", qs);
 
  xmlhttp.open("GET", "point_.asp?rate=" + imagenr,true);
  xmlhttp.onreadystatechange=function() {
   if (xmlhttp.readyState==4) {
    e.innerHTML = xmlhttp.responseText;
   }
  }
  xmlhttp.send(null)
}

HTML

<DIV id=rating align=center>
   <SPAN>
    <IMG id=image1 onmouseover=show(1) onclick=mark(1) onmouseout=noshow(1) src="star0.gif">
    <IMG id=image2 onmouseover=show(2) onclick=mark(2) onmouseout=noshow(2) src="star0.gif">
    <IMG id=image3 onmouseover=show(3) onclick=mark(3) onmouseout=noshow(3) src="star0.gif">
    <IMG id=image4 onmouseover=show(4) onclick=mark(4) onmouseout=noshow(4) src="star0.gif">
    <IMG id=image5 onmouseover=show(5) onclick=mark(5) onmouseout=noshow(5) src="star0.gif">
   </SPAN>
   <br/><SPAN id=ratetext>평가하기</SPAN>
 </DIV>

//var qs = "rate.asp?rate=" + imagenr;  
//xmlhttp.open("GET", qs);

이부분을

xmlhttp.open("GET", "point_.asp?rate=" + imagenr,true);
xmlhttp.onreadystatechange=function() {
  if (xmlhttp.readyState==4) {
    e.innerHTML = xmlhttp.responseText;
  }
}

이렇게 변경한것뿐 ㅋㅋㅋ....- _-;; 암튼 좋은자료였다!!

참조 게시글
http://yesyo.com/forums/showthread.php?t=1599&highlight=%EB%B3%84%EC%A0%90
http://wiz.pe.kr/149

뭔지 눈으로 보시려면
http://startasp.net/lab/source/point/point.asp

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

Posted by web20korea

url은 미공개...

Windows 2003, IIS6.0 환경에서
http 방식의 mp3다운로드 미리듣기 API개발
현재 버전 0.0.1

관련 이용서비스
Ez-i 뮤직UCC ( 작업중 )
악보바다 : http://akbobada.com/
인터뮤즈 : (작업중)

ASP 3.0으로 제작 관련 프로시저 MSSQL2000, 관련 DLL(작업중) VB 6.0 으로 개발

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

Posted by web20korea

javascript :

function FN_iframeAutoHeight(obj) {
 obj = typeof obj == 'string' ? document.getElementById(obj) : obj;
 obj.setExpression('height',iframename.document.body.scrollHeight);
}

html code :

<IFRAME name="iframename" border=0 marginWidth=0 marginHeight=0 src="http://web20korea.com" frameBorder=0 width="100%" scrolling=no onload="FN_iframeAutoHeight(this)"></IFRAME>

ㅇㅇ?? ㅋㅋㅋ

간단데스.......

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

Posted by web20korea