VoidNoble IT Zone

'******************************************************************* '* 배열에 항목 추가 '*------------------------------------------------------------------ '* 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 '//..

http://sourceforge.net/projects/dermis/

준비 Developer Key 발급 https://code.google.com/apis/youtube/dashboard/ API Access 등록, Client ID 발급 https://code.google.com/apis/console/테스트 서버, http, https 에 따라 각각 새로 생성.Redirect URIs는 미리 경로를 기획하여 둘것. 아무 입력 하지 않고 만들 경우 "자신의 도메인/oauth2callback" 로 잡히는데 웹서버 루트에 /oauth2callbar/default.asp 만들면 됨. 순서인증.API 명세 통한 사용. 인증 전체적으로는 https://developers.google.com/youtube/2.0/developers_guide_protocol_oauth2 또는 h..

사이트 /board 경로의 물리경로를 구할 때는 대개Server.mappath("/board")와 같이 하면 물리경로가 C:\Inetpub\wwwroot\board와 같이 구해진다. 그런데, IIS에서 위의 사이트에d:\wwwsub\virtualdir 를가상 디렉터리로 설정해 놓았다고 할 때물리 경로를 구하려 Server.mappath("/virtualdir") 과 같이 하면결과는 C:\Inetpub\wwwroot\virtualdir 그러면 어떻게 해야 가상 디렉터리의 진정한 물리 경로를 받아 올 수 있을까?해결책은 단순하다.Server.mappath("\virtualdir")과 같이 '/' 를 '\' 로 바꾸어 주면 된다. 코딩시 '/'와 '\'를 혼합해서 써야 한다면 상당히 귀찮을거라 생각되어두가지를..

Classic ASP의 문제 중 하나는 캐시가 결여되어 있다는 것입니다. memcached 프로젝트 클라이언트 라이브러리 페이지에 가보면 역시나 Classic ASP를 위한것은 존재 하지 않습니다. 윈도우쪽 섹션을 보면 C# 2.0 에 최적화된 BeIT memcached Client 링크가 제공됩니다. 이것을 COM 컴포넌트로 만들어서 서버에 등록하여 사용하면 됩니다. .NET Framework 2.0 이상을 설치 하고 memcacheCOM.dll 파일을 system32 폴더에 복사 후 c:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\regasm.exe path_of_memcacheCOM.dll\memcacheCOM.dll /codebase 명령을 줍니다. 레지스트리 편..