Dim fl As String = ProjectPath & "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",".zip",".rar"

            e.WriteFile(fl)

            Return \'这里必须返回

    End Select

End If

Select Case e.Path

    Case ""

        e.AsyncExecute = True  \'通知系统,将采用异步方式生成网页

        Functions.AsyncExecute("default", e) \'异步调用函数生成网页

    Case Else

        Dim dr As DataRow = DataTables("内部函数表").Find("网页名=\'" & e.Path & "\'")

        If dr IsNot Nothing Then

            Functions.Execute(dr("函数名称"),e)

        Else

            Dim wb As New weui

            wb.InsertHTML("<p>杯具!页面丢失了!!</p>")

            wb.AppendHTML("<script>console.warn(\'" & e.Path & "不在httprequest表,请检查是否没有设置.\')</script>")

            e.WriteString(wb.Build)

        End If

End Select

With wb.AddInputGroup("form1","ipg111111","文件列表")

    For Each dr1 As DataRow In dt.DataRows

        Dim fln As  String = dr1("文件名称")

        Dim wj As String ="./缓存文件\\" & fln

        If FileSys.FileExists(wj) Then \'如果本地存在同名文件且CRC校验值相同

            \'则直接使用本地文件

            Dim sb As New StringBuilder

            sb.appendLine("<div>")

            sb.appendLine("<a href=\'" & wj & "\'>" & fln & "</a>")

            sb.appendLine("</div>")

            wb.InsertHTML("form1",sb.ToString)

        Else \'否则从数据库提取文件

            If dr1.SQLLoadFile("文件",wj) = True Then \'如果提取文件失败

                

            Dim sb1 As New StringBuilder

            sb1.appendLine("<div>")

            sb1.appendLine("<a href=\'" & wj & "\'>" & fln & "</a>")

            sb1.appendLine("</div>")

            wb.InsertHTML("form1",sb1.ToString)

            End If

        End If

    Next

End With

运行页面代码  会下载对应的二进制文件到缓存文件夹下，

获取到的文件会在页面显示对应的网址路劲 ，但是打开会提示“杯具，页面不存在”

此主题相关图片如下：111.png