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.

66 lignes
1.8KB

  1. <%
  2. ' Auto-generated Controller: Comments
  3. ' Generated on 5/2/2026 9:47:38 PM
  4. ' Generator: generateController.vbs v1.0
  5. '
  6. ' Remember to:
  7. ' 1. Add to app/controllers/autoload_controllers.asp
  8. ' 2. Register in core/lib.ControllerRegistry.asp
  9. ' 3. Add routes in public/Default.asp
  10. Class CommentsController_Class
  11. Private m_useLayout
  12. Private m_title
  13. Private Sub Class_Initialize()
  14. m_useLayout = True
  15. m_title = "Comments"
  16. End Sub
  17. Public Property Get useLayout
  18. useLayout = m_useLayout
  19. End Property
  20. Public Property Let useLayout(v)
  21. m_useLayout = v
  22. End Property
  23. Public Property Get Title
  24. Title = m_title
  25. End Property
  26. Public Property Let Title(v)
  27. m_title = v
  28. End Property
  29. '---------------------------------------------------------------
  30. ' Action: Create
  31. '---------------------------------------------------------------
  32. Public Sub Create()
  33. ' TODO: Implement Create action
  34. Response.Write "Create action called"
  35. End Sub
  36. '---------------------------------------------------------------
  37. ' Action: Delete
  38. '---------------------------------------------------------------
  39. Public Sub Delete(id)
  40. ' TODO: Implement Delete action
  41. Response.Write "<strong>Delete called</strong><br>"
  42. Response.Write "Parameters:<br>"
  43. Response.Write "id = " & Server.HTMLEncode(CStr(id)) & "<br>"
  44. End Sub
  45. End Class
  46. ' Singleton instance
  47. Dim CommentsController_Class__Singleton
  48. Function CommentsController()
  49. If IsEmpty(CommentsController_Class__Singleton) Then
  50. Set CommentsController_Class__Singleton = New CommentsController_Class
  51. End If
  52. Set CommentsController = CommentsController_Class__Singleton
  53. End Function
  54. %>

Powered by TurnKey Linux.