세상사즐겁고행복하게

오늘은 ASP에서 DB연결을 하는 방법에 대해 설명하려 합니다. 너무나도 잘 알려진 내용이지만 저의 블로그에서 체계적으로 정리하는 의미에서 연재하고자 합니다. * 소스코드 Dim dbcon Function DBOpen Set dbcon = Server.CreateObject("ADODB.Connection") dbcon.Provider = "Sqloledb" dbcon.Open("Server=localhost;Database=DB명; UID=DB아이디; PWD=DB암호;") end function Function DBClose dbcon.close set dbcon=nothing end function 보통 함수로 만들어놓고 많이 사용하게 됩니다. 위 함수는 고정적이고, DB명, 아이디, 암호만 넣고 시..

오늘은 asp 에서 db 쿼리 상의 에러를 화면에 표시하는 방법에 대해 설명하고자 합니다. 일반적으로 쿼리 날리는 open 함수 직전에 'response.write sql' 해서 쿼리를 보고 그걸 긁어서 sql 쿼리분석기에서 던져 보아서 쿼리에러를 많이찾게 됩니다. 근데 그럴 수 없는 상황일 경우, 즉, 안보이는 페이지에서 처리해야 할 경우는 좀 남감하게 되는데.. 그때 아래처럼 처리를 하면 편리합니다. * 소스 코드 및 사용법 on error resume next ' 반드시 이것을 해야 에러를 확인할 수 있습니다., 디버그할 때 넣어 놓고 실 운영에서는 마킹합니다. ' 에러가 나도 다음으로 넘어간다는 의미이기 때문에 에러 후 후처리되는 쿼리들이 잘못 데이터가 들어가게 됩니다. Function DBErr..

오늘은 디버깅할 때나 현재 페이지 url 알고자 할 때 많이 사용하는 ServerVariables 의 인자들에 대해 몇가지 설명하고자 합니다. 많이 알고는 있는 정보지만 한번 모아보았습니다. * 소스코드 ' 현재 url의 서버상의 path 정보 serverMapPath = Server.MapPath(".") ' 현재 url의 서버상의 path 정보 - 가상path의 경우 실제 있는 path을 알고자 때 사용 physicalPath = Request.ServerVariables("appl_physical_Path") ' ?? 잘 기억이~ filePath = Request.ServerVariables("path_translated") ' 도메인 serverName = Request.ServerVariable..

오늘은 asp 에서 C++에서 사용하는 printf 의 %04d 와 같은 숫자에 0으로 채우는 형식을 사용할 때가 있습니다. 이런 경우에 사용하는 함수를 만들어서 사용해야 하는데. 이런 때 사용할 수 있는 함수를 설명합니다. * 소스코드 // szString : 전달값 , string 형으로 전달 // Expression : 빈칸에 채울 값의 나열 Function SerialFormat(ByVal szString, ByVal Expression) If chrbyte(szString) < Len(Expression) Then SerialFormat = Left(Expression, Len(Expression) - chrbyte(szString)) & szString Else SerialFormat = sz..

오늘은 asp 에서 특정길이 이하로 글자를 자르고 ... 으로 표현하는데 사용하는 방법에 대해 설명하고자 합니다. 보통 일반적인 방법으로 하면 한글 같은 경우 2 byte 라서 정상적으로 표현이 잘 되지 않는데 이런 경우에도 정확히 한글을 2 byte 로 해서 표현하는 방법입니다. * 소스 코드 // CheckValue : 문자열 // CheckLen : 자를 길이 (byte) Function MakeShortWord(CheckValue, CheckLen) short_title = "" if CheckValue "" then bytesize = 0 for sub_i = 1 to len(CheckValue) if asc( mid(CheckValue,sub_i,1) ) = bytesize then short..

오늘은 asp에서 요일을 구하는 방법에 대해 설명하고자 합니다. 아주 쉬운 것이지만 정리차원에서 설명하고자 합니다. 핵심은 WeekDay 함수입니다. 다만 이 응답이 숫자값이기 때문에 문자값으로 바꾸려면 함수를 만들어야 합니다. * 소스코드 // parm_date : 날짜 2016-01-01 형식이어야 함 function GetWeekString(parm_date) Dim strNowWeek, week_string strNowWeek = WeekDay(parm_date) Select Case (strNowWeek) Case 1 week_string = "일" Case 2 week_string = "월" Case 3 week_string = "화" Case 4 week_string = "수" Case 5 ..

오늘은 asp에서 request 을 받을 때 sql injection 을 통해 사이트가 해킹이 되는 사례가 많은데 그걸 막는 방법에 대해 설명하고자 합니다. 통상 많은 방법이 있지만, 아래의 코드를 만들어 사용하고 난 다음부터는 sql injection 을 당한 적이 없었습니다. 물론 이 함수를 사용하기 전에 있었죠~~ 중국, 러시아.. 만약 좀더 좋은 방법이 있으시면 가공해서 사용하시면 됩니다. * 소스코드 // parm_value : request 값 // parm_to : 변환유형 : db, web, edit Function CheckWordEx(parm_value, parm_to) read_value = parm_value if len(read_value) 0 then ret_val = "inje..

오늘은 asp에서 db 쿼리 할 때 asp의 단점인 쿼리 호출해서 필드를 가져올 때 코딩이 좀 길어진다는 점이 있습니다. 하나의 필드에 하나의 값을 가져올 때 사용하기 편한 함수를 만들었습니다. * 소스코드 // parm_rs : record set, rs 값은 함수 호출 전에 미리 생성이 되어야 한다. // parm_sql : sql Function GetDBOneData(parm_rs, parm_sql) ret_val = "" parm_rs.open parm_sql,dbcon if parm_rs.eoftrue then ret_val = NullReplace(parm_rs(0), "") end if parm_rs.close GetDBOneData = ret_val end function * 사용법 sq..

오늘은 ㅊ에서 보통 은행권이나 발주쪽 프로그램에서 사용되는 한글금액 표기하는 방법을 함수로 구현하고자 합니다. 사실 거의 고정코드이기에 금액자리가 무지 커지게 되면 함수를 좀 수정해야 합니다. 함수가 좀 길기는 하지만 잘 보시면 고정코드라는것을 아실 수 있습니다. * 소스코드 function HanglePrice(parm_str) str_len = len(parm_str) hangle = "" if str_len > 15 then select case mid(parm_str, str_len-15, 1) case "1" : hangle = hangle & "일천" case "2" : hangle = hangle & "이천" case "3" : hangle = hangle & "삼천" case "4" : h..

오늘은 asp에서 보통 많이 사용하는 것 중에 문자열의 유형에 대해 검사하는 함수가 필요할 때가 많은데 이에 대한 함수를 만들고자 합니다. 결국 RegExp 를 이용하여 문자열의 패턴을 확인을 하는 것인데 아래 내용을 보시고 그에 맞게 사용하시면 됩니다 'pattern0 = "[^가-힣]" '한글만 'pattern1 = "[^-0-9 ]" '숫자만 'pattern2 = "[^-a-zA-Z]" '영어만 'pattern3 = "[^-가-힣a-zA-Z0-9/ ]" '숫자와 영어 한글만 'pattern4 = "]*>" '태그만 'pattern5 = "[^-a-zA-Z0-9/ ]" '영어 숫자만 위 패턴에 대해 인자값을 넣어서 사용하시면 됩니다. 아래의 내용을 보면 한글을 체크하는 함수입니다. * 소스코드 Fun..