以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  foxtable加载的网页无法显示svg图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141669)

--  作者:cyf2257
--  发布时间:2019/10/8 11:49:00
--  foxtable加载的网页无法显示svg图片
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ceshi.zip


--  作者:有点蓝
--  发布时间:2019/10/8 13:59:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97019&replyID=&skin=1
--  作者:cyf2257
--  发布时间:2019/10/8 14:27:00
--  
还有没有其他的解决办法?
<p>svg内容</p>
这个办法代码量太大了……

--  作者:有点蓝
--  发布时间:2019/10/8 14:32:00
--  
使用其他标签啊:http://www.w3school.com.cn/svg/svg_inhtml.asp
--  作者:cyf2257
--  发布时间:2019/10/8 17:07:00
--  
使用其他标签也提示下载。。。。。
--  作者:有点蓝
--  发布时间:2019/10/8 17:40:00
--  
需要使用自定义的事件头,去掉HttpServer.WebPath设置,html里使用object或者embed标签

httprequest事件开头加上
Dim fl As String = "d:\\ceshi\\" & 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" ,".html",".htm",".zip"
            e.WriteFile(fl)
            Return \'这里必须返回
        Case ".svg"
            e.WriteString(filesys.ReadAllText(fl))
            Return \'这里必须返回
    End Select
End If


--  作者:cyf2257
--  发布时间:2019/10/9 10:43:00
--  
已经解决了。