以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]去掉通用事件头后，该怎么记录文件打开记录？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123675)
--  作者：浙江仔
--  发布时间：2018/8/20 22:33:00
--  [求助]去掉通用事件头后，该怎么记录文件打开记录？
去掉通用事件头后，想记录文件打开信息，该怎么写？

                Dim fl As String = ProjectPath & "web\\" & e.path
                If filesys.FileExists(fl)
                    Dim idx As Integer = fl.LastIndexOf(".")
                    Dim ext As String  = fl.SubString(idx)
                    Select Case ext
                        Case ".jpg",".gif",".png",".bmp",".zip",".rar",".txt",".jpeg",".txt",".doc",".docx",".xls",".xlsx",".pdf",".pdf"
                              Functions.Execute("txtProgress","文件发送:" + fl) ‘用于记录文件打开的路径名称
                    End Select
                End If

但是现在放在httprequest里面，不起作用。
只有不存在该文件的时候代码：
                Dim str As new StringBuilder
                str.AppendLine("path=" & e.Path)
才有作用，显示如：path=upload\\process\\2018\\8\\6eb0bb4d175549049e11902c5832e55a.jpeg
--  作者：有点蓝
--  发布时间：2018/8/20 22:46:00
--  
那就还是用回旧的事件头好了
--  作者：浙江仔
--  发布时间：2018/8/21 9:57:00
--  
真奇怪，用回旧的事件头也不行，涉及静态文件的e.path都无法打印出来
--  作者：有点蓝
--  发布时间：2018/8/21 10:11:00
--  
测试没有问题，启动服务时不能使用\'HttpServer.WebPath =xxx