HttpRequest事件代码中关于页面的部分,怎么导出来,直接放在d:\web下呢?分别为logon.htm exit.htm default.htm addnewtxl.htm四个页面
事件代码中代码如下
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 ".ico",".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Dim wb As New weui
Se lect Case e.Path
Case "logon.htm" '登录页面
代码
Case "exit.htm" '退出登录
代码
Case "", "default.htm" '首页
代码
Case "addnewtxl.htm"
代码
End Se lect
e.WriteString(wb.Build) '生成网页