VoidNoble IT Zone

파일 인클루드 만으로 업로드 컴포넌트를 대체함.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 지원안하는 치명적 단점 존재.

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