Foxtable(狐表)用户栏目专家坐堂 → [求助]代码问题


  共有1581人关注过本帖平板打印复制链接

主题:[求助]代码问题

帅哥哟,离线,有人找我吗?
cqlwsam
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
[求助]代码问题  发帖心情 Post By: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下。

 回到顶部