ASP表单批量验证,高手来
我要批量插入N个文本,想批量实现表单验证怎么实现?请高手帮偶修改下面的代码,谢谢了能解决我的问题追加30分================================...
我要批量插入N个文本,想批量实现表单验证怎么实现?请高手帮偶修改下面的代码,谢谢了
能解决我的问题追加30分
===============================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
nowmaxproduit=request("select")
if nowmaxproduit="" then
nowmaxproduit=1
end if
%>
<form name="form2" method="post">
<table border="0" align=center cellpadding="5" cellspacing="0">
<tr>
</td>
<select name="select" id="select" onChange="form2.submit()">
<option value="1"<%if nowmaxproduit="1" then%> selected="selected"<%end if%>>1</option>
<option value="2"<%if nowmaxproduit="2" then%> selected="selected"<%end if%>>2</option>
<option value="3"<%if nowmaxproduit="3" then%> selected="selected"<%end if%>>3</option>
</select>
</td>
</tr>
</table>
</form>
<form name="form1" method="post">
<table width="600" border="1" align="center" cellpadding="4" cellspacing="1" class="toptable grid">
<tr>
<td class="category">本厂编号</td>
<td class="category">货品名称</td>
<td class="category">色号</td>
<td class="category">唛头</td>
</tr>
<%for x=1 to nowmaxproduit%>
<tr>
<td width="23%" class="category"><input name="bcbh" type="text" id="bcbh" size="15" /></td>
<td width="27%" class="category"><input name="hpname" type="text" id="hpname" size="15" /></td>
<td width="25%" class="category"><input name="colorno" type="text" id="colorno" size="15" /></td>
<td width="25%" class="category"><input name="matou" type="text" id="matou" size="15" /></td>
</tr>
<%next%>
<tr>
<td colspan="4" class="category">
<input type="submit" value=" 确认添加 " class="button">
<input type="hidden" name="hid1" value="ok">
<input type="reset" value=" 重新填写 " class="button">
</td>
</tr>
</table>
</form>
<p> </p>
</body>
</html> 展开
能解决我的问题追加30分
===============================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
nowmaxproduit=request("select")
if nowmaxproduit="" then
nowmaxproduit=1
end if
%>
<form name="form2" method="post">
<table border="0" align=center cellpadding="5" cellspacing="0">
<tr>
</td>
<select name="select" id="select" onChange="form2.submit()">
<option value="1"<%if nowmaxproduit="1" then%> selected="selected"<%end if%>>1</option>
<option value="2"<%if nowmaxproduit="2" then%> selected="selected"<%end if%>>2</option>
<option value="3"<%if nowmaxproduit="3" then%> selected="selected"<%end if%>>3</option>
</select>
</td>
</tr>
</table>
</form>
<form name="form1" method="post">
<table width="600" border="1" align="center" cellpadding="4" cellspacing="1" class="toptable grid">
<tr>
<td class="category">本厂编号</td>
<td class="category">货品名称</td>
<td class="category">色号</td>
<td class="category">唛头</td>
</tr>
<%for x=1 to nowmaxproduit%>
<tr>
<td width="23%" class="category"><input name="bcbh" type="text" id="bcbh" size="15" /></td>
<td width="27%" class="category"><input name="hpname" type="text" id="hpname" size="15" /></td>
<td width="25%" class="category"><input name="colorno" type="text" id="colorno" size="15" /></td>
<td width="25%" class="category"><input name="matou" type="text" id="matou" size="15" /></td>
</tr>
<%next%>
<tr>
<td colspan="4" class="category">
<input type="submit" value=" 确认添加 " class="button">
<input type="hidden" name="hid1" value="ok">
<input type="reset" value=" 重新填写 " class="button">
</td>
</tr>
</table>
</form>
<p> </p>
</body>
</html> 展开
展开全部
<%
bcbh=request("bcbh")
hpname=request("hpname")
colorno=request("colorno")
matou=request("matou")
set rs=server.CreateObject("adodb.recordset")
sql="select * from 表 where 1=1 "
if request("bcbh")<>"" then
sql=sql&"and bcbh="&bcbh&" " '如果不是数字型那就换成'"&bcbh&"' 如是模糊模询就是 like '%"&bcbh&"%'
end if
if request("hpname")<>"" then
sql=sql&"and hpname='"&hpname&"' " '如是模糊模询就是 like '%"&hpname&"%'
end if
if request("colorno")<>"" then
sql=sql&"and colorno='"&colorno&"' " '如是模糊模询就是 like '%"&colorno&"%'
end if
if request("matou")<>"" then
sql=sql&"and matou='"&matou&"' " '如是模糊模询就是 like '%"&matou&"%'
end if
你真接接收值,这样就行了
%>
bcbh=request("bcbh")
hpname=request("hpname")
colorno=request("colorno")
matou=request("matou")
set rs=server.CreateObject("adodb.recordset")
sql="select * from 表 where 1=1 "
if request("bcbh")<>"" then
sql=sql&"and bcbh="&bcbh&" " '如果不是数字型那就换成'"&bcbh&"' 如是模糊模询就是 like '%"&bcbh&"%'
end if
if request("hpname")<>"" then
sql=sql&"and hpname='"&hpname&"' " '如是模糊模询就是 like '%"&hpname&"%'
end if
if request("colorno")<>"" then
sql=sql&"and colorno='"&colorno&"' " '如是模糊模询就是 like '%"&colorno&"%'
end if
if request("matou")<>"" then
sql=sql&"and matou='"&matou&"' " '如是模糊模询就是 like '%"&matou&"%'
end if
你真接接收值,这样就行了
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询