asp : 날짜 컨버터 함수 11JAN
Overview : 11JAN와 같은 날짜 형식을 오늘과 비교해서, 이전 날짜인 경우 False 로 리턴되는 함수
Overview : 11JAN와 같은 날짜 형식을 오늘과 비교해서, 이전 날짜인 경우 False 로 리턴되는 함수
Overview : ssl 이 적용하지 않은 사이트는 팝업에서 바로 Redirect가 되지 않아 delay 를 35초로 세팅해야 합니다. 수동으로 클릭한다고 delay 로 웹에 인지 시키면 Redirect […]
참조 : https://m.blog.naver.com/PostView.nhn?blogId=tjrwjd3535&logNo=220750241376&proxyReferer=https:%2F%2Fwww.google.com%2F
64bit 에서 세팅 하기 ActiveX 구성 요소는 개체를 작성할 수 없습니다. 참조 : https://auctionpro.co.kr/?p=4328
Server.CreateObject(“DEXT.FileUpload”) 객체생성을 하면 500번 에러 발생 설치 DEXTUpload_v248 버전이 32버전이라 IIS 응용프로램 풀에서 사이트 설정 후 고급 설정에서 “32비트 응용프로그램 사용” True 로 변경 해결 […]
**** euc-kr ****
1 2 3 4 5 6 7 8 9 |
<% @Language="VBScript" CODEPAGE="949" %> <% Response.CharSet="euc-kr" Session.codepage="949" Response.codepage="949" Response.ContentType="text/html;charset=euc-kr" %> |
**** utf-8 ****
1 2 3 4 5 6 7 8 9 |
<%@Language="VBScript" CODEPAGE="65001" %> <% Response.CharSet="utf-8" Session.codepage="65001" Response.codepage="65001" Response.ContentType="text/html;charset=utf-8" %> |
**** utf-8 csv 로 엑셀에 저장 시****
1 2 3 4 5 6 7 8 9 10 |
엑셀 시작부분에 아래 문장을 넣으면 글자가 깨지지 않음 Response.BinaryWrite(ChrB(239) & ChrB(187) & ChrB(191)) '엑셀로 저장 Response.Buffer = True Response.ContentType = "appllication/vnd.ms-excel" '// 엑셀로 지정 Response.CacheControl = "public" Response.AddHeader "Content-Disposition","attachment; filename=Mobile_Seg_list.csv" |
UTF-8 기타 처리 참고 http://unions5.tistory.com/38
IP확인 소스
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
<% 'option explicit %> <% ' Response.Expires = 0 'ASP 스크립트를 사용하여 캐싱 금지 ' Response.Expiresabsolute = Now() - 1 ' Response.AddHeader "pragma","no-cache" ' Response.AddHeader "cache-control","private" ' Response.CacheControl = "no-cache" Dim Type Dim ID Dim RLOC Type = request.Form("Type") ID = request.Form("ID") RLOC = request.Form("RLOC") HttpPath="http://MyWebSite/my.asmx/WSTL" '------------------------------------------------------------------- Dim lResolve Dim lConnect Dim lSend Dim lReceive Dim sSend sSend="Type="& Type & _ "&ID="& ID & _ "&RLOC="& RLOC 'response.write sSend 'response.end Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") lResolve = 30 * 1000 'Timeout values are in milli-seconds lConnect = 30 * 1000 lSend = 30 * 1000 lReceive = 30 * 1000 XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive XMLhttp.open "POST",HttpPath, False '------------------------------------------------------------------ XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" XMLhttp.Send sSend Dim sResponse sResponse = XMLhttp.responseText Response.ContentType = "text/xml" response.write sResponse response.end %> |
Response.BinaryWrite Office 2007 docs corrupted 참조 : http://www.aspsnippets.com/Articles/Save-Files-to-SQL-Server-Database-using-FileUpload-Control.aspx 다운로드시 10M 이상 다운로드 안될때 // IIS 서비스 재시작 C:\WINDOWS\system32\inetsrv MetaBase.xml 열어 수정 (범퍼/업로드) AspBufferingLimit=”10240000″ => AspBufferingLimit=”20240000″ […]
저장프로시저 추척을 권장하나 수정할게 많으면 차후 차근차근 수정 하고 임시로 아래와 같이 한다. 다음 파일을 include
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
<% Dim key Dim strFilter Dim rgFilter Dim nFilter Dim incone Dim resultbadstring ' 본 스크립트가 삽입된 페이지에 전달되는 모든 GET, POST 데이터에 대한 필터링 검사 ' GET 데이터 값 for each key in request.QueryString resultbadstring = badstring(trim(Request.QueryString(key))) if resultbadstring = "error" then response.write " Internet Explorer로 요청한 웹 페이지에 연결할 수 없습니다." response.end 'response.redirect("about:blank") end if next ' POST 데이터 값 for each key in Request.form resultbadstring = badstring(trim(Request.form(key)) ) if resultbadstring = "error" then response.write " Internet Explorer로 요청한 웹 페이지에 연결할 수 없습니다." response.end end if next Function badstring(inboundstring) inboundstring = LCase(inboundstring) strFilter = " --,exec,xp_,sp_,1=1,DECLARE,VARCHAR(,@variable,sYsDaTaBaSeS,sElEcT" ' 필터링할 문자열 strFilter = LCase(strFilter) '소문자로 비교 rgFilter = Split(strFilter ,",") ' 문자열을 배열로 변경 If ( IsArray(rgFilter) ) Then nFilter = UBound(rgFilter) ' 배열에 개수 end if for incone = 0 to nFilter if InStr(1,inboundstring,rgFilter(incone)) > 0 Then badstring ="error" exit for ' for문 탈출 else badstring = "ok" end if next End Function |
Copyright © 2024 | WordPress Theme by MH Themes