Windows Server 2008 R2에서는 .NET Framework를 설치하려면, [서버 관리자]를 통해서 설치를 해야 합니다.
시작 -> 관리도구 -> 서버 관리자 -> 기능 -> 기능 추가 -> .NET Framework 3.5를 선택하면 설치가 가능합니다.
Windows Server 2008 R2에서는 .NET Framework를 설치하려면, [서버 관리자]를 통해서 설치를 해야 합니다.
시작 -> 관리도구 -> 서버 관리자 -> 기능 -> 기능 추가 -> .NET Framework 3.5를 선택하면 설치가 가능합니다.
사용법
content = StripHTML(content)
Function StripHTML(oSource)
dim Result_Text
Result_text = ReplaceText(oSource," ( )+"," ")
Result_text = Replace(Result_text,"=" & vbcrlf,"")
Result_text = Replace(Result_text,";" & vblrcf,"")
' Remove the header (prepare first by clearing attributes)
' head 태그 안의 모든 내용을 지운다
Result_text = ReplaceText(Result_text,"<( )*head([^>])*>","<head>")
Result_text = ReplaceText(Result_text,"(<( )*(/)( )*head( )*>)","</head>")
Result_text = ReplaceText(Result_text,"(<head>)[\s\S]*(</head>)","")
' remove all scripts (prepare first by clearing attributes)
' script 태그 안의 모든 내용을 지운다
Result_text = ReplaceText(Result_text,"<( )*script([^>])*?>","<script>")
Result_text = ReplaceText(Result_text,"(<( )*(/)( )*?script()*>)","</script>")
Result_text = ReplaceText(Result_text,"(<script>)([^(<script>\.</script>)])*?(</script>)","")
Result_text = ReplaceText(Result_text,"(<script>)[\s\S]*?(</script>)","")
' remove all styles (prepare first by clearing attributes)
' style 태그 안의 모든 내용을 지운다
Result_text = ReplaceText(Result_text,"<( )*style([^>])*?>","<style>")
Result_text = ReplaceText(Result_text,"(<( )*(/)( )*?style( )*>)","</style>")
Result_text = ReplaceText(Result_text,"(<style>)[\s\S]*?(</style>)","")
' remove all object (prepare first by clearing attributes)
' object 태그 안의 모든 내용을 지운다
Result_text = ReplaceText(Result_text,"<( )*object([^>])*?>","<object>")
Result_text = ReplaceText(Result_text,"(<( )*(/)( )*?object( )*>)","</object>")
Result_text = ReplaceText(Result_text,"(<object>)[\s\S]*?(</object>)","")
' Remove the link (prepare first by clearing attributes)
' link 태그 안의 모든 내용을 지운다
Result_text = ReplaceText(Result_text,"<( )*link([^>])*>","<link>")
Result_text = ReplaceText(Result_text,"(<( )*(/)( )*link( )*>)","</link>")
Result_text = ReplaceText(Result_text,"(<link>)[\s\S]*(</link>)","")
' 자바스크립트 함수 치환
Result_text = ReplaceText(Result_text,"onclick=","xonclick=")
Result_text = ReplaceText(Result_text,"onmouseover=","xonmouseover=")
Result_text = ReplaceText(Result_text,"onmouseout=","xonmouseout=")
Result_text = ReplaceText(Result_text,"onchange=","xonchange=")
Result_text = ReplaceText(Result_text,"href=""javascript","href=""xjavascript")
' span 및 div 태그의 속성을 제거
Result_text = ReplaceText(Result_text,"<( )*span([^>])*?>","<span>")
Result_text = ReplaceText(Result_text,"(<( )*(/)( )*?span( )*>)","</span>")
Result_text = ReplaceText(Result_text,"<( )*div([^>])*?>","<div>")
Result_text = ReplaceText(Result_text,"(<( )*(/)( )*?div( )*>)","</div>")
' input 태그를 지운다
Result_text = ReplaceText(Result_text,"<( )*input([^>])*?>","")
' Remove remaining tags like <a>, links, images, comments etc - anything thats enclosed inside < >
' 허용태그 이외의 태그 제거
Result_text = ReplaceText(Result_text,"<[^(image|a|div|span|table|tr|td|li|p)]*?>","")
' Thats it.
StripHTML = Result_Text
End Function
Function ReplaceText(str1, patrn, replStr)
Dim regEx
Set regEx = New RegExp
with regEx
.Pattern = patrn
.IgnoreCase = True
.Global = True
end with
ReplaceText = regEx.Replace(str1, replStr)
End Function
출처 : Tong - jupiter0410님의 § Program §통
밥 파슨스는 온라인 등록업체인 고대디닷컴의 “고대디 걸” 옆에 서있는 남자로 가장 잘 알려져 있는지도 모른다.
하지만 이제 억만장자라는 새로운 이름이 따라붙게 되었다.
사모기업인 콜버그-크라비스-로버츠와 실버레이크 파트너가 고대디닷컴을 2십억 달러 이상에 인수할 것이라는 소문이 퍼지고 있기 때문이다. 계약이 성사된다면 그는 닷컴 억만장자 대열에 합류하게 될 것이다. 그가 고대디닷컴의 지분을 얼마나 소유하고 있는지는 알려져 있지 않으나 자금모집이 거의 없었다는 점을 고려해 볼 때 절반 이상일 것으로 추측되고 있다.
그렇다면 밥은 어떻게 해서 억만장자가 될 수 있었을까? 다음은 그가 제시하는 성공의 16가지 법칙 중 10가지이다.
1. 편안한 상황에서 벗어나라.
“편안한 상태로 머무른다면 중요한 성과를 거둘 수 없다. ‘안전이 중요하잖아’라고 말하는 사람에게 나는 ‘안전은 죽은 사람을 위한 것’이라고 대답한다.”
2. 절대 포기하지 말라.
“처음 시도해서 되는 일은 거의 없다. 지금하고 있는 일이 잘 되지 않는 것처럼 보인다고 해서 앞으로도 그러리라는 법은 없다. 어쩌면 당신이 하고 있는 일이 문제가 아니라 하는 방식이 문제일 수도 있다. 만약 쉽게 될 수 있는 일이라면 너도 나도 다 하느라고 당신에게는 기회도 돌아가지 않을 것이다.”
3. 포기해야겠다는 생각이 들 때야말로 성공에 가까워진 때이다.
“내가 믿고 따르는 중국의 격언이 있다. ‘성공하기 직전이야말로 포기하고자 하는 유혹이 가장 크다’라는 격언이다.”
4. 언제나 전진하라.
“투자를 멈추지 말라. 개선을 멈추지 말라. 새로운 것을 항상 시도하라. 조직 개선을 멈추는 순간 퇴행이 시작된다. 매일 조금씩 나아지는 것을 목표로 하라. 카이젠(개선)이라는 일본개념을 기억할 필요가 있다. 매일 개선해 나아가다 보면 크나큰 우위를 확보하게 된다.”
5. 신속한 결정을 내려라
“‘오늘 적극적으로 실행한 좋은 계획은 내일의 완벽한 계획보다 훨씬 낫다’라는 조지 패튼 장군의 명언을 기억하라.”
6. 중요한 것을 모두 측정하라.
“측정하고 주시하는 것은 나아지기 마련이다.”
7. 관리하지 않는 것은 퇴보한다.
“당신이 모르고 있는 문제점을 발견하고 싶다면 시간을 내서 요즘 살펴보지 않았던 부분을 자세히 관찰하라. 문제점을 발견할 수 있을 것이다.”
8. 인생이 공평할 것이라고 기대하지 말라.
“인생은 공평하지 않다. 성공하고 싶으면 스스로가 이룩하는 수 밖에 없다. 공평에 대해 집착하지 않을수록 좋다.”
9. 너무 진지하게 생각하지 말라.
“마음의 여유를 가져라. 우리가 이룩하는 것 중 절반 정도는 운에 기인하는 경우가 많다. 당신이 생각하는 것처럼 많은 것이 당신에게 달려 있는 게 아니다.”
10. 언제나 웃을 만한 이유가 있다는 사실을 기억하라.
“웃을 만한 이유를 찾아라. 살아있다는 것만 해도 운이 좋은 것이다. 인생은 짧다. ‘잠깐 있다가는 거니까 즐겁게 살자’는 동생의 말이 진리라는 사실을 깨닫게 되었다.”
SKT에서 이번에 LG 옵티머스2X 를 출시했습니다. 2X라는 이름에 걸맞게 듀얼코어 CPU를 장착한 세계최초의 휴대폰입니다.
2011년 최고로 관심을 받고 있는 세계최초 듀얼코어 프로세서 스마트폰 옵티머스2X를 정말 좋은 조건으로 공구 진행합니다.
사은품이 20종이나 되고 블루투스 및 16G 메모리까지 드리고 있습니다 ^^
시중에서 사은품을 구매하시려면 그 가격만 해도 꽤 됩니다.
좋은 조건의 공동구매 사이트를 알려드리니 좋은 조건의 저렴한 가격으로 공동구매도 진행하시고 듀얼코어 프로세서의 파워를 느껴보시기 바랍니다^^
KT에서도 베가X가 출시됐습니다.
2010년을 마무리하며 내놓은 폰인데 평이 아주 좋네요. 최근 안드로이드폰쪽에 기대작이 없었는데, 괜찮은 제품이 하나 나왔더군요.
여러군데 검색하다가 최저가 공동구매를 발견해서 정보를 알려드립니다.
관심있으신 분들은 직접 방문하셔서 살펴보시면 될듯 합니다 ^^