easp.pluginsample.asp

<%
'#################################################################################
'##  easp.pluginsample.asp
'##  -----------------------------------------------------------------------------
'##  Feature      :  EasyAsp Plugin Class Sample
'##  Version      :  1.0
'##  For EasyASP  :  3.0+
'##  Author       :  Coldstone(coldstone[at]qq.com)
'##  Update Date  :  2014-04-28 2:17:30
'##  Description  :  EasyASP's plugin should be like this file as follow:
'##                  1.  File name should be like this: 'easp.***.asp'.  The '***'
'##                      is your plugin's name, with lower-case letters as better.
'##                  2.  Class's name should be like this: 'EasyAsp_***'. The '***'
'##                      is your plugin's name, lower-case letters after the '_'
'##                      are not required.
'##                  3.  You must put your file(s) in 'plugin' folder or any other
'##                      folder you setted with the property 'Easp.PluginPath'.
'#################################################################################
Class EasyASP_PluginSample
 
  Private s_author, s_version
 
  Private Sub Class_Initialize()
    s_author  = "coldstone"
    s_version  = "0.1"
    'Set exception info, please custom your ErrorCode such as 10001 or "test001".
    'Please try to keep your ErrorCode is not the same with other people.
    'Attention! You can use any character, not just numbers!
    'The exception info string should be like this : 
    '  "[error info]|[error detail description]|[suggestion]"
    '   the [detail description] and [suggestion] part is NOT required.  
    Easp.Error("error-pluginsample-fun") = "Error! Accept number only."_
                                         & "|Your inputed {0} is not a number"_
                                         & "|Please check the number you inputed."
  End Sub
  Private Sub Class_Terminate()
 
  End Sub
 
  'Set Property
  Public Property Get Author()
    Author = s_author
  End Property
  Public Property Get Version()
    Version = s_version
  End Property
 
  'Define a 'Sub'
  Public Sub helloWorld()
    Easp.Print "Hello EasyASP!"
  End Sub
 
  'Define a 'Function'
  Public Function Return(ByVal s)
    Return = s
  End Function
 
  'Define default Function
  Public Default Function Fun(ByVal num)
    If Not isNumeric(num) Then
      'Raise a exception info when 'Easp.Debug' is 'True'
      If Easp.Debug Then
        Easp.Error.FunctionName = "Easp(""PluginSample"").Fun"
        Easp.Error.Detail = num
        Easp.Error.Raise "error-test-numberonly"
      End If
      Exit Function
    End If
    Fun = num
  End Function
 
End Class
%>

调用方法如下：

Easp("pluginsample").HelloWorld()
Easp.Println Easp("pluginsample").Fun(89)

以上代码返回如下结果：

Hello EasyASP!89

如果调用方法是引发自定义异常，比如：

Easp.Println Easp("pluginsample").Fun("ss")

如果 Easp.Debug 属性 设置为 True 的话，将抛出以下错误信息：