ASP에서 Class 사용

<%
 Class ClassName
  Public Sub PublicSubName()
   response.write "PublicSubName"
  End Sub
  
  Private Sub PrivateSubName()
   response.write "PrivateSubName"
  End Sub

  Public Function PublicClassbName()
   PublicClassbName = "PublicClassbName"
  End Function
  
  Private Function PrivateClassbName()
   PrivateClassbName = "PrivateClassbName"
  End Function
 End Class
 
 set TmpClass = new ClassName

 response.write "PublicSubName : "
 TmpClass.PublicSubName
 response.write "<BR />" & VBCRLF

 response.write "PublicClassbName : " & _
       TmpClass.PublicClassbName &_
       "<BR />" & VBCRLF

       
 response.write "PrivateSubName : "
 TmpClass.PrivateSubName
 response.write "<BR />" & VBCRLF

 response.write "PrivateClassbName : " & _
       TmpClass.PrivateClassbName &_
       "<BR />" & VBCRLF
%>

 

 

 

***** 처리결과 *****

PublicSubName : PublicSubName
PublicClassbName : PublicClassbName
PrivateSubName :

Microsoft VBScript 런타임 오류 오류 '800a01b6'

개체가 이 속성 또는 메서드를 지원하지 않습니다.: 'PrivateSubName'

/test/makeup9.asp, 줄 34