묻고답하기

  2. Support
  3. 묻고답하기

asp 디비 접속 소스인데 문제가 생기는데 어디가 문제인지 봐주세요.

2004.12.05 13:09

絶世美男@

고수님들의 답변 좀 부탁드립니다.
소스에 무슨 문제가 있는지 서버의 메모리를 조금씩 증가시키다가 결국엔 메모리가 꽉차서 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 남기남
우정원 [저작권 문의] 자바스크립트 소스 베껴쓰기  
우정원 캐쉬 문제를 ASP와 동일하게 설정하고자 합니다.  
김동빈 리얼플레이어 파일도 미디어 플레이어 파일처럼 슬라이더 나타낼수 없나요??  
김경석 휴~ 정말 죄송한데요...학교 과제 하는데 막히네요..좀 도와주세요 ㅠㅠ [3] 2007.08.10
권율성 -_-; 모전사이트 운영하는데요 현황도에서..  
김걸 다국어 사이트 제작시....  
Badboy phpmyadmin [1] 2007.08.10
안재민 index.html의 플래시 인트로 질문입니다. [1] 2007.08.10
황성주 자바스크립트 에러.  
김정훈 $sql= 이 부분좀 알려주세요.. [2] 2007.08.10
okoru 모든 사람이 다 볼 수 있는 폰트는? [3] 2007.08.10
권기용 프레임 변수값 넘기기  
김동욱 표를 화면에 꽉 차게 하는 방법? [1] 2007.08.10
絶世美男@ asp 디비 접속 소스인데 문제가 생기는데 어디가 문제인지 봐주세요. [1] 2007.08.10
박정원 서브메뉴+롤오버+이미지맵 한꺼번에 적용을 어떻게 하는지...  
김병석 [ 표부분의 셀을 고정하고 싶습니다. ]  
이재훈 한계정당 몇개의 홈피만드는 방법? [1] 2007.08.10
DeepLust 홈페이지 만들고 있는데.. BGM 이 문제가 있습니다.. 도와주세요~ [1] 2007.08.10
UGenet nzeo 홈페이지처럼... [1] 2007.08.10
백대혁 songinfo.xml 파일경로 질문입니다. [1] 2007.08.10
샤갈 홈페이지 비용이 얼마정도 하는지 보시고 답변 부탁드려요 [1] 2007.08.10
누굴까 새창 띄우는 법좀 가르쳐주세요 [1] 2007.08.10
박찬식 좀 엉뚱한 에러인데.. 봐주시면 감사하겠습니다.^^ [3] 2007.08.10
조준희 게시판 인클루드시 Base URL 변수로 입력받을 수 있나요? [1] 2007.08.10
김한주 표옆에 사진이 밀려서 나옵니다; [2] 2007.08.10
유현주 일본어 폰트를 깔았는데요.왜 포토샵에서 적용일 안될까요? [2] 2007.08.10
안민 도메인 질문 할 곳을 몰라서 이곳에 질문글을 올립니다. [3] 2007.08.10
김철호 게시판 검색창에 한글로 검색후 다음페이지 클릭시 에러..  
임유빈 플래시 에서.. 액션 질문.. [1] 2007.08.10
someday 포토샵에서 이미지크기&인쇄부분 관련질문,,, [1] 2007.08.10
태그 쓰기