asp循环读取数据并用form提交表单的问题
首先看一个可以正常显示的asp文件<HTML><BODYBGCOLOR="LightYellow"><TABLEBORDER="0"ALIGN="Center"><CAP...
首先看一个可以正常显示的asp文件
<HTML>
<BODY BGCOLOR="LightYellow">
<TABLE BORDER="0" ALIGN="Center">
<CAPTION align=center><A HREF="ShoppingCar.asp">查看购物车</A></CAPTION>
<TR BGCOLOR="#BABA76" HEIGHT="30" ALIGN="Center">
<%
' 使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("store.mdb")
objConn.Open
' 从数据表中读取符合SQL语句的记录并存放在Recordset对象中
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM 商品"
objRS.Open strSQL, objConn, 1,1
' 读取数据表的字段名称以作为表格的标题
For I = 0 To objRS.Fields.Count - 1
Response.Write "<TD>" & objRS.Fields(I).Name & "</TD>"
Next
Response.Write "<TD>数量</TD>"
Response.Write "<TD>订购</TD>"
' 读取各个字段的数据并显示在表格内
Do While Not objRS.EOF
Data = "<TR HEIGHT='30' BGCOLOR='#EDEAB1'>"
For I = 0 To objRS.Fields.Count - 1
Data = Data & "<TD>" & objRS.Fields(I).Value & "</TD>"
Next
Response.Write Data
f1="<FORM METHOD='POST' ACTION='AddToCar.asp?uid="
f2= objRS("商品编号") & "&name=" & objRS("名称")
f3= "&company=" & objRS("生产商") & "&Price=" & objRS("定价") & "'>"
f4="<INPUT TYPE='text' NAME='Quantity' SIZE='5'></TD>"
f5="<INPUT TYPE=SUBMIT VALUE=放入购物车></TD></FORM>"
Response.Write "<TD ALIGN=Center>" & f1 & f2 & f3 & f4
Response.Write "<TD ALIGN=Center>" & f5
objRS.MoveNext
Loop
' 关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</TABLE>
</BODY>
</HTML>
请高手为我解说一下在这里的表单时如何跟踪循环读取的数据使得在确定购买时将数据传递过去。
我也有通过其他形式在表格中插入代码实现循环，可是却无法传递变量了！求解！说的明白点最好，我是菜鸟，希望得到大家的帮助。 展开
<HTML>
<BODY BGCOLOR="LightYellow">
<TABLE BORDER="0" ALIGN="Center">
<CAPTION align=center><A HREF="ShoppingCar.asp">查看购物车</A></CAPTION>
<TR BGCOLOR="#BABA76" HEIGHT="30" ALIGN="Center">
<%
' 使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("store.mdb")
objConn.Open
' 从数据表中读取符合SQL语句的记录并存放在Recordset对象中
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM 商品"
objRS.Open strSQL, objConn, 1,1
' 读取数据表的字段名称以作为表格的标题
For I = 0 To objRS.Fields.Count - 1
Response.Write "<TD>" & objRS.Fields(I).Name & "</TD>"
Next
Response.Write "<TD>数量</TD>"
Response.Write "<TD>订购</TD>"
' 读取各个字段的数据并显示在表格内
Do While Not objRS.EOF
Data = "<TR HEIGHT='30' BGCOLOR='#EDEAB1'>"
For I = 0 To objRS.Fields.Count - 1
Data = Data & "<TD>" & objRS.Fields(I).Value & "</TD>"
Next
Response.Write Data
f1="<FORM METHOD='POST' ACTION='AddToCar.asp?uid="
f2= objRS("商品编号") & "&name=" & objRS("名称")
f3= "&company=" & objRS("生产商") & "&Price=" & objRS("定价") & "'>"
f4="<INPUT TYPE='text' NAME='Quantity' SIZE='5'></TD>"
f5="<INPUT TYPE=SUBMIT VALUE=放入购物车></TD></FORM>"
Response.Write "<TD ALIGN=Center>" & f1 & f2 & f3 & f4
Response.Write "<TD ALIGN=Center>" & f5
objRS.MoveNext
Loop
' 关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</TABLE>
</BODY>
</HTML>
请高手为我解说一下在这里的表单时如何跟踪循环读取的数据使得在确定购买时将数据传递过去。
我也有通过其他形式在表格中插入代码实现循环，可是却无法传递变量了！求解！说的明白点最好，我是菜鸟，希望得到大家的帮助。 展开
2个回答
展开全部
整个 form 放在循环的最外面
<form>
<!--循环-->
name=ProductId value=rs("id") 这是循环出来的产品ID，用来在接收页面接收，接后的结果应该是 1,2,3,4,5,5,6,7 这样的一个串（主要看你这个循环里面有多少个
name=productCt value="0" 这里必须要设一个默认值，否则会造成数组长度不一致 这个是买多少个 (接收后出是 1,2,3,4,5,6,7)这样的串
<!--循环结束-->
</form>
提交到接收页面后这样写
pIds=request("productid") ' 会得到一个ID串
pcts=request("productct") '会得到一个订购的数量串
这两个串的数组长度和对应关系，是一致的
分割
pid=split(pids,",")
pct=split(pcts,",")
对比，如果两个数组不一样长，则出错了，返回错误
if ubount(pid)<> ubount(pct) then
'error处理
response.end
end if
通过上面的验证后，就开始循环写到数据库里面去就行了
for i = 0 to ubound(pid)
rs.addnew
rs.update
next
明白了吗？
<form>
<!--循环-->
name=ProductId value=rs("id") 这是循环出来的产品ID，用来在接收页面接收，接后的结果应该是 1,2,3,4,5,5,6,7 这样的一个串（主要看你这个循环里面有多少个
name=productCt value="0" 这里必须要设一个默认值，否则会造成数组长度不一致 这个是买多少个 (接收后出是 1,2,3,4,5,6,7)这样的串
<!--循环结束-->
</form>
提交到接收页面后这样写
pIds=request("productid") ' 会得到一个ID串
pcts=request("productct") '会得到一个订购的数量串
这两个串的数组长度和对应关系，是一致的
分割
pid=split(pids,",")
pct=split(pcts,",")
对比，如果两个数组不一样长，则出错了，返回错误
if ubount(pid)<> ubount(pct) then
'error处理
response.end
end if
通过上面的验证后，就开始循环写到数据库里面去就行了
for i = 0 to ubound(pid)
rs.addnew
rs.update
next
明白了吗？
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<form>
<!--循环-->
name=ProductId value=rs("id") 这是循环出来的产品ID，用来在接收页面接收，接后的结果应该是 1,2,3,4,5,5,6,7 这样的一个串（主要看你这个循环里面有多少个
name=productCt value="0" 这里必须要设一个默认值，否则会造成数组长度不一致 这个是买多少个 (接收后出是 1,2,3,4,5,6,7)这样的串
<!--循环结束-->
</form>
提交到接收页面后这样写
pIds=request("productid") ' 会得到一个ID串
pcts=request("productct") '会得到一个订购的数量串
这两个串的数组长度和对应关系，是一致的
分割
pid=split(pids,",")
pct=split(pcts,",")
对比，如果两个数组不一样长，则出错了，返回错误
if ubount(pid)<> ubount(pct) then
'error处理
response.end
end if
通过上面的验证后，就开始循环写到数据库里面去就行了
for i = 0 to ubound(pid)
rs.addnew
<!--循环-->
name=ProductId value=rs("id") 这是循环出来的产品ID，用来在接收页面接收，接后的结果应该是 1,2,3,4,5,5,6,7 这样的一个串（主要看你这个循环里面有多少个
name=productCt value="0" 这里必须要设一个默认值，否则会造成数组长度不一致 这个是买多少个 (接收后出是 1,2,3,4,5,6,7)这样的串
<!--循环结束-->
</form>
提交到接收页面后这样写
pIds=request("productid") ' 会得到一个ID串
pcts=request("productct") '会得到一个订购的数量串
这两个串的数组长度和对应关系，是一致的
分割
pid=split(pids,",")
pct=split(pcts,",")
对比，如果两个数组不一样长，则出错了，返回错误
if ubount(pid)<> ubount(pct) then
'error处理
response.end
end if
通过上面的验证后，就开始循环写到数据库里面去就行了
for i = 0 to ubound(pid)
rs.addnew
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
