최근에 ASP/VBScript 코드를 분류 한 결과 과거에 ASP 구현 MVC 프레임 워크가 반제품 제품이었으며 효율성도 문제가 있음을 발견했습니다. 그러나 나는 그 안에 쓴 몇 가지 코드가 있다는 것을 알았고, 사람들을 만나기 위해 그것을 꺼낼 수 있다고 생각했기 때문에 오늘이 기사를 썼습니다.
ASP라고하지만 vbscrip과는 아무런 관련이 없습니다. vbscript 언어는 Visual Basic에서 상속됩니다. VB의 구문 유연성은 더 이상 만족스럽지 않습니다. 서브 세트로서 VBS를 상상할 수 있습니다. Microsoft는 .NET에서 Shenma Reflection 및 Introspection과 같은 고급 기술을 도입했습니다. 버려진 기술로서 Microsoft가 지원을 제공 할 수 있다는 기대는 없으므로 완고하고 보수적 인 프로그래머는 유사한 기능을 모방하고 구현하기 위해 두뇌 만 쌓을 수 있습니다.
글쎄, 나는 오랫동안 나는 완고하고 보수적 인 학교 중 하나 였다는 것을 인정한다. 오늘 저는 특성 객체를 동적으로 생성하는 함수 중 하나를 소개하고 있으며, 속성 객체를이를 동적으로 만 만든 객체 (속성) 만 포함합니다.
구현 코드는 참조를 위해 아래에 게시됩니다.
코드 사본은 다음과 같습니다.
'
'ASP/vbscrip 동적 개체 생성기
'저자 : Wangye
'자세한 내용은 방문하십시오
'
'이 코드는 BSD 라이센스에 따라 배포됩니다
'
const property_access_readonly = 1
const property_access_writeonly = -1
const property_access_all = 0
클래스 DynamicObject
개인 m_objproperties
개인 m_strname
private sub class_initialize ()
set m_objproperties = createobject ( "scripting.dictionary")
m_strname = "AnonymousObject"
종료 서브
private sub class_terminate ()
isobject (m_objproperties)가 아니라면
m_objproperties.removeall
끝 If
m_objproperties = 아무것도 설정하십시오
종료 서브
공개 하위 setclassName (strname)
m_strname = strname
종료 서브
공개 하위 추가 (키, 가치, 액세스)
m_objproperties.add 키, 배열 (값, 액세스)
종료 서브
공개 하위 setValue (키, 값, 액세스)
m_objproperties.exists (key) 인 경우
m_objproperties.Item (key) (0) = 값
m_objproperties.Item (키) (1) = 액세스
또 다른
키, 값, 액세스를 추가합니다
끝 If
종료 서브
개인 기능 getReadOnlyCode (stry)
Dim StrprivateName, strpublicgetName