主题：移动开发页面访问有问题

改成这样

Select Case e.Path
    'Case ""
        ''调用自定义函数"yun"合成网页
        'e.WriteString(Functions.Execute("yun"))
    Case "gl.htm"
        Functions.Execute("guanli",e)
        Return
    Case Else
       e.WriteString("糟糕,文件未找到!")
End Select

其中 e.WriteString 不要执行多次，有可能会导致冲突。