主题：关于移动版从服务器下载文件的请教

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105484&skin=0

 

1、httpRequest事件中

 

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

 

要改成

 

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar", ".pdf"

 

2、pdf文件，要拷贝到 web/abc.pdf 文件夹下，然后写代码

 

wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href='/abc.pdf'>abc</button></div>")

.Add("btn1", "按钮").Attribute = "onclick=""location.href='/COA/705166.jpg'"""

参考

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名") '表头
            .body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")
            .body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")
            .body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")
        End With
        e.WriteString(wb.Build)
End Select

一样的，贴出你写的代码

 

.body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")

.AddCell(r("产品批号"))

 

改成

 

.AddCell("<a href='./images/001.jpg'>" & r("产品批号") & "</a>")