[ASP, MSSQL] dbconnection.asp 사용하기

dbconnection.asp 파일 생성

<%
' dbconnection.asp

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

' 데이터베이스 연결 문자열 설정
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=서버이름;Initial Catalog=데이터베이스이름;User ID=사용자이름;Password=비밀번호;"
conn.Open

' 오류 발생 시 처리
If Err.Number <> 0 Then
    Response.Write "데이터베이스 연결 오류: " & Err.Description
    Response.End
End If

Function GetConnection()
    Set GetConnection = conn
End Function

Sub CloseConnection()
    If conn.State = adStateOpen Then
        conn.Close
    End If
    Set conn = Nothing
End Sub
%>

 

sample.asp 파일 사용

<%
' example.asp

' 공통 데이터베이스 연결 파일 포함
<!--#include file="dbconnection.asp"-->

Dim rs, sql

' 페이지 인코딩을 UTF-8로 설정합니다.
Response.ContentType = "text/html"
Response.Charset = "UTF-8"

' 데이터베이스 연결 가져오기
Set conn = GetConnection()

' 쿼리문 작성
sql = "SELECT * FROM YourTableName"

' Recordset 객체 생성 및 쿼리 실행
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn

' 데이터 출력
Do While Not rs.EOF
    response.write "Column1: " & rs("Column1") & "<br>"
    response.write "Column2: " & rs("Column2") & "<br>"
    rs.MoveNext
Loop

' Recordset 및 연결 닫기
rs.Close
Set rs = Nothing
CloseConnection()
%>