Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片上传问题


  共有5717人关注过本帖树形打印复制链接

主题：图片上传问题
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		图片上传问题  发帖心情 Post By：2022/3/9 23:55:00 [显示全部帖子]

.AddSelect("学历","学历","大专|本科|硕士|博士")
.AddUploader("up1","图片",True) 'True表示允许上传多个文件
上面的代码方案可以保存图片

换成下面的代码方案就不能保存了

With wb.AddInputGroup("form1","ipg35","图片上传")
        With .AddUploader("up1","图片",True) 'True表示允许上传多个文件
            .AllowDelete = True '允许删除
            .Incremental = True '允许 重复选择文件或连续拍照
            .ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
        End With
    End With

文件保存代码

For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, "e:\web\uploadfiles\" & fln)
Next
dr.Lines("图片") = e.Files(key)
End If
Next


找不出问题，请教老师
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/10 9:03:00 [显示全部帖子]

 老师在吗

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/14 22:34:00 [显示全部帖子]

 Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
 Select Case e.Path
    Case "upload.html"
                wb.AddForm("","form1","receive.html")
        With wb.AddInputGroup("form1","ipg1","文件上传")
            With .AddUploader("up128","照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
        End With
        wb.AddToast("","tst1", "正在上传",1)
        wb.AddToast("","tst2", "上传成功",0)
        wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
    Case "receive.html"
        For Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)
                e.SaveFile(key,fln,"e:\web\uploadfiles\" & fln) '保存接收到的文件
            Next
        Next
        e.WriteString("OK")
End Select

抄的帮助代码 无改变


 js也是加载好的，点击确定就是没有反应

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20220314223208.png
图片点击可在新窗口打开查看

以下内容是专门发给有点蓝浏览
[此贴子已经被作者于2022/3/14 22:35:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/14 23:47:00 [显示全部帖子]

  Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
 Select Case e.Path
    Case "upload.html"
                wb.AddForm("","form1","receive.html")
        With wb.AddInputGroup("form1","ipg1","文件上传")
            With .AddUploader("up128","照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
        End With
        wb.AddToast("","tst1", "正在上传",1)
        wb.AddToast("","tst2", "上传成功",0)
        wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
    Case "receive.html"
        For Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)
                e.SaveFile(key,fln,"e:\web\uploadfiles\" & fln) '保存接收到的文件
            Next
        Next
        e.WriteString("OK")
End Select

这就是完整代码呀
一个"upload.html"选择     一个  "receive.html"接收
js原文

function submitWithProgress(){
    var result = submitAjaxForm('form1','afterSubmit',true,'tst1');
}
function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2");
        location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}
参考帮助
http://www.foxtable.com/mobilehelp/topics/0139.htm

还需要其他的代码配合吗
[此贴子已经被作者于2022/3/14 23:48:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/15 10:25:00 [显示全部帖子]

Dim drx As DataRow = DataTables("内部函数表").SQLFind("网页='" & e.Path & "'")
If drx IsNot Nothing Then
    Functions.Execute(drx("函数名称"),e)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/15 12:49:00 [显示全部帖子]

 老师您好
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:手机多图上传.rar


请指教
[此贴子已经被作者于2022/3/15 12:53:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/15 15:45:00 [显示全部帖子]

 老师的
function afterSubmit(result){ 
    hide("tst1");
    if (result=='OK') {
        show("tst2");
        location="upload.html";
    }
    else{
        show("tst3",2000);
    }
}

还是单击确定没反应 不能用  js 我没看出有什么区别

原来的
function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2");
        location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}
[此贴子已经被作者于2022/3/15 15:46:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/15 15:59:00 [显示全部帖子]

 老师在吗  在线急等指导
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/15 16:48:00 [显示全部帖子]

 复制了老师的js 还是没有反应
图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20220315164653.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2022/3/15 19:53:00 [显示全部帖子]

 看了的 啥都没有，按钮不跳转，文件不新建。
这就奇怪了，就是不行。到底是哪里出了问题呢。能试的办法都试了。
我又把10楼的文件下载，js用了老师的，就是不行。
狐吧在吗，只有请您出手了。


http://www.foxtable.com/mobilehelp/
按照这个帮助单张可以正常上传和操作
就是多图不行
[此贴子已经被作者于2022/3/15 20:11:32编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询