등록 된 회원, 웹 개발 데이터베이스 작성 ---------------------------------------- ------ 루트 1 -------------------------------------------- ------------------------------------------------
****************************************** ***********************************
*이 클래스를 사용하여 ASP 페이지에서 DLL을 관리하고 등록하십시오.
*이 수업은 Win 2K에서 테스트됩니다
*참고 :이 클래스를 사용하여 먼저 XML 파일을 만듭니다. 파일은 다음과 같습니다. 메모장은 다음 3 줄을*.xml 파일로 저장합니다.
*
*<? xml? "1.0"encoding = "gb2312"
*<dll list>
*</dll list>
*
*-------------------------------------------------------------- --------------------------------------------------------- --------------------------------------------------------- --------------------------------------------------------- -----
*예:
*dim objretsvr32
*OBJREGSVR32 = NEW REGSVR32를 설정합니다
*objregsvr32
*if .loadxml ( "../ mydll.xml")
*Call Response.Write ( "XML 파일로드 오류")
*OBJREGSVR32 = 아무것도 설정하지 않습니다
*응답. 엔드
*종료 if
*사례 선택 .addnode ( "f : /web/cw31072/dll/test/myclass.dll", true)‘새 항목 추가 및 DLL 등록
*사례 1
*Call Response.Write ( "항목이 XML 파일에 추가되었고 DLL을 성공적으로 등록했습니다!")
*사례 0
*Call Response.write ( "항목이 XML 파일에 추가되었지만 DLL을 등록하면 실패했습니다!")
*사례 -1
*Call Response.write ( "XML 파일에 이미이 항목이 있습니다! DLL도 등록되었습니다!")
*종료 선택
*..........................
*끝납니다
*
*'벤 클래스는 매우 간단합니다. 몇 가지 방법이 있습니다. 그래서 나는 예를 들지 않고 그냥보십시오. 앞으로 열 수 있습니다
*'XML 파일은 등록하고 등록 할 DLL 목록에 따라 다릅니다.
*'각 항목의 XML 파일은 다음과 같습니다.
*'f : /web/cw31072/dll/test/myclass.dll은 dll 파일의 경로입니다
*'등록되었는지 = "1"에 관계없이 DLL이 등록 되었음에도 불구하고 = "0"은 아직 등록되지 않았습니다!
****************************************** ***********************************
클래스 regsvr32
개인 s_objxml
개인 s_objnoderoot
개인 s_strxmlpath
개인 s_strattributeName
'---------------------------------------------------------------- --------------------------------------------------------- ---------------------------------
'목표 : DLL 구성 XML 파일을로드합니다
'매개 변수 : XML 파일 주소
'반환 :로드하지 않으면 진실로 돌아갑니다
'---------------------------------------------------------------- --------------------------------------------------------- ---------------------------------
공개 함수 loadxml (strath)
set s_objxml = createobject ( "msxml2.document")
s_objxml.async = false
s_objxml.load (strath)
s_objxml.parseerror.errorcode <> 0 인 경우
s_objxml = 아무것도 설정하지 않습니다
loadxml = true
종료 기능
끝 If
s_objnoderoot = s_objxml.documentElement를 설정합니다
s_strxmlpath = strath
s_strattributeName = "등록되었는지 여부"
엔드 기능
'------------------------------------------------
'목표 : DLL 프로젝트를 추가하십시오
'매개 변수 : strath : dll 파일 주소
'Blnreg : 추가 후 등록할지 여부
'반품 : 등록이 필요한 경우 등록이 성공하고 등록이 실패하고 등록 실패는 0을 반환하고 프로젝트는 이미 프로젝트를 가지고 있으며 레지스터는 -1을 반환합니다.
'------------------------------------------------
공개 기능 addn