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

大概这样吧

                        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

增加一个列，保存云存储的文件上传后返回来的识别ID，然后删除的时候，根据url获取对应的id，调用接口删除文件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档 (4).txt

显示True

是什么回事

跟踪分析所有的提示框，判断问题在哪

就显示True，没有其它内?，

msgbox(e.PostValues.ContainsKey("up1_deleted"))                 If e.PostValues.ContainsKey("up1_deleted") Then msgbox(e.PostValues("up1_deleted"))                     Dim Files = e.PostValues("up1_deleted").Split("|") msgbox(Files.count)