<% '################################################################################# '## 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 的话,将抛出以下错误信息: