<%
'DB 연결
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open ("DSN=mydata; UID=scott; PWD=tiger")
'SQL 작성
strSQL = "Select *"
strSQL = strSQL & " from wt_member"
response.write strSQL
rs.Open strSQL, conn
If rs.BOF or rs.EOF Then
%>
등록된 자료가 없습니다
<%
Else
Do Until rs.EOF
response.write rs("userid") &"<br>"
rs.MoveNext
Loop
End If
rs.Close
Set rs = nothing
Conn.Close
Set Conn = nothing
%>
------------------------------------------------------------
[oledb를 이용해서 연결하는 방법]
- oledb를 사용하면 odbc 세팅을 하지 않아도 됩니다.
- 위의 소스에서 connection 부분만 수정하면 됩니다.
---------------------------------------------------------
<OBJECT RUNAT=server PROGID=ADODB.Connection ID=Conn></OBJECT>
<OBJECT RUNAT=server PROGID=ADODB.Recordset ID=Rs ></OBJECT>
<%
'DB 연결
Conn.Open "DSN=tempDB;UID=xxx;PWD=xxxxx;" 'oledb 연결
%>