关于多行数据存储的问题?????
I_can 2002-05-17 12:28:34 现在数据存不进去,请各位大侠帮俺看看,谢谢
money.asp
<%
查询链接数据库
%>
下面是上面查询form的post给本页,查询出信息后显示在本页,然后把数据发送到money_result.asp存储到数据库
<%nCount = 0
do while not objrs.eof
nCount = nCount + 1
response.write"<tr align=center><td>"&objrs("xuehao")&"</td>"
response.write"<td>"&objrs("banji")&"</td>"
response.write"<td>"&objrs("xingming")&"</td>"
response.write"<td>"&objrs("re_year")&"-"&objrs("re_month")&"-"&objrs("re_day")&"</td>"
response.write"<td>"&objrs("feiyong")&"</td>"
response.write"<form method=post action=money_result.asp>"
response.write"<input type=hidden name=xuehao"&nCount&" value="&objrs("xuehao")&">"
response.write"<input type=hidden name=banji"&nCount&" value="&objrs("banji")&">"
response.write"<input type=hidden name=xingming"&nCount&" value="&objrs("xingming")&">"
response.write"<td><input type=checkbox name=check1"&nCount&" value='是'></td>"
response.write"<td><input type=textname=fapiao"&nCount&"></td></tr>"
bjrs.movenext
loop
response.write"<input type=hidden name=usercount value="&nCount&">"
response.write"<tr align=center><td><input type=submit value='存储数据'></td>"
response.write"<td><input type=reset value='重新输入'></td></tr>"
response.write"</form>"
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
money_result.asp
<%
usercount=request("usercount")
set conn = server.CreateObject("adodb.connection") '连接对象
conn.open"dsn=users_manger;uid=a;pwd=b"
set rs = Server.CreateObject ("ADODB.Recordset")
???(这句sql语句应该怎样写?)sql= "select * from consumer where xuehao='"&xuehao&""&nCount&"'"
rs.Open sql,conn,1,3
if not rs.eof then
nCount = CLNG(usercount)
for i= 1 to nCount
xuehao=Request("xuehao"&i)
banji=Request("banji"&i)
rs("check1").value=check1
rs("fapiao").value=fapiao
next
'将数据回存至数据库
rs.update
rs.movenext
rs.close
end if
%>