ASP Classic blog framework - BrainOrdure
Vous ne pouvez pas sélectionner plus de 25 sujets
Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
|
- <%
- ' Auto-generated Controller: Comments
- ' Generated on 5/2/2026 9:47:38 PM
- ' Generator: generateController.vbs v1.0
- '
- ' Remember to:
- ' 1. Add to app/controllers/autoload_controllers.asp
- ' 2. Register in core/lib.ControllerRegistry.asp
- ' 3. Add routes in public/Default.asp
-
-
- Class CommentsController_Class
- Private m_useLayout
- Private m_title
-
- Private Sub Class_Initialize()
- m_useLayout = True
- m_title = "Comments"
- End Sub
-
- Public Property Get useLayout
- useLayout = m_useLayout
- End Property
-
- Public Property Let useLayout(v)
- m_useLayout = v
- End Property
-
- Public Property Get Title
- Title = m_title
- End Property
-
- Public Property Let Title(v)
- m_title = v
- End Property
-
- '---------------------------------------------------------------
- ' Action: Create
- '---------------------------------------------------------------
- Public Sub Create()
- ' TODO: Implement Create action
- Response.Write "Create action called"
- End Sub
-
- '---------------------------------------------------------------
- ' Action: Delete
- '---------------------------------------------------------------
- Public Sub Delete(id)
- ' TODO: Implement Delete action
- Response.Write "<strong>Delete called</strong><br>"
- Response.Write "Parameters:<br>"
- Response.Write "id = " & Server.HTMLEncode(CStr(id)) & "<br>"
- End Sub
-
- End Class
-
- ' Singleton instance
- Dim CommentsController_Class__Singleton
- Function CommentsController()
- If IsEmpty(CommentsController_Class__Singleton) Then
- Set CommentsController_Class__Singleton = New CommentsController_Class
- End If
- Set CommentsController = CommentsController_Class__Singleton
- End Function
- %>
|