사실 ASP 프로그램을 작성할 때 모두가 가장 걱정하는 것은 데이터베이스 연결 정보가 어떤 사람들에게 보여 피해를 입힐 수 있다는 점입니다. 다음으로 vb6.0을 사용하여 데이터베이스 연결 정보를 숨기는 동적 링크 라이브러리(.dll)를 만듭니다.
vb6.0을 시작하고 새 --> 활성 dll 프로젝트를 만듭니다. "프로젝트"-->참조를 클릭하고 "Microsoft Active Server Pages 개체 라이브러리"를 선택합니다.
및 "Microsoft ActiveX 데이터 개체 2.1 라이브러리" 두 항목. 클래스 모듈의 이름을 dcss로 변경합니다. 프로젝트 이름을 yygwy로 변경합니다. 프로젝트 파일 yygwy.vbp와 클래스 파일 dcss.cls를 저장합니다.
dcss.cls에 작성:
ScriptingContext로 비공개 myscriptingcontext
개인용 myapplication을 애플리케이션으로
요청으로 개인 myrequest
비공개 myresponse를 응답으로
개인 myserver를 서버로 사용
비공개 세션 세션으로
공개 하위 onstartpage(scriptingcontext를 ScriptingContext로 전달함)
myscriptingcontext 설정 = passscriptingcontext
myapplication 설정 = myscriptingcontext.Application
myrequest 설정 = myscriptingcontext.Request
myresponse 설정 = myscriptingcontext.Response
myserver 설정 = myscriptingcontext.Server
mysession = myscriptingcontext.Session 설정
End Sub
Public Sub onendpage()
myscriptingcontext = 없음 설정
내 응용 프로그램 설정 = 없음
myrequest = 없음 설정
내 응답 설정 = 없음
myserver = 없음 설정
내 세션 설정 = 없음
End Sub
'위 내용은 필수입니다.
'두 개의 공용 함수 정의
공용 함수 rsresult(strsql As String) As Recordset
연결로 희미한 mycnn
Dim myset을 레코드세트로 사용
희미한 strconnstring을 문자열로
'strconnstring = "공급자=sqloledb.1;
비밀번호=;" & "사용자 ID=sa;" & "초기 카탈로그=vlog;" & "데이터 소스=hpe60;
연결 시간 초과=15"
strconnstring = "드라이버={sql 서버};서버=양;uid=sa;pwd=;
데이터베이스=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.strconnstring 열기
myset.ActiveConnection = mycnn
myset.Open strsql, mycnn, 3, adCmdText
rsresult = myset 설정
끝 함수
공용 함수 datasource() As Variant
데이터 소스 = "드라이버={sql 서버};서버=양;uid=sa;pwd=; 데이터베이스=dcss"
End Function은
dcss.dll 파일을 컴파일하고 생성합니다. regsvr32 경로dcss.dll을 등록합니다.
시각적 interdev로 global.asa 파일을 엽니다. 물론 다른 파일에서도 사용할 수 있습니다.
set dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn은
다른 페이지에서 다음과 같이 호출할 수 있습니다.
set objConn = Server.CreateObject("ADODB.Connection")
objConn.응용 프로그램 열기("strconn")