VoidNoble IT Zone

'****************************************************** '* Function strip_tags(str) As String '* 태그 제거하고 반환 '* '* Function strip_tags2(str, allowtags) As String '* allowtags 태그들을 제외한 태그 제거하고 반환 '****************************************************** Function strip_tags( strHTML ) If NOT isset(strHTML) Then Exit Function Dim objRegExp, strOutput Set objRegExp = New Regexp With objRegExp .IgnoreCa..

key = "kkk" value = "vvv" 변수들을 JSON 형식 {key:value} 으로 만들때 특수문자 Escape '// JSON Escape Function json_escape(str) If isEmpty(str) Or isNull(str) Then Exit Function str = Trim(str) str = Replace(str, """", """) str = Replace(str, "'", "'") str = Replace(str, "\", "\\") str = Replace(str, Chr(13) & Chr(10), "\n") str = Replace(str, Chr(13), "\n") str = Replace(str, Chr(10), "\n") str = Replace(str, ..

보내는 페이지의 자바스크립트 값을 escape() $.post('process.asp', { content: escape(_content) }); 받는 페이지의 ASP 스크립트에서는 content = unescape( Request.Form("content") ) 해주면 한글이 깨지지 않고 넘겨지고 받아진다.

방법이야 여러가지가 있겠지만 노드들을 구한 뒤 그들의 인덱스를 통해 역루핑으로 역정렬의 목록을 뽑았다. Dim xmlFile : xmlFile = Server.Mappath("{XML파일경로}") '// 파일 존재 검사용 사용자정의 함수 If NOT file_exists(xmlFile) Then Response.End '// XML 컨트롤러 생성 Set oXml = Server.CreateObject("Microsoft.XMLDOM") oXml.async=false oXml.Load(xmlFile) xPath = "/root" Set rootNode = oXml.SelectSingleNode(xPath) If rootNode Is Nothing Then die("데이터가 없습니다.") '// 항목 수가 ..

서비스 가입 및 메뉴얼 http://code.google.com/intl/ko-KR/apis/recaptcha/ reCaptcha.lib.asp

Carriage Return (CR) = vbCr = chr(13) Line Feed (LF) = vbLf = chr(10) vbCrLf = vbNewLine = chr(13) & chr(10) 코딩시에는 chr(13) & chr(10) 을 쓰는게 좋다.

# 2011-06-30 현재 커뮤니케이션 API 는 쪽지, 메일이 공개되어 있다. 쪽지의 경우 네이트온에서 서로 친구가 맺어져 있어야만 동작한다. 메일의 경우 보내지기는 하지만 보내느 속도가 늦고 네이트온 친구가 맺어져 있지 않아도 된다. 버그인건가?

[출처] http://www.devguru.com/technologies/vbscript/quickref/vartype.html VarType(Varname) CONSTANT VALUE DESCRIPTION VBEmpty 0 Uninitialized VBNull 1 Contains no valid data VBInteger 2 Integer subtype VBLong 3 Long subtype VBSingle 4 Single subtype VBDouble 5 Double subtype VBCurrency 6 Currency subtype VBDate 7 Date subtype VBString 8 String subtype VBObject 9 Object VBError 10 Error subtype VBB..

* 네이트 오픈API 제휴사 키 발급 http://devsquare.nate.com/openApi/registerConsumerKey * 네이트 인증 개발 가이드 http://devsquare.nate.com/openApi/nateAuthAPIDevGuide#Authorize * Classic ASP VBScript OAuth 라이브러리 http://scottdesapio.com/VBScriptOAuth/ # 제휴사 키는 미리 발급 받아놓아야 한다. # 네이트 인증 개발 가이드를 보면 일부러 그런건지 업데이트가 안되어 있는 부분이 있다. 그것때문에 삽질좀 해서 여기에 기록한다. (빨간색 서두) ▶ 호출 도메인과 프로토콜 http://oauth.nate.com/OAuth/.../V1a 를 어디로? http..

http://www.alexandru.es/blog/tag.php?tag=scripting 단계 1 : 다운받고 설치 여기서 다운받고 설치, 설치중 "Install ImageMagickObject OLE Control for VBscript, Visual Basic, and WSH"를 꼭 체크하고 설치. 단계 2: 스크립트 다운받거나 복사 다음의 코드를 imageResizer.vbs 복사후 새파일로 저장하든가 그냥 여기서 다운받기. Option Explicit ' 몇몇 변수 정의 Dim objFSO, folderSRC, pathSourceJPG, file, outputFolder Dim userHeight, userWidth, userConfirmation userWidth = InputBox("Plea..