- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- web文件夹下放html文件,取不到e.path (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121446)
-- 发布时间：2018/7/6 12:00:00
-- web文件夹下放html文件,取不到e.path
在HttpRequest中msgbox(e.path),
输入http://oa.xxx.com/llxxb.htm,弹出对话框内容是llxxb.htm。
而
http://oa.xxx.com/fabu/public/20180101012032.html却不弹出对话框??
http://oa.xxx.com/fabu/public/20180101012032.html却不弹出对话框?? 在web下建文件夹,里面动态生成html静态网页,
出了登录页面,访问其他页面都需要经过身份验证,
但是文件夹下的html可以直接访问,不用经过身份验证,
在HttpRequest中msgbox(e.path)根本没有被执行.
-- 发布时间：2018/7/6 12:13:00
--
你msgbox(e.path)要写在httprequest事件的第一行。
-- 发布时间：2018/7/6 12:51:00
--
Dim fl As String = "d:\\IMSftp\\" & 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",".wmf",".js",".css",".htm",".zip",".rar",".txt"
e.WriteFile(fl)
Return \'这里必须返回
Case ".html"
Functions.Execute("登录验证",e)
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
[此贴子已经被作者于2018/7/6 13:02:06编辑过]
-- 发布时间：2018/7/6 14:39:00
--
改成下面，msgbox弹出什么？
msgbox(e.path)
Dim fl As String = "d:\\IMSftp\\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
msgbox(ext)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css",".htm",".zip",".rar",".txt"
e.WriteFile(fl)
Return \'这里必须返回
Case ".html"
Functions.Execute("登录验证",e)
Return \'这里必须返回
End Select
End If