主题：[求助] 手机照片

老师，用下面的代码，三星手机上传的照片还是横向的。我的照片没有储存在web文件夹下，而是储存在其它文件夹下，是不是一定要储存在web下，才能实现旋转上传？谢谢！

            With .AddUploader("up128","照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
                .ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
                 .Rotate = 1 '顺时钟旋转90°
            End With

方法一：你可以在上传之后，用代码旋转

Dim bmp As New bitmap("d:\test.jpg")
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save("d:\test2.jpg")

------------------

顺时针旋转90度     RotateFlipType.Rotate90FlipNone
逆时针旋转90度     RotateFlipType.Rotate270FlipNone
水平翻转    RotateFlipType.Rotate180FlipY
垂直翻转    RotateFlipType.Rotate180FlipX

方法二：请按照帮助文档操作，必须用 submitAjaxForm 的方式提交内容

http://www.foxtable.com/mobilehelp/scr/0257.htm

1、图片框是正方形的，如果这样，你的图片不就变形了？你确定要这样做？

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg","http://www.foxtable.com") '超链接
        End With
        wb.AppendHTML("<style>.weui_media_appmsg_thumb{height:100%}</style>")
        e.WriteString(wb.Build) '生成网页
End Select

2、参考

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg").Attribute = "onclick=""alert(123);location='/abc.htm?key=abc'"""
        End With
        wb.AppendHTML("<style>.weui_media_appmsg_thumb{height:100%}</style>")
        e.WriteString(wb.Build) '生成网页
End Select

看红色代码啊

        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg").Attribute = "onclick=""alert(123);location='/abc.htm?key=abc'"""
        End With

8楼代码肯定没问题，弹出什么？

       For Each r As DataRow In dt.DataRows
msgbox(r("_Identify")

            With wb.AddArticle("","art_" & r("_Identify"))
                .AddTitle("h5",r("标题"))
                .AddTitle("h6",r("编辑人") & "    " & r("日期"))
                .AddImage("./images/" & r("图片"))
                .Attribute="onclick=""location='/abc.htm?key=" & r("_Identify") & "'"""                
            End With
        Next