Case "addjfjl.htm"
Dim dr As DataRow = DataTables("家访记录").AddNew()
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","addjfjl.htm")
With wb.AddInputGroup("form1","ipg1","家访信息(请您认真填写,不要漏项.)")
.AddInput("学生姓名","学生姓名:","text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddSelect("年级","年级:","|一年级|二年级|三年级|四年级|五年级|六年级|七年级|八年级|九年级")
.AddSelect("班级","班级:","|(1)班|(2)班|(3)班|(4)班|(5)班|(6)班|(7)班|(8)班")
.AddInput("家访日期","家访日期:","date")
.AddInput("家访教师","家访教师:","text")
With wb.AddInputGroup("form1","ipg21","家访资料")
With .AddUploader("up1","家访资料",True) 'True表示可上传多个文件
.Accept = "image/*" '允许使用相册和相机
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
End With
End With
End With
With wb.AddDialog("","dlg2", "增加成功","谢谢您的支持,请在计算机上查看填写结果!")
.AddButton("btn1","继续增加","addjfjl.htm")
.AddButton("btn1","返回主菜单","default.htm")
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AddTopTips("","toptip1","") '用于显示动态错误提示
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "button").Attribute= "onclick='submitForm()'"
.Add("btn2", "放弃", "button", "default.htm").Kind = 2
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>",True) '引入脚本文件
e.WriteString(wb.Build)
Return
Else '保存编辑结果
' If dr IsNot Nothing Then
Dim lst As List(of String) = dr.Lines("家访资料")
Dim nms() As String = {"学生姓名","年级","班级","家访日期","家访教师"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
For Each key As String In e.Files.Keys
If key = "up1" Then
' Dim lst As List(of String) = dr.Lines("资料")
For Each fln As String In e.Files(key)
e.SaveFile(key, fln,"D:\xxsjk(学校数据库)\web\学校档案\家访资料\" & fln) 'ftp和web尽量共用一个图片目录,否则页面无法正常显示图片
lst.Add(fln)
Next
'dr.Lines("资料") = lst
End If
Next
dr.Lines("家访资料") = lst
dr.save()
e.WriteString("OK")
Return
End If
js文件不要是用记事本进行编辑，下载vs code、editplus等专业代码编辑器编辑，必须保存为utf-8格式文件
加好友 
发短信
Post By：2020/4/30 11:41:00 [显示全部帖子]
