[求助]script问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问老师为什么会2条一样记录加入会员表

function validit()

{

var x = document.getElementById("sjh").value

if(x.length!=11)

{

alert("请输入11位手机号码");

//show("toptip1",2000);

return false;

}

var result=submitAjaxForm('form1','',false);

if(result == "ok") {

return true;

}

alert(result);

return false;

Case "valid.htm"

Dim sjh As String = e.Values("sjh")

Dim yzm As String = e.Values("yzm")

If e.Cookies.ContainsKey(sjh) = False Then

e.WriteString("请点击发送验证码")

Return

End If

If e.Cookies(sjh) <> yzm Then

e.WriteString("验证码不正确")

Return

End If

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "Insert Into 会员表 (名称,密码,电话1,级别) Values(?,?,?,?)"

cmd.Parameters.Add("@名称",e.PostValues("xm"))

cmd.Parameters.Add("@密码",e.PostValues("mm"))

cmd.Parameters.Add("@电话1",e.PostValues("sjh"))

cmd.Parameters.Add("@级别","A")

cmd.ExecuteNonQuery

e.WriteString("ok")

End Select

1、在你的valid.htm里面加入msgbox，看弹出多少次。

2、贴出的代码都没问题，请做具体实例发上来测试。

Case "test.htm"

Dim wb1 As New weui

wb1.AddToptips("","toptip1","请输入11位手机号码")

wb1.AddToptips("","toptip2","你已是我们的会员")

'wb1.AddToptips("","toptip3","登录名称已存在")

wb1.AddForm("","form1","valid.htm").Attribute=""

With wb1.AddInputGroup("form1","ipg1","会员注册")

With .AddInputCell("ic1") '通过InputCell增加输入框

.AddLabel("lxm","姓名:",0) '增加标签,0显示在左边

.AddInput("xm","text",1).Value = "张张" '.Required = True '增加输入框,1表示显示在中间

End With

With .AddInputCell("ic2") '通过InputCell增加输入框

.AddLabel("lmm","密码:",0) '增加标签,0显示在左边

.AddInput("mm","text",1)'.Required = True '增加输入框,1表示显示在中间

End With

With .AddInputCell("ic3") '通过InputCell增加输入框

.AddLabel("lsj","手机",0) '增加标签,0显示在左边

.AddInput("sjh","text",1).Required = True'增加输入框,1表示显示在中间

.AddVcodeButton("vyz","获取验证码",2).Attribute=""

End With

With .AddInputCell("ic4") '通过InputCell增加输入框

.AddLabel("lyzm","验证码:",0) '增加标签,0显示在左边

.AddInput("yzm","text",1).Required = True '增加输入框,1表示显示在中间

End With

With wb1.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

wb1.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件

e.WriteString(wb1.Build) '生成网页

在valid.htm里面加入msgbox，看弹出多少次。

结果：弹出了2次

改成这种方式

.Add("btn1", "确定", "button").Attribute= "onclick='validit()'" '调用js函数上传

主题：[求助]script问题