Foxtable(狐表) → 用户栏目 → 专家坐堂 → uploader上传图片后，如何验证图片数量


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

主题：uploader上传图片后，如何验证图片数量
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/20 15:13:00 [显示全部帖子]

这种验证应该在客户端验证，就是在js中调用。2楼的2个属性是在js中使用的

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


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/21 21:35:00 [显示全部帖子]

wb.AddForm("","form1","valid_images.htm").Attribute="onsubmit='return validit_images()'"

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


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/21 23:05:00 [显示全部帖子]

测试没有问题， 'msgbox(drbianh)去掉注释可以弹出来

看页面的cookie有没有正常传递
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/22 8:34:00 [显示全部帖子]

不设置路径Foxtable默认就从Attachments目录取图片，http://www.foxtable.com/webhelp/scr/0088.htm

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


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/22 16:14:00 [显示全部帖子]

加到6个f，百分之一毫秒，基本不会有重复的了

 

Format(Date.Now, "yyyyMMddHHmmssffffff")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/22 17:08:00 [显示全部帖子]

没有扩展名

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


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/22 17:47:00 [显示全部帖子]

从原来文件取后缀啊

 

Dim ext As String = fln.Split(".")(1)

Dim NewName As String = Format(Date.Now, "yyyyMMddHHmmssffffff") & "." & ext

 

 dr.Lines("展示照") = NewName
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/6/1 8:35:00 [显示全部帖子]

Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[展示照缩略图] is null And [展示照] is not null","","[会员编号] DESC")
msgbox("数量1:" & drs.count)
For Each dr As DataRow In drs
    Dim file = "e:\web\zsz\d\" & UrlEncode(dr("展示照"))
    If FileSys.FileExists(file)
        msgbox("e:\web\zsz\d\" & dr("展示照")) '执行这里提示下图
        Dim img As image = getImage(file) '取大图,用于后续处理
        If img IsNot Nothing
            msgbox(4) '执行完,提示错误
            msgbox("高度:" & img.height & "宽度:" & img.width) '此行没有执行
            Dim bmp As bitmap = new bitmap(img, 100, 100 * (img.height / img.width))
            msgbox(5)
            bmp.save("e:\web\zsz\x\" & dr("展示照"))
            bmp.Dispose
            dr("展示照缩略图") = dr("展示照")
            dr.save
        End If
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 5 次数据查询