以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116594)
--  作者：cqlwsam
--  发布时间：2018/3/27 17:34:00
--  [求助]代码问题
本地连接127.0.0.1 要显示一张图片。按帮助做，只是文件目录变了，就是不对，看看代码错误出在什么地方？

Dim fl As String = "F:\\foxtable开发系统\\患者登记系统\\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",".wmf" \'只允许请求图片文件
            e.WriteFile(fl)
    End Select
Else
    Dim sb As New StringBuilder
    sb.Appendline("我想显示一个图片<br/><br/>")
    sb.AppendLine("<img src=\'abc.jpg\'>")
    e.WriteString(sb.ToString())
End If

图片已经拷在目录F:\\foxtable开发系统\\患者登记系统\\web下。
--  作者：有点甜
--  发布时间：2018/3/27 17:38:00
--  

Dim fl As String = "F:\\foxtable开发系统\\患者登记系统\\web" & e.path

 

改成

 

Dim fl As String = "F:\\foxtable开发系统\\患者登记系统\\web\\" & e.path
--  作者：cqlwsam
--  发布时间：2018/3/27 17:39:00
--  
谢谢！没注意这个细节。