IIS에서 확장자 php가 asp형식으로 실행 되돌록 매핑하는 방법
참조 : https://m.blog.naver.com/PostView.nhn?blogId=tjrwjd3535&logNo=220750241376&proxyReferer=https:%2F%2Fwww.google.com%2F
Category Archives: [Dev]ASP
sitegalaxyupload 서버 세팅 및 기타 오류
64bit 에서 세팅 하기 ActiveX 구성 요소는 개체를 작성할 수 없습니다. 참조 : https://auctionpro.co.kr/?p=4328
DEXTUpload server2008 64bit 설치시 에러 해결
Server.CreateObject(“DEXT.FileUpload”) 객체생성을 하면 500번 에러 발생 설치 DEXTUpload_v248 버전이 32버전이라 IIS 응용프로램 풀에서 사이트 설정 후 고급 설정에서 “32비트 응용프로그램 사용” True 로 변경 해결 됩니다. 비고) server2008 64bit 에 DEXTUpload Pro x64 3.2.0 설치시 다음과 같은 에러 발생 DEXTUpload Pro x64 3.3.0 이상 으로 설치해야 한다고 온라인 기술에서 얘기 하고 있습니다. 그냥 옛날 버전… Read More »
asp 한글 깨졌을때 코드추가
**** 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를 찾아 변수에 저장
IP확인 jsp : String REMOTE_ADDR = request.getRemoteAddr(); asp : REMOTE_ADDR = Request.ServerVariables(“REMOTE_ADDR”) php : $REMOTE_ADDR = $_SERVER[“REMOTE_ADDR”];
[Asp] WebService 로 받아 XML로 리턴하기 예제
|
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 %> |
asp download file
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″ AspMaxRequestEntityAllowed=”4240000″ => spMaxRequestEntityAllowed=”20240000″
[asp] sql Injection 방지 함수
저장프로시저 추척을 권장하나 수정할게 많으면 차후 차근차근 수정 하고 임시로 아래와 같이 한다. 다음 파일을 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 |
[asp] replace 콤마 comma
Replace(str, “,”, ” “, 1)
ASP 파일 읽기
Const filePath = “D:\List.xml” Dim fso set fso = server.createObject(“Scripting.FileSystemObject”) if fso.FileExists(filePath) then set textStream = fso.OpenTextFile(filePath, 1, false) Dim contents contents = textStream.ReadAll Response.write contents textStream.Close set textStream = nothing else Response.write “Error” end if set fso = nothing