主题：手机端每次重新进入都很慢

参考：http://www.foxtable.com/mobilehelp/topics/3275.htm

1、把图片分辨率设置小，不要使用大图。

看访问量。可以收到10M试试

比如：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132628&replyID=&skin=1

就是把图片存储到专用的服务器里，然后直接引用这个服务器的图片地址

在这里使用云存储的目的作为图片服务器存储自己需要的图片，所以完全没有必要写代码上传文件，直接在云存储的管理控制台上传即可，然后获取图片的链接地址给自己网页使用。

8楼的链接已经说得比较详细了，还搞不清楚的，先去看接口的开发文档

https://www.baidu.com/baidu?ie=UTF-8&word=%E7%BD%91%E7%AB%99%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8OSS%E7%9A%84%E5%9B%BE%E7%89%87

估计改不了。建议咨询对方客服

大概这样吧

                        Dim ddr As DataRow= DataTables("Users").SQLFind("Name='"& e.Cookies("username")  &"' " )

                        e.SaveFile(key,fln, "D:\web\img\"&ddr("Name")&"\"& Format(Date.Now,"yyyy") &"\"& Format(Date.Now,"MM") &"\" & ss)

Dim endpoint As String = "https://oss-cn-shenzhen.aliyuncs.com"  '你的阿里云oss地域节点

Dim accessKeyId As String = "xxxxxxxxxxxxxxxx"

Dim accessKeySecret As String = "xxxxxxxxxxxxxxxx"

Dim bucketName As String ="mbldt"   '存储空间的名称

Dim client As New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret) '根据SDK创建阿里云oss对象

 

Dim LocalPath As String = "D:\web\img\"&ddr("Name")&"\"& Format(Date.Now,"yyyy") &"\"& Format(Date.Now,"MM") &"\" & ss

Dim UpLoadPath As String = "demo1/222.zip" '上传后的文件路径 demo/ABC.txt ,不存在的文件夹会自动创建,同名的文件自动覆盖

 

Try   

    client.PutObject(bucketName ,UpLoadPath ,LocalPath )

dim 图片url  as string = 调用接口获取云存储的图片url

lst.Add(图片url)

    MessageBox.show("上传成功")

Catch ex As Exception

    MessageBox.show("上传失败,原因" & ex.Message)

End Try

                        lst.Add(ss)

                    Next

                    dr.Lines("开支图片") = lst

                End If

            Next