ajaxform.js文件写成这样:
function validit(){
var result=submitAjaxFileds("valid.htm","","学生姓名","年级","班级","家访日期","家访教师",false);
if(result=="OK"){
return true;
}
else{
showTopTips("toptip1",result,2500);
return false;
}
}
function submitForm(){
show("tst1",2000);
var result = submitAjaxForm('form1','afterSubmit');
}
function afterSubmit(result){
hide("tst1");
if (result=='OK') {
show("dlg2");
}
else{
show("tst3",2000);
}
}
function valid(){
var v1 = document.getElementById("学生姓名").value;
var v2 = document.getElementById("年级).value;
var v3 = document.getElementById("班级).value;
var v4 = document.getElementById("家访日期).value;
var v5 = document.getElementById("家访教师).value;
if (v1 && v2 && v3 && v4 && v5 ){return true}
show("toptip1",2000);
return false;
}
代码写成这样:
Case "addjfjl.htm"
Dim dr As DataRow = DataTables("家访记录").AddNew()
If e.PostValues.Count = 0 Then
wb.AddTopTips("","toptip1","请输入完整的家访信息!")
wb.AddForm("","form1","addjfjl.htm").Attribute = ""'调用函数
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 '允许重复选择文件或连续拍照
' For Each s1 As String In dr.Lines("资料") '读出照片
' .AddImage("./学校档案/送教记录/" & s1)
' Next
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"
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "button").Attribute= ""
.Add("btn2", "放弃", "button", "default.htm").Kind = 2
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Return
Else '保存编辑结果
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
For Each fln As String In e.Files(key)
e.SaveFile(key, fln,"D:\xxsjk(学校数据库)\web\学校档案\家访资料\" & fln) 'ftp和web尽量共用一个图片目录,否则页面无法正常显示图片
lst.Add(fln)
Next
End If
Next
dr.Lines("家访资料") = lst ''' '保存并生成增加成功提示页面
dr.save()
e.WriteString("OK")
Return
End If
Case "valid.htm"
If e.PostValues.ContainsKey("学生姓名") AndAlso e.PostValues.ContainsKey("年级") AndAlso e.PostValues.ContainsKey("班级") AndAlso e.PostValues.ContainsKey("家访日期") AndAlso e.PostValues.ContainsKey("家访教师") Then
e.WriteString("OK")
Else
e.WriteString("请完整输入家访内容!")
End If
不出错,但点确定按钮后没反应了。请老师给帮帮忙吧。