http://www.devpia.com/MAEUL/Contents/Detail.aspx?BoardID=57&MAEULNO=22&no=1658


<%

DIM DB_PROVIDER, MemberDB

 

Class DBCLASS

 

  Private DBConn

  Public  RS

 

   Private Sub Class_Initialize()  <- 생성자

 

          set DBconn = server.CreateObject("ADODB.Connection")

              DBconn.Open(DB_PROVIDER)

              set RS = server.CreateObject("ADODB.Recordset")

              RS.cursortype = 1

              RS.cursorlocation = 3

              RS.locktype = 3

 

      End Sub

 

   Private Sub Class_Terminate()  <- 소멸자

 

        if RS.state = 1 then RS.Close

 

          set RS = nothing

 

              DBConn.Close

          set DBconn = nothing

 

 

      End Sub

 

   Public Function query(InputSql) <- 이건 구냥 만든거^^

 

          RS.Open InputSql, DBConn

 

      End Function

 

End Class

%>

 

어떻습니까? 히히 사용법은 다음과 같습니다^^

 

<%

     DB_PROVIDER = "Provider=SQLOLEDB;Persist Security Info=False;User ID=test;Password=test;Initial Catalog=TestDB;Data Source=???.???.???.???"

    set memberDB = new DBCLASS

%>

자 접속할 디비를 정의하고 DBCLASS 클래스 객체를 생성합니다.

 

<%

memberDB.query("select * from TestTable")

 

Dim intCount

intCount = 0

if not memberDB.RS.EOF then

    memberDB.RS(0) = "KeHaHa"

    memberDB.RS.Update

    if IsEmpty(memberDB.RS(0)) then

        memberDB.query("insert into Test2Table(test) values(" & intCount & ")")

    elseif IsNull(memberDB.RS(0)) then

        memberDB.query("delete from Test2Table where intseq = " & intCount)

    end if

    memberDB.RS.MoveNext

    intCount = intCount + 1

end if

set memberDB = nothing

%>




클래스사용은 좋은것같은데....트래픽이 많아지면 외부객체오류가 발생하기 시작합니다.
일반펑션으로 바꾸면 해결이 됩니다만...하여튼 고생을 좀 했던 기억이...

'asp' 카테고리의 다른 글

GetRows  (0) 2009.11.25
다중셀렉트 값넘기기  (0) 2009.11.25
ASP 클래스  (0) 2009.11.18
ASP DB 액세스 튜닝 사례 및 DBHelper 소개  (0) 2009.11.18
Windows Server-유용하게 이용되는 ServerVariables collection 몇 가지  (0) 2009.11.17

+ Recent posts