'Handler class
Sub Class_Globals
End Sub
Public Sub Initialize
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
resp.ContentType = "text/html"
Try
Dim pagename As String = req.RequestURI.SubString(1)
dim page as string = File.ReadString(Main.srvr.StaticFilesFolder,pagename)
' process file loaded in string page
page = page.replace("$$marker1$$", "<style> h1 {color: blue;} </style>") ' example replacing a marker in html by a inline style
' send result
resp.Write(page)
Catch
resp.Write("error : " & req.FullRequestURI)
Log("ERROR : invalid page " & req.FullRequestURI)
End Try
End Sub