修改文件：/plus/form/form.asp

s_content="<table border=0 cellpadding=0 cellspacing=0>" & vbcrlf
for k=0 to ubound(sql,2)
if sql(2,k)=1 and KS.S(sql(0,k))="" then call Alert(sql(1,k) & "必须填写！"):exit sub

If sql(0,k)="KS_xm" Then
If Not conn.execute("sel ect top 1 id from "& TableName &" where "& sql(0,k) &"='"& KS.S(sql(0,k)) &"'").Eof Then
Alert(sql(1,k) & "不能重复！"):exit sub
End If
End If

select case sql(3,k)
case 8
If Not KS.IsValidEmail(KS.S(sql(0,k))) Then  Call Alert("Email格式不正确!"):Exit Sub
email=KS.S(sql(0,k))
case 4
If Not isnumeric(KS.S(sql(0,k))) and sql(2,k)=1 Then  Call Alert("数字格式不正确!"):Exit Sub
case 5
If Not ISDate(KS.S(sql(0,k))) Then  Call Alert(sql(1,k) &"格式不正确!"):Exit Sub
end select
s_content=s_content &"<tr>" & vbcrlf

备注：红色为增加部分，“sel ect”中间的空格去掉