如下操作，还请指导
内部函数这样写：
Dim e As RequestEventArgs = args(0) '注册第7页,上传照片
Select Case e.Path
Case "images.htm"
Dim wb As New weui
wb.showTopTips("toptip1","请上传1张照片",2500)
wb.showTopTips("toptip2","请最少上传4张照片",2500)
wb.AddForm("","form1","images.htm").Attribute = "" '调用函数
With wb.AddInputGroup("form1","ipg1","文件上传") '文件上传（1个）
.AddUploader("up1","")
End With
With wb.AddInputGroup("form1","ipg22","文件上传") '带图片浏览的文件上传（最少4个）
.AddUploader("up4","图片",True) 'True表示允许一次上传多个文件
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "","/success.htm")
End With
wb.AppendHTML("<script src='./lib/valid.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End Select
js这样写：
1、在"d:\web\lib"新建一个文本文件，文件名为"valid.js"，文件内容为：
function valid(){
var v1 = document.getElementById("up1").files.length;
var v2 = document.getElementById("up4").files.length;
if v1 < 1{return true}
show("","toptip1",2000);
return false;
elseif v4 < 4{return true}
show("","toptip4",2000); return false;}
[此贴子已经被作者于2017/3/20 15:44:10编辑过]
加好友 
发短信
Post By：2017/3/18 18:02:00 [只看该作者]
