imanshirani
چهارشنبه 10 مهر 1387, 04:39 صبح
asp کلاسيک چطوري ميشه 6 تا سطر را با هم مقدار دهي کرد
هر سطر هم 4 تا فيلد داره
من از اين کد استفاده مي کنم ولي فقط يک سطر تو جدول پر ميشه .
Dim items
For Each items in Request.Cookies
IDProducts = Request.Form("IDProducts")
Quantity = Request.Form("Quantity")
Price = Request.Form("Price")
Next
'Edite RecordSet
objRS.AddNEW
objRS ("KeyOrder")= Request.Form("Username") & date
objRS ("IDProducts") = IDProducts
objRS ("Quantity") = Quantity
objRS ("Price") = Price
objRS.update
مقادير ارسالي هم با اين کد ارسال ميشه
<%
sql="select * from tbl_Products where IDProducts in (" & str & ")"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, objconn, 3, 3
While Not rs2.EOF
%>
<input type="hidden" name="IDProducts" value="<%=rs2.Fields("IDProducts").Value%>" />
<input type="hidden" name="Price" value="<%=rs2.Fields("Price").Value*Request.Cookies("ShopCard" & rs2.Fields("IDProducts").Value)%>" />
<input type="hidden" name="Quantity" value="<%=Request.Cookies(Server.HTMLEncode("ShopCard" & rs2.Fields("IDProducts").Value))%>" />
<%
rs2.MoveNext
Wend
%>
هر سطر هم 4 تا فيلد داره
من از اين کد استفاده مي کنم ولي فقط يک سطر تو جدول پر ميشه .
Dim items
For Each items in Request.Cookies
IDProducts = Request.Form("IDProducts")
Quantity = Request.Form("Quantity")
Price = Request.Form("Price")
Next
'Edite RecordSet
objRS.AddNEW
objRS ("KeyOrder")= Request.Form("Username") & date
objRS ("IDProducts") = IDProducts
objRS ("Quantity") = Quantity
objRS ("Price") = Price
objRS.update
مقادير ارسالي هم با اين کد ارسال ميشه
<%
sql="select * from tbl_Products where IDProducts in (" & str & ")"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, objconn, 3, 3
While Not rs2.EOF
%>
<input type="hidden" name="IDProducts" value="<%=rs2.Fields("IDProducts").Value%>" />
<input type="hidden" name="Price" value="<%=rs2.Fields("Price").Value*Request.Cookies("ShopCard" & rs2.Fields("IDProducts").Value)%>" />
<input type="hidden" name="Quantity" value="<%=Request.Cookies(Server.HTMLEncode("ShopCard" & rs2.Fields("IDProducts").Value))%>" />
<%
rs2.MoveNext
Wend
%>