本地连接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下。