标题:循环显示文本框,再用form批量提交给另一文件,可是文本框里的值提交不过去 ...
只看楼主
sumo423
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-2-10
结帖率:0
已结贴  问题点数:20 回复次数:1 
循环显示文本框,再用form批量提交给另一文件,可是文本框里的值提交不过去.
class.asp(显示文本框并填值的文件):
<body >
  <form name="add" method="post" action="classsave.asp">
  <table >
  <%
Set rs4=Server.CreateObject("ADODB.RecordSet")
sql4="select * from 表 order by 字段1"
i=1
do while not rs4.eof
%>
   <tr >
    <td>
      <input name="sl<%=i%>" type="text" class="input" id="sl<%=i%>" size="16">
    </td>
    <td>
      <input name="dj<%=i%>" type="text" class="input" id="dj<%=i%>" size="16">
   </td>
   </tr>
  <%
  i=i+1
  rs4.movenext
  if rs4.eof then exit do
  loop
  end if
  %>
  <tr>
     <td>   
      <input type="submit" name="Submit" value="提交">&nbsp;&nbsp;
      <input type="reset" name="Submit2" value="重置">
     </td>
    </tr>
</table>
  </form>

classsave.asp(取class.asp中的值并提交给数据库的文件):
<%
if request("act")="add" then
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from 表名"
rs.open sql,conn,3,2
i=10
do while i>=0
rs.addnew
rs("HCMC")=0
rs("RKSL")=request.form("sl"&i)
rs("JG")=request.form("dj"&i)
rs("RKRQ")=date()
rs.update
i=i-1
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "class.asp"
%>
搜索更多相关主题的帖子: class action method 文本框 
2012-02-10 15:33
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:20 
class.asp(显示文本框并填值的文件):
<body >
  <form name="add" method="post" action="classsave.asp">
  <table >
  <%
  Set rs4=Server.CreateObject("ADODB.RecordSet")
  sql4="select * from 表 order by 字段1"
  rs4.open sql4,conn,1,3
  do Until rs4.eof
  %>
   <tr >
    <td>
      <input name="sl" type="text" class="input" size="16">
    </td>
    <td>
      <input name="dj" type="text" class="input" size="16">
   </td>
   </tr>
  <%
     rs4.movenext
    loop
  'end if
  %>
  <tr>
     <td>   
      <input type="submit" name="Submit" value="提交">&nbsp;&nbsp;
      <input type="reset" name="Submit2" value="重置">
     </td>
    </tr>
</table>
  </form>

classsave.asp(取class.asp中的值并提交给数据库的文件):
<%
if request("act")="add" then
   set rs=server.CreateObject("ADODB.RecordSet")
   sql="select * from 表名"
   rs.open sql,conn,3,2
   Dim i
   For i=0 To Request.Form("sl").Count
       rs.addnew
       rs("HCMC")=0
       rs("RKSL")=request.form("sl")(i)
       rs("JG")=request.form("dj")(i)
       rs("RKRQ")=date()
       rs.update
   loop
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
   response.redirect "class.asp"
end if
%>
同名表单元素可以这样循环,注意用了name就不要用id
2012-02-12 11:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-360695-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.739130 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved