设置默认网页
一个网页管理系统会有多个网页,其中一个只需输入IP或者域名就能访问的网页,称为默认网页。
设置默认网页很简单,e.path为空的时候,表示要访问默认网页。
例如HttpRequest事件代码:
Dim
wb As
New WeUI
'定义一个基于weui框架的网页生成器
Select
Case e.Path
Case "addnew.htm",""
wb.InsertHTML("这是默认页面addnew.htm")
Case "order.htm"
wb.InsertHTML("这是普通页面order.htm")
End
Select
e.WriteString(wb.Build)
'生成网页
上面的代码生成了两个网页,其中addnew.htm是默认页面,可以直接通过ip访问,也可以输入完整路径:
http://127.0.0.1/
http://127.0.0.1/addnew.htm
另一个页面order.htm,是普通页面,必须输入完整路径才能访问:
http://127.0.0.1/order.htm