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


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

主题:图片上传失败

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/9 10:41:00 [显示全部帖子]

必须用这种方式获取

 

var v1 = document.getElementById("up1_thumbnails").getElementsByTagName("li").length;


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/9 21:51:00 [显示全部帖子]

js代码,大小敏感的,全部要用小写

 

function validit_images(){
  var v1 = document.getElementById("up1_thumbnails").getElementsByTagName("li").length;
  var v2 = document.getElementById("up4_thumbnails").getElementsByTagName("li").length;
  alert(v1 + " " + v2);
 if(v1 < 1){
  showTopTips("toptip1","请选择1张展示照上传!",2000);
  return false;
  }
 if(v1 > 1){
  showTopTips("toptip1","展示照只可以上传1张!",2000);
  return false;
  }
 if(v2 < 4){
  showTopTips("toptip1","请选择4张以上生活照上传!",2000);
  return false;
  }
 if(v2 > 10){
  showTopTips("toptip1","生活照最多可以上传10张!",2000);
  return false;
  }
  show("tst1",2000);
  var result = submitAjaxForm('form1','afterSubmit');
}

function afterSubmit(result){
  hide("tst1");
 if (result=='OK') {
  show("tst2");
  location="success.htm";
  }
 else{
    show("tst3",2000);
  }
}


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/10 8:49:00 [显示全部帖子]

 你直接复制粘贴16楼的代码,即可。If你要改成if。

 

 还有就是,你要善用浏览器的调试工具,比如IE浏览器、FireFox、Chrome都是带有工具的,会告诉你哪里有问题的。

[此贴子已经被作者于2017/4/10 9:53:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/10 9:25:00 [显示全部帖子]

直接,复制粘贴16楼代码。
[此贴子已经被作者于2017/4/10 9:53:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/10 9:54:00 [显示全部帖子]

16楼,代码,没问题,请认认真真测试。

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/10 11:01:00 [显示全部帖子]

所有图片不要都放在同一个文件夹下,你可以根据用户或者根据日期来存放数据的啊,红色代码设置你的存放路径。

 

                        Dim ext As String = fln.Split(".")(1)
                        NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext
                        e.SaveFile(key, fln, ProjectPath & Format(Date.Today, "yyyyMMdd") & "\" & NewName)
                        dr("展示照") &= iif(dr.IsNull("展示照"), "", vbcrlf) & Format(Date.Today, "yyyyMMdd") & NewName

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/10 11:29:00 [显示全部帖子]

改成

 

Format(Date.Today, "yyyyMM")

 

http://www.foxtable.com/webhelp/scr/0362.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/10 12:03:00 [显示全部帖子]

设置路径的时候,把文件夹名加上,如

 

dr("生活照") &= iif(dr.IsNull("生活照"), "", vbcrlf) & Format(Date.Today, "yyyyMM") & "\" & NewName

 

然后,AfterOpenProject事件,动态的制定存放目录为ProjectPath http://www.foxtable.com/webhelp/scr/2043.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/10 14:23:00 [显示全部帖子]

代码这样写

 
DataTables("会员资料").DataCols("展示照").DefaultFolder = ProjectPath
DataTables("会员资料").DataCols("生活照").DefaultFolder = ProjectPath
 
然后,你的文件要放在 项目文件夹\dr("生活照") 这个文件夹下

 


 回到顶部