专家坐堂-多行文本框<=100个字，如何判断？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多行文本框<=100个字，如何判断？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101697)

--  作者：zhangjian222200
--  发布时间：2017/6/5 19:26:00
--  多行文本框<=100个字，如何判断？
多行文本框<=100个字，如何判断？

Dim e As RequestEventArgs = args(0) \'基础资料
Dim wb As New weui
With wb.AddTabBar("", "tb1",1) \'使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","首页","./images/a.png","/index.htm") \'.Attribute = ""
.AddButton("bt2","城市","./images/b.png","/city.htm")
.Addpage("bt3","当前","./images/c.png")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
\'.Attribute = "style=\'height:55px\'"
End With
wb.AddTopTips("bt3","toptip1","") \'用于显示动态错误提示
Dim iusername As String = e.cookies("isj") \'从cookie取用户名(手机号)
Dim idr As DataRow = DataTables("会员资料").sqlFind("手机 = \'" & iusername & "\'") \'举报人所在的行
Dim ibh As String \'定义,我的编号
Dim isjh As String \'定义,我手机号码
Dim ixb As String \'定义,我性别
If idr IsNot Nothing Then
ibh = idr("会员编号")
isjh = idr("手机")
ixb = idr("性别")
End If

Dim tbh As String \'定义,他的编号
For Each key As String In e.GetValues.Keys
If key = "tbh" Then
tbh = e.GetValues(key)
End If
Next

Dim tdr As DataRow = DataTables("会员资料").sqlFind("手机 = \'" & tbh & "\'") \'被举报人所在的行
Dim tsjh As String \'定义,他手机号码
Dim txb As String \'定义,他性别
If tdr IsNot Nothing Then
tbh = tdr("会员编号")
tsjh = tdr("手机")
txb = tdr("性别")
End If

wb.AddForm("bt3","form1","tousu_fz.htm")
With wb.AddInputGroup("form1","ipg1","我要举报")
.AddSelect("jbnr","举报内容","|照片问题|资料问题|其他问题")
.AddHiddenValue("tbh",tbh)
End With
With wb.AddInputGroup("form1","ipg2","举报描述")
.AddTextArea("bz",5).Placeholder = "请输入100字以内的备注"
End With

With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "button").Attri-bute= "on-click=\'validit_jvbao()\'"
End With

wb.AppendHTML("<script src=\'./lib/ajaxform_jvbao.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
‘---------------------------------------------------------------------------------------------
tousu_fz.htm代码：
If ？？？？？ Then
e.WriteString("文字不能大于100字!")
Return ""
End If

[此贴子已经被作者于2017/6/5 19:42:47编辑过]

--  作者：有点蓝
--  发布时间：2017/6/5 20:34:00
--
js判断

if (document.getElementById("bz").value.length > 100) {}

代码

if e.PostValues("bz").Length > 100 then

end if

--  作者：zhangjian222200
--  发布时间：2017/6/7 17:08:00
--

界面生成页面：
wb.AddForm("bt3","form1","tousu_fz.htm")
With wb.AddInputGroup("form1","ipg1","我要举报")
.AddSelect("jbnr","举报内容","|照片问题|资料问题|其他问题")
.AddHiddenValue("tbh",tbh)
End With

With wb.AddInputGroup("form1","ipg2","举报描述") \'js如何判断字数少于100字？
.AddTextArea("bz",4).Placeholder = "请输入100字内描述"
End With

With wb.AddInputGroup("form1","ipg3","举报证据")
With.AddUploader("up4","",True) \'True表示允许一次上传多个文件
.AllowDelete = True \'允许删除
.Incremental = True \'允许重复选择文件或连续拍照
.ScaleWidth = 400 \'自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With

js代码：
function validit_images(){
var v2 = document.getElementById("up4_thumbnails").getElementsByTagName("li").length;
alert(v2);
if（）
if(document.getElementById("jbnr").value = ""){ ’这样设置判断条件，对么？
showTopTips("toptip1","请选择举报内容！",2000);
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\');
}
function afterSubmit(result){
hide("tst1");
if (result==\'OK\') {
show("tst2");
location="success.htm";
}
else{
show("tst3",2000);
}
}

--  作者：有点色
--  发布时间：2017/6/7 17:17:00
--
if(document.getElementById("bz").value.length > 100){
      showTopTips("toptip1","100字以内！",2000);

      return false;

}