'ACCESS 데이터베이스 경로 문제를 해결했습니다!
'AC 라이브러리 또는 MSSQL 라이브러리를 구별하려면 DBType=0 또는 DBType=1을 사용하십시오.
'AC 라이브러리 이용 시 특별히 주의해야 할 사항은 프로그램 설명을 참조하시기 바랍니다
----------------------------- ----- ----------
희미한 DBType,Conn,StrConn
DBType=0 '0은 Access 데이터베이스, 1은 MSSQL 데이터베이스
If(DBType=0) Then
'********************데이터베이스에 액세스******************
희미한 DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" '데이터베이스가 위치한 폴더 이름
DbFolder_Path = Server.MapPath(DbFolderName) '데이터베이스 경로
SiteFolder="Article" '시스템이 위치한 루트 디렉터리의 이름If
Session("RootDir") = "" Then
세션("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
다음과 같은 경우 종료
Conn = Server.CreateObject("Adodb.Connection") 설정
StrConn = "드라이버={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" '데이터베이스에 연결
Conn.Open StrConn
'************************************************ *
ElseIf(DBType=1) 그러면
'****************MSSQL 서버 데이터베이스******
희미한 DBUserID,DBPassWord,DBName,DBIP
'귀하의 사이트에 맞게 다음 정보를 수정하세요.
DBUserID="sa" '데이터베이스 로그인 이름
DBPassWord="" '데이터베이스 비밀번호
DBName="dbname" '데이터베이스 이름
DBIP="local" '로컬 데이터베이스인 경우 데이터베이스의 주소: (local)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;데이터 소스="&DBIP&";초기 카탈로그="&DBName&";지속 보안 정보=True;사용자 ID="&DBUserID&";Password="&DBPassWord&";연결 시간 제한=30"
Conn.Open StrConn
'************************************************ * ****
또 다른
'************************데이터베이스 설정 오류********************
Response.Write "데이터베이스 설정 오류입니다. 관리자에게 문의하세요!"
응답.종료
종료 조건
'Response.WriteStrConn