묻고답하기

고수님들의 답변 좀 부탁드립니다.
소스에 무슨 문제가 있는지 서버의 메모리를 조금씩 증가시키다가 결국엔 메모리가 꽉차서 asp가 뻗어버립니다.
원인을 찾아봐도 저는 모르겠습니다.
소스에 문제가 있는거 같은데 머가 문제일까요?


<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html>
<head></head>
<body>
<!--ver. 0410161800 -->
<br><br>
<%
sQuery   = Request.QueryString("Query")
sUserID  = Request.QueryString("UserID")

strcon = "Driver={MySQL ODBC 3.51 Driver};Server=******;Database=*******;uid=*********;pwd=**********"
set DbCon = Server.CreateObject("ADODB.Connection")

if IsObject(DbCon) = False then
        Response.Write "FAIL_Connection"
else        
        DbCon.open strcon
end if

Response.Write "[[##"

select case sQuery
        case "CS01"
                sSql = "SELECT jumin, endday FROM zetyx_member_table WHERE user_id = '" & sUserID & "'"
                Set RS = DbCon.Execute(sSql)
                while not RS.eof
                Response.Write RS(0) & ":" & RS(1)
                RS.MoveNext
                wend
                RS.Close
                set RS = nothing
        case "CS02"
                sUserPW = Request.QueryString("UserPW")
                sSql = "SELECT msn, jumin, endday FROM zetyx_member_table "
                sSql = sSql & "WHERE user_id = '" & sUserID & "' and password = '" & sUserPW & "'"
                Set RS = DbCon.Execute(sSql)
                while not RS.eof
                Response.Write RS(0) & ":" & RS(1) & ":" & RS(2)
                RS.MoveNext
                wend
                RS.Close
                set RS = nothing
        case "CS03"
                sClientIP = Request.QueryString("ClientIP")
                sSql = "SELECT clientno FROM memberclient WHERE user_id = '" & sUserID & "' and clientip = '" & sClientIP & "'"
                Set RS = DbCon.Execute(sSql)
                while not RS.eof
                Response.Write RS(0)
                RS.MoveNext
                wend
                RS.Close
                set RS = nothing
        case "CS04"
                sClientIP = Request.QueryString("ClientIP")
                sClientNO = Request.QueryString("ClientNO")
                sSql = "SELECT clientno FROM memberclient WHERE user_id = '" & sUserID & "' and clientno = '" & sClientNO & "'"
                Set RS = DbCon.Execute(sSql)
                while not RS.eof
                Response.Write RS(0)
                RS.MoveNext
                wend
                RS.Close
                set RS = nothing
        case "CS05"
                sType = Request.QueryString("Type")
                sSql = "SELECT mode FROM proginf WHERE type = '" & sType & "'"
                Set RS = DbCon.Execute(sSql)
                while not RS.eof
                Response.Write RS(0)
                RS.MoveNext
                wend
                RS.Close
                set RS = nothing
        case "CI00"
                sProgram         = Request.QueryString("Program")
                sFunction         = Request.QueryString("Function")
                sLine                 = Request.QueryString("Line")
                sNumber                 = Request.QueryString("Number")
                sText                 = Request.QueryString("Text")
                sCreatedDate = Request.QueryString("CreatedDate")                
                sSql = "INSERT INTO progerr (clientid, program, function, line, number, text, createddate) VALUES "
                sSql = sSql & "('" & sUserID & "', '" & sProgram & "', '" & sFunction & "', '" & sLine & "', "
                sSql = sSql & "'" & sNumber & "', '" & sText & "', '" & sCreatedDate & "')"
                DbCon.Execute(sSql)  
        case "CI01"
                sClientNO = Request.QueryString("ClientNO")
                sClientIP = Request.QueryString("ClientIP")
                sBadWord  = Request.QueryString("BadWord")
                sBadSite  = Request.QueryString("BadSite")
                sSql = "INSERT INTO userbadsite (user_id, clientno, clientip, badword, badsite) VALUES "
                sSql = sSql & "('" & sUserID & "', '" & sClientNO & "', '" & sClientIP & "', "
                sSql = sSql & "'" & sBadWord & "', '" & sBadSite & "')"
                DbCon.Execute(sSql)
        case "CI02"
                sClientNO = Request.QueryString("ClientNO")
                sClientIP = Request.QueryString("ClientIP")
                sSql = "INSERT INTO memberclient(user_id, clientno, clientip) VALUES "
                sSql = sSql & "('" & sUserID & "', '" & sClientNO & "', '" & sClientIP & "')"
                DbCon.Execute(sSql)
        case "CU01"
                sClientNO   = Request.QueryString("ClientNO")
                sBadSiteOpt = Request.QueryString("BadSiteOpt")
                sSql = "UPDATE memberclient SET badsiteopt ='+ '+ '" & sBadSiteOpt & "' "
                sSql = sSql & "WHERE user_id ='" & sUserID & "' and clientno = '" & sClientNO & "'"
                DbCon.Execute(sSql)
        case "CU02"
                sClientNO   = Request.QueryString("ClientNO")
                sCdPatchOpt = Request.QueryString("CdPatchOpt")
                sSql = "UPDATE memberclient SET cdpatchopt ='" & sCdPatchOpt & "' "
                sSql = sSql & "WHERE user_id ='" & sUserID & "' and clientno = '" & sClientNO & "'"
                DbCon.Execute(sSql)
        case "CU03"
                sClientNO = Request.QueryString("ClientNO")
                sVersion  = Request.QueryString("Version")
                sSql = "UPDATE memberclient SET version ='" & sVersion & "' "
                sSql = sSql & "WHERE user_id ='" & sUserID & "' and clientno = '" & sClientNO & "'"
                DbCon.Execute(sSql)
        case "CD01"
                sClientNO = Request.QueryString("ClientNO")
                sSql = "DELETE FROM memberclient WHERE user_id = '" & sUserID & "' and clientno = '" & sClientNO & "'"
                DbCon.Execute(sSql)
        case "MS01"
        case "MI01"
        case "MU01"
        case "MD01"

end select

Response.Write "##]]"

DbCon.Close
set DbCon = nothing
%>
</body>
</html>
글쓴이 제목 최종 글
XE 공지 글 쓰기,삭제 운영방식 변경 공지 [16] 2019.03.05 by 남기남
나그네성 xe 기본레이아웃에 배너넣는 법좀 알려주세요 ~! [2] file 2014.02.14 by 나그네성
아띠에 코아버전 업그레이드한후 [2] 2014.02.14 by 아띠에
socialskyo 다들 스케치북 모바일 댓글 작성시 엔터입력후 BR 태그가 입력되는 문제 어떻게 하고 계시나요?  
nado0124 'BlogAPI 애드온'이 뭔가요? [2] 2014.02.14 by nado0124
모이라 관리자페이지오류좀 도와주세요!ㅠ [5] file 2014.02.14 by 론대
edwar 사이트 화면 크기 어떻게 조절하나요? [1] 2014.02.14 by ForHanbi
trule0425 게시판 글쓰기 관련...2월 11일 이후부터... [3] 2014.02.14 by trule0425
edwar 사이트 화면 비율 어떻게 조절하나요? ㅜㅜ [3] file 2014.02.14 by edwar
꿹삯닻 게시글을 자기가 쓴 것만 보게 하려면.. [6] 2014.02.14 by ForHanbi
꿹삯닻 회원가입이 불가능하도록 만들고싶은데.. [11] 2014.02.14 by 돼지코구뇽
루팡쿠팡 회원가입할때 이메일 적는란에 네이버 다음 구글을 선택할수있는 설렉트박스 만드는법  
루팡쿠팡 추천, 비추천 누르기전 "추천하시겠습니까?" 라고 확인 메세지 뜨게 하는 방법  
생컨 인증 메일이 네이버/지메일에선 수신되지 않습니다 [2] 2014.02.14 by 생컨
산야초 sketchbook5 레이아웃 수정해서 써도 되나요? [2] 2014.02.14 by 산야초
산야초 홈페이지 레이아웃 추천좀... [2] 2014.02.14 by 산야초
웜블 관리자페이지 주소나, 변경을 하고싶습니다.  
김선생™ 1.5.3.7 쓰고 있는데. 최신걸로 1.7.4로 업데이트 하려는데요? [5] 2014.02.14 by Reejang
edwar 로그인 버튼 질문입니다 ㅜㅜ!!!! file  
상해파 모듈의 info.xml에 다국어 입력방법 [2] 2014.02.14 by 상해파
쨍하고해뜰날돌아온단다 언제부터인가 게시판의 [파일첨부]글씨가 입력창 라인에 가려집니다..ㅜ.ㅠ [14] file 2014.02.14 by Omega3
지오426 트래픽은 낮고 웹용량을 많이 주는 웹호스팅 업체 있을까요? [3] 2014.02.14 by 퍼니엑스이
xe초보자 포인트와 레벨 연동 질문있습니다.  
홍길동2000 게시글 작성시 이미지 관련된 질문입니다. [1] file 2014.02.14 by 홍길동2000
silhwang 버젼이 낮은데 모바일 홈페이지 제작 불가능할까요? [5] 2014.02.14 by Omega3
169..5cm 갑자기 회원들만 embed태그가 안먹히는현상  
초코파이 신규 쪽지수 보여주기 [1] 2014.02.14 by XE카오스
ajphoto 게시글 중복 등록 제한 (아이디당 게시물 1개만 등록) [2] file 2014.02.15 by ajphoto
생컨 captcha 애드온 사용시 회원가입할때 권한이 없다 나옵니다  
짝사랑 여기 게시판 스킨 어떤것인가요? [6] 2014.02.15 by choco@_@
오락실주인 실시간 접속자 정보 정확한거 ? [1] file 2014.02.15 by 상자님