VoidNoble IT Zone

CDNJs http://cdnjs.com/Google CDN http://code.google.com/apis/libraries/devguide.htmlMicrosoft CDN http://www.asp.net/ajaxlibrary/cdn.ashx

바퀴벌레와 같은 IE 하위 버젼들을 사용하면서도 아직도 업데이트를 안하고 쓰고 있는 네티즌을 위해 강력하게 IE 업데이트 안내 = 페이지 위에 띄워서 고정 = IE8 이하면 계속 띄워지는 페이지를 보이길 원하는 사이트 관리자분들은 바로 뒤와 바로 앞에 각각 아래와 같이 코드를 적용해주면 됩니다. 본문 내용 중략

문자코드셋 949 를 65001 로 변경하기위해서윈도우에서 grepWin 을 통하여 폴더 내 파일들 내용 검색을 실시하였다.정규표현식으로 딱 949 라는 온전한 단어만 검색하려니방법을 몰라서 구글링 해 보고 해결방법을 찾았다.\b 를 앞뒤로 붙여보면 온전한 단어 검색이 된다.\b949\b 로 검색하면 됨.

'// ASP 페이지를 읽어서 html 파일로 생성 '// CALL asp2htm(페이지 URL, 저장할 파일[전체 경로포함]) Function asp2htm(url, saveDir) Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") 'objWinHttp.Open "GET", "실행할 asp파일경로(예.http://www.aaa.com/index.asp)", false objWinHttp.Open "GET", url, false objWinHttp.Send() returnMsg = fnStreamBinaryToString(objWinHttp.ResponseBody, "euc-kr") set objWinHttp = nothing If r..

'******************************************************************* '* 배열에 항목 추가 '*------------------------------------------------------------------ '* array_push(arr,"aaa,bbb,ccc") '******************************************************************* Function array_push(arr,vars) Dim k, newelem, newarrsize If IsArray(arr) Then If Len(vars) > 0 Then If InStr(vars, ",") = False Then newarrsize =..

'=================================================================== ' JSON 문자 escape '------------------------------------------------------------------ ' string json_escape(string str) '=================================================================== Function json_escape(str) If NOT isset(str) then json_quot = str Exit Function End If '// 특수문자 처리 str = Replace(str, "\", "\\") str = Replace(..

'// XML Escape function XmlEscape(strXml) If NOT isset(strXml) Then Exit function strXml = Replace(strXml, chr(34), """) strXml = Replace(strXml, chr(39), "'") strXml = Replace(strXml, chr(60), "") strXml = Replace(strXml, "&", chr(38)) strXml = Replace(strXml, chr(38), "&") XmlEscape = strXml end function '// XML UnEscape function XmlUnEscape(strXml) If NOT isset(strXml) Then Exit function..

'// 모바일 브라우저인가? Function is_mobile() arr_Browser = array("iPhone", "iPod", "IEMobile", "Mobile", "lgtelecom", "PPC", "BlackBerry", "SCH-", "SPH-", "LG-", "CANU", "IM-" ,"EV-","Nokia", "Mobi") For i = 0 To Ubound(arr_Browser) user_agent = Lcase(arr_Browser(i)) '// preg_match()는 PHP 함수를 ASP 컨버젼한 개인 함수 If preg_match(user_agent, Request.ServerVariables("HTTP_USER_AGENT")) then is_mobile = True Exit ..

'// SHA1 암호화 Function sha1(HashThis) strSql = "SELECT SUBSTRING(master.dbo.fn_varbintohexstr(HashBytes('SHA1', '"& sql_quot(HashThis) &"')), 3, 32)" sha1 = sql_result(strSql, 0) End Function

'// UTF-8 파일 읽기 Function fread_utf8(fpath) If fpath = "" Then Exit Function Dim objStream, txt Set objStream = Server.CreateObject("ADODB.Stream") objStream.Mode = 3 objStream.Type = 2 ' 텍스트 타입 (1: Bin, 2: Text) objStream.CharSet = "UTF-8" objStream.Open objStream.LoadFromFile Server.MapPath(fpath) txt = objStream.ReadText objStream.Close Set objStream = Nothing fread_utf8 = txt End Function '//..