搭建web服务器的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在D盘建了一个web文件夹拷贝了一个asp的网站进去

在HttpRequest事件中加入了如下代码

Dim fl As String = "d:\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",".js",".css" ,".html",".htm"

e.WriteFile(fl)

End Select

End If

开启服务

在浏览器访问http://127.0.0.1/index.asp 没有任何反应

如果去掉上面的代码直接e.WriteString("Hello World") 可以看到Hello World

主题：搭建web服务器的问题