主题：下载文档

只要能在page3这个容器增加链接，能下载文档就行。

我测试没问题，如下代码

 

Dim fl As String = "c:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar" '这里加上了js扩展名
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI

        With wb.AddListGroup("", "lsg3", "增加跳转的列表")
            .Add("ls5","新浪主页", "", "/test/test.doc")
            .Add("ls6","网易主页", "", "/images/001.jpg")
        End With

        e.WriteString(wb.Build)
End Select