ASP에서도 클래스(Class)를 구현해보자^^
여기 한 예를 들어보겠습니다^^
<%
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만 되는게 아닙니다. PHP도 되죠^^
많은 분들께 도움이 되길 바라며~
모두 좋은 하루 되세요~
==================================================
출처 : 데브피아 ASP 강좌 게시판