请高手指点 asp查询后保存问题

csx0612 2010-01-19 04:11:19

其实就是和网上订货系统一样，我在购物车界面aa中可能有多条数据，这多条数据是在数据库表sp中，现在我点击保存按钮想把部分信息保存在数据库spdd中，例如：从订单数据库表sp中的je保存在数据库表spdd，含税金额中！怎么实现？
购物页面： <TD height=50 colspan="3"> <form name="form1" method="post" action="savedd.asp">
<table class=table cellspacing=1 cellpadding=4 width="100%" align=center border=0>
<tbody>
<tr align=middle>
<td class=title width=35 height=22>编号 </td>
<td class=title width=165 height=19>商品名称 </td>
<td class=title width=87 height=19>商品产地 </td>
<td class=title width=57 height=19>商品规格 </td>
<td class=title width=33 height=19>单位 </td>
<td class=title width=42 height=19>剂型 </td>
<td class=title width=61 height=19>剂量规格 </td>
<td class=title width=57 height=19>价格(元) </td>
<td class=title width=35 height=19>数量 </td>
<td class=title width=38 height=19>金额 </td>
<td class=title width=38 height=19>删除 </td>
</tr>
<%
sum=0
k=0
array1=split(Session("spid"),":")
array2=split(Session("num"),":")

do while k < ubound(array1)

dim conn
dim connstr

on error resume next
connstr="DBQ="+server.mappath("khdatasecret/global.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr,3,3
if err then
err.clear
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
spbh=replace(array1(k),"'","")
sql = "SELECT * FROM sp where spid='"& spbh &"'"

rs.open sql,conn,1,1

%>
<tr class=title align=middle>
<td class=title> <%=k+1%> </td>
<td class=title> <%=rs("spmch")%> </td>
<td class=title> <%=rs("shpchd")%> </td>
<td class=title> <%=rs("shpgg")%> </td>
<td class=title> <%=rs("dw")%> </td>
<td class=title> <%=rs("jixing")%> </td>
<td class=title> <%=rs("jlgg")%> </td>
<td class=title> <input name="sjj" type="text" id="sjj" value=" <%=rs("hshsj")%>" size="6" format="format"> </td>
<td class=title> <%=array2(k)%> </td>
<td class=title> <%=array2(k)*rs("lshj")%> </td>
<td width="38" class=title> <a href="delsp.asp?id= <%=K%>">删除 </a> </td>
</tr>
<%
sum=sum+rs("lshj")*array2(k)
rs.close
set rs=nothing
k=k+1
loop %>
<tr>
<td align="center" height="42" class="title" colspan="2">
<input type="submit" name="Submit" value="提交订单">
</td>
<td align="center" height="42" class="title" colspan="3"> <a href="shop.asp">*继续购物* </a> </td>
<td align="center" class="title"> <b>金额： </b> </td>
<td align="center" class="title" colspan="3"> <b> <%=sum%>元 </b> </td>
<td align="center" class="title"> </td> <td align="center" class="title"> </td>
</tr>
</tbody>
</table> </form> </TD>

数据库部门： <%

if Len(Session("login"))=0 then
Response.Write(" <script language=""JavaScript"">"&_
"parent.location=""default.asp"";"&_
" </script>")
end if

m=0
k=0

array1=split(Session("spid"),":")
array2=split(Session("num"),":")

dim conn
dim connstr

on error resume next
connstr="DBQ="+server.mappath("khdatasecret/global.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr,3,3
if err then
err.clear
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
spbh=replace(array1(k),"'","")
sql = "SELECT * ,(select * from sp where spid='"&array1(m)&"')as hsje FROM spdd "

rs.open sql,conn,1,3
dim ranNum,Summer
randomize
ranNum = int(90000*rnd)+10000
Summer=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
m=Summer
do while k < ubound(array1)
dim str
str="update spdd set djsn='"&k&"',spid='"&array1(k)&"' where id="&array1(k)'更新数据库
rs.addnew
rs("djsn")=k
rs("spid")=array1(k)
rs("shl")=array2(k)
rs("hsje")=request.Form("sjj")
rs("user")=Session("login")
rs("dwmch")=Session("dwmch")
rs("rq")=now()
rs("rq1")=date()

rs("djbh")=m

rs.update

k=k+1
loop

do while m < ubound(array1)

Set rs1=Server.CreateObject("ADODB.Recordset")

sql1="select * from sp where spid='"&array1(m)&"'"
rs1.open sql1,conn,1,3
data1=rs1("kcshl")

rs1("kcshl")=data1-array2(m)
rs1.update
rs1.close
set rs1=nothing
m=m+1
loop

Response.Write " <script language=JavaScript>{window.alert('订单保存成功，谢谢合作!');window.location.href('shop.asp');} </script>"
rs.close
set rs=nothing
Session("spid")=""
Session("num")=""

%>

...全文