VoidNoble IT Zone

1 Tier 서버 (WEB IIS + DB 1 Server) 에서 유독 한 사이트가 느려서 서버 로그를 확인해보니 500 Script timeout 오류가 많이 발생하고 있었고 client ip들을 분석하여보니 timeout 유발은 99% 중국 아니면 외국이었다.중국측 IP 대역만 막으려다가 딱히 국외를 위해 서비스할 사이트가 아니어서 한국 접속만 허용으로 정책을 정했다.GeoIP 다운로드 [새창] GeoLite Country 최근 DB 다운로드 [새창] '한국만 접속 가능토록 필터링 remote_ip_address = request.ServerVariables("REMOTE_ADDR") set geo_ip = Server.CreateObject("GeoIPCOM.GeoIP") geo_ip.loadDat..

'// 내용에서 찌꺼기 태그 제거 wr_content = Replace(wr_content, "", "") '한컴한글 닫고 wr_content = Replace(wr_content, "", "") 'MS워드 열고 wr_content = Replace(wr_content, "", "") 'MS워드 닫고

무료, 국산.저작권 = XionSoft UTF-8 지원 여부 : 불가But, 다운로드시 session.codepate = 949로 변경하는 꼼수로 사용 가능.

파일 인클루드 만으로 업로드 컴포넌트를 대체함.utf-8 전용제작사 사이트 접속 불가.사용 예제 https://github.com/dineshkummarc/FCChatV2/blob/master/FCChat/html/Upload.asp...... Set Upload = New FreeASPUpload Upload.Save(Server.MapPath(IMAGES_DIRECTORY))'// $_POST['input1'] input1_value = Upload.Form('input1')'// $_FILES['file1'] Set file1 = Upload.UploadedFiles("file1") '// Case sensitive 하니 key 값은 Lower-case로 file1_name = file1.FileN..

ABCUpload 마지막 무료 버젼한글 깨지지 않게 하기 위해서는 폼 변수 끝에 (1) 를 붙여야 함!!!Set Upload = Server.CreateObject("ABCUpload4.XForm") Upload.Maxuploadsize = x * 1048576 '최대 파일 사이즈 지정 Upload.AbsolutePath = True '절대 경로로 접근 Upload.Overwrite = True '같은 파일 있을 때 덮어쓰기 가능으로 설정 Upload.CodePage = 65001 '949=한글postTitleValue = Upload("title")(1) MethodDescriptionReadRead in raw uploaded data from a file.SaveSave the raw uploade..

국산 무료 업로드 컴포넌트 중 마지막 남음. 제작사에서 개발,지원 중단. UTF-8 지원안하는 치명적 단점 존재.

이미지 컴포넌트로 나누미 컴포넌트를 쓰고 있었는데 width 5000px 넘는 큰 이미지 처리를 하려 하면 컴포넌트의 이미지 크기 변경 메쏘드 부분의 오류를 내뿜었다.PHP의 GD도 같은 증상인가? 싶어 PHP 썸네일 생성 시도를 해보았더니 메모리가 적으니 할당을 더 하라는 오류가 나왔다. (ASP 보다 훨씬 친절하다.)if (ini_get('memory_limit') < '256M') { @ini_set('memory_limit','256M'); }와 같은 스크립트를 상단에 더하고 다시 실행시켜보았더니 썸네일이 잘 작동하였다.그러면, Win 2003 IIS 6 상에서 돌아가는 Classic ASP 의 할당 메모리는 어디서 조정해야 할까?IIS 6의 Metabase.xml 수정을 해야한다.AspBuffe..

http://www.advancedqtp.com/constructor-arguments-in-vbscript/ 'An example for the new constructor format Private Sub Class_Initialize '(Param1, Param2) 'You can keep you Class_Initialize sub as private - it will still work! Msgbox Param1 'You can use you parameters just like any other variable Param2.Add "Some", "Thing" 'You can even pass objects, such as dictionaries End Sub 'An example for the..

HtmlZap Github https://github.com/maiken2051/htmlzap Homepage http://www.miken.com/htmlzap/ Docment http://www.miken.com/htmlzap/hzdoc.htm HTML 파싱 예: latest_hit = """항소하면 죽을 때까지 싸울래요""" latest_hit = latest_hit &"여야 의원들, 여성가족부 집중 추궁" latest_hit = latest_hit &"한국도 ‘동일임금의 날’ 제정 추진" ' the way of using component Set hz = CreateObject("HtmlZap.HtmlZap.1") hz.LoadBuffer CStr(latest_hit) While not hz.eo..

'// 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..