查看: 35|回复: 3

[求助]订单生成问题

[复制链接]

女装批发3

电梯直达

1^#

发表于 2010-1-18 00:02:07 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

在做订单生成时遇到下列问题:运行订单程序,生成一订单号,如11,再次运行,依旧是此订单号.纳闷!!........查看数据库中的订单表orderlist,发现订单号form_id并不只是11;查看商品列表shoplist表,发现其中的form_id全是11.下面是代码,各位兄弟姐妹帮忙看下吧, <%Id=Session("admin") set Rs = Server.CreateObject("ADODB.recordset") sql="select * from yonghuxinxi where admin='"&Id&"'" rs.open sql,conn,1,1 ProductList = Session("ProductList") flags="尚未处理" If Len(ProductList) = 0 Then Response.Redirect "nothing.asp" end if
'保存购买人信息 set rs=server.createobject("adodb.recordset") sqltext="select * from orderlist" rs.open sqltext,conn,3,3,1
'添加一个用户到数据库 rs.addnew rs("userid")=request.form("admin") rs("tName")=request.form("tName") rs("Zip")=request.form("Zip") rs("tel")=request.form("tel") rs("E-mail")=request.form("E-mail") rs("Address")=request.form("Address") rs("Pay")=request.form("Pay") rs("Flag")=flags rs("Remark")=request.form("Remark") If rs("Remark")="" then rs("Remark")="无" End If rs.update rs.close sql="select Form_Id from OrderList order by regtime desc" rs.open sql,conn,3,3,1 c=rs(0) rs.close
products=split(request("spbh"),",") for i=0 to UBound(Products) next set rs=server.createobject("adodb.recordset") session("productlist")=productlist sql = "Select * From Product" sql = sql & " Where Product_Id In (" & ProductList & ")" sql = sql & " Order By Product_No" Set rs = conn.Execute( sql )
if session(rs("Product_Id"))=0 then session(rs("Product_Id"))=1 end if
while not rs.eof set rs2=server.createobject("adodb.recordset") sqltext2="select * from shoplist" rs2.open sqltext2,conn,3,3,1 rs2.addnew rs2("Id")=rs("Product_Id") rs2("Form_Id")=c rs2("Product_Name")=rs("Product_Name") rs2("Number")=cint(session(rs("Product_Id"))) rs2("Product_nPrice")=ccur(rs("Product_nPrice")) rs2.update%>
<% rs2.close rs.movenext wend session.abandon 'response.redirect"success.asp" rs.close conn.close %>

收藏0

使用道具举报

孤独与夜缠绵

2^#

发表于 2010-1-18 00:02:11 | 只看该作者

我给你一个思路，
先判断有没有记录，
如果没有则设一初始值，如从1000开始
否则取出来，让它加1
set rs=server.createobject("adodb.recordset")
sql="select id from 订单 order by id desc "
rs.open sql,conn
if rs.eof then
form_id=1000
else
form_id=rs("form_id")+1
end if

rs.addnew
rs("form_id")=form_id
....
....
rs.update
rs.close
set rs=nothing
这样就会生成自动累加的订单编号

回复支持反对

使用道具举报

未来的回忆

3^#

发表于 2010-1-18 00:02:15 | 只看该作者

订单表里的订单号运行是好的呢,问题是商品表里的订单号总是指向上一条记录,不变.应该在set rs2=server.createobject("adodb.recordset")
sqltext2="select * from shoplist"
rs2.open sqltext2,conn,3,3,1
rs2.addnew
rs2("Id")=rs("Product_Id")
rs2("Form_Id")=c
rs2("Product_Name")=rs("Product_Name")
rs2("Number")=cint(session(rs("Product_Id")))
rs2("Product_nPrice")=ccur(rs("Product_nPrice"))
rs2.update%>上面加点什么,使商品表里的订单号Form_Id与订单表里的订单号c同步呢?

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册