웹개발자의 기지개

이전페이지를 구할때 쓰는 놈이 Request.ServerVariables("HTTP_REFERER") 이다. 아래와 같이 예제를 살펴보면 Split 형태로 구분자를 이용하여 배열형식으로 자르고, 이를 통하여 파일명을 구하는 간단한 예제이다. 12345678910prev_page = Request.ServerVariables("HTTP_REFERER")If Not IsNull(prev_page) And prev_page "" Then ' http://wonpaper.pe.kr/front/products/led_main2.asp?cc=P001002 thisFileArr = Split(prev_page,"/") prev_pageArr = Split(thisFileArr(5),".asp") prev_pageFi..

949: EUC-KR 65001: UTF-8 65535: UTF-16 ASP 페이지의 경우, HTML 페이지의 경우,

asp상에서 Server.URLencode("가나다") 와 같이 encode 함수는 지원을하고 있다. 다만, decode 함수는 별도로 장만해야한다. 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 Function URLDecode(Expression) Dim strSource, strTemp, strResult, strchr Dim lngPos, AddNum, IFKor strSource = Replace(Expression, "+", " ") For lngPos = 1 To Len(strSource) AddNum = 2 strTemp = Mid(strSource, lngPos, 1) If strTemp = "%..

prev_page = Request.ServerVariables("HTTP_REFERER") If Not IsNull(prev_page) And prev_page "" Then' http://홈페이지/front/products/led_main2.asp?cc=P001002 thisFileArr = Split(prev_page,"/") prev_pageArr = Split(thisFileArr(5),".asp") prev_pageFileName = prev_pageArr(0) response.Write prev_pageArr(0) ' prev_pageArr(0) -> led_main2 , prev_pageArr(1) -> ?cc=P001002

script_name = Request.ServerVariables("SCRIPT_NAME") script_nameArr = Split(script_name,"/") thisPageStr = script_nameArr(3)' /front/products/o_lcd_main2.asp thisPageStr 은 o_lcd_main2.asp 값이다. thisFileStr = request.servervariables("PATH_INFO") thisFileArr = Split(thisFileStr,"/") /html/product/galileo.asp 현재파일명은 thisFileArr(3)

2008서버 상에서 500 내부오류 메세지를 만날때 아래의 설정을 하면 그 오류 메세지 확인이 가능하다. 물론 보안상 그대로 두는게 낫다. IIS 7.x 이상 1. IIS 에서 ASP 항목 선택 2. 디버깅 속성 안에 : 브라우저에 오류 전송하기 를 True : 클라이언트 쪽 디버깅 사용 True 3. IIS 에서 오류페이지 항목 선택 : 기능설정편집 , 자세한 오류 선택 내 익스 도구 -> 인터넷 옵션 -> 고급 -> HTTP 오류 메세지를 제외

Function fnCheckSQLInjection() Dim item, i, udata Dim retFlag retFlag = True For Each item In Request.QueryString For i = 1 To Request.QueryString(item).Count udata = LCase(Request.QueryString(item)(i) & "") If InStr(udata, "=cast(") > 0 Or InStr(udata, "sysdatabases") > 0 Or InStr(udata, "sysobjects") > 0 Or InStr(udata, "syscolumns") > 0 Or InStr(udata, "select char(94)") > 0 Then retFlag = Fa..