Dim e As RequestEventArgs = args(0) '注册第7页,上传照片
Select Case e.Path
Case "images.htm"
Dim wb As New weui
If e.PostValues.Count = 0 Then
wb.AddTopTips("","toptip1","") '用于显示动态错误提示
'wb.AddPageTitle("","pageheader","***","*********")
With wb.AddArticle("","ar1")
.AddImage("./images/langwo/logo1.jpg")
.Attribute = "style='padding:0em;'"
End With
wb.AddForm("","form1","valid_images.htm")
With wb.AddInputGroup("form1","ipg1","展示照(选择1张靓照即可)") '文件上传(1个)
With .AddUploader("up1","",False)
.AllowDelete = True '允许用户删除图片
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddInputGroup("form1","ipg22","生活照(选择4张以上靓照)") '带图片浏览的文件上传(最少4个)
With.AddUploader("up4","",True) 'True表示允许一次上传多个文件
.AllowDelete = True '允许删除
.Incremental = True '允许 重复选择文件或连续拍照
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "button").Attri-bute= "on-click='re-turn validit_images()'" '调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script sr-c='./lib/ajaxform_images.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End If
End Select
Function validit_images(){
var v1 = document.getElementById("up1").files.length;
var v2 = document.getElementById("up4_thumbnails").getElementsByTagName("li").length;
alert(v1 + " " + v2);
If(v1 < 1){
showTopTips("toptip1","请选择1张展示照上传！",2000); ’这些toptip不显示
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'); ’这里应该没有返回用于保存的值，感觉整个js都没有调用
}
Function afterSubmit(result){
hide("tst1");
If (result=='OK') {
show("tst2");
location="success.htm";
}
Else{
show("tst3",2000);
}
}
加好友 
发短信
Post By：2017/4/8 11:29:00 [只看该作者]
此主题相关图片如下：qq图片201704072302666.png
