mssql연결 테스트 소스

<%OPTION EXPLICIT%>
<h3>연결 문자열을 사용하여 데이터베이스에 연결하기<hr noshade></h3>
<%
Dim objDBConn, strConn, SQL, rs


'Connection 객체를 생성
Set objDBConn = Server.CreateObject("ADODB.Connection")


'연결 문자열 정의
strConn = "Provider=SQLOLEDB.1;Data Source=[IP];Initial Catalog=[DSN];User ID=[ID];Password=[PASSWORD]"
 
'데이터베이스에 연결
objDBConn.Open strConn
 
'데이터베이스 연결 확인
If objDBConn.State = 1 Then
 Response.Write "데이터베이스에 연결되었습니다"
Else
 Response.Write "데이터베이스 연결에 실패하였습니다."
End If


'데이터베이스 연결 종료 및 객체 소멸
objDBConn.Close
Set objDBConn = Nothing
%>