📄 paymentsave.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="util.asp" -->
<!--#include file="conn.asp" -->
<%
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("User_Id")=request.form("UserId")
rs("Name")=request.form("Name")
rs("Zip")=request.form("Zip")
rs("Phone")=request.form("Phone")
rs("Email")=request.form("Email")
rs("Address")=request.form("Address")
rs("Pays")=request.form("Pays")
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
a=rs(0)
rs.close
%>
<%
products=split(request("cpbm"),",")
for i=0 to UBound(Products)
'response.write cpbm
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("Product_Id")=rs("Product_Id")
rs2("Form_Id")=a
rs2("Product_Name")=rs("Product_Name")
rs2("Number")=cint(session(rs("Product_Id")))
rs2("P_NewPrice")=ccur(rs("P_NewPrice"))
rs2.update%>
<%
rs2.close
rs.movenext
wend
session.abandon
'response.redirect"success.asp"
rs.close
conn.close
%>
<head>
<STYLE type=text/css>.main {
FONT-SIZE: 12px
}
.main1 {
FONT-SIZE: 14px
}
</STYLE>
</head>
<p align="center">
<p align="center">
<p align="center">
<TABLE cellSpacing=0 cellPadding=0 width=341>
<TR>
<TD align=middle width="342">
<TABLE cellSpacing=0 cellPadding=0 width=373 bgColor=#6d8e4d>
<TBODY>
<TR>
<TD height=2 width="113">
<p align="center"> </TD>
<TD height=2 width="256">
<DIV align=right></DIV></TD></TR></TBODY></TABLE>
<div align="center">
<center>
<TABLE cellSpacing=1 width=373 bgColor=#416327 height="123" class=main1>
<TBODY>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 width="373" height="76">
<p align="center"><br>
订单提交成功，您的订单号是：<font color="#FF0000"><%=a%></font></p>
</center>
<p align="center">我们即可按您的订单发货，请牢记您的订单号，以便查询。</p>
</TD></TR>
<center>
<TR bgColor=#e6e4c4>
<TD class=main1 width="373" height="27">
<DIV align=center><INPUT class=main type=submit size=3 value=返回 name=Submit2 onclick="window.location.href='Default.asp';">
</DIV></TD></TR></TBODY></TABLE>
</center>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=373 bgColor=#6d8e4d>
<TBODY>
<TR>
<TD width=119 height=2></TD>
<TD width=272 height=2>
<DIV align=right style="width: 212; height: 19"></DIV></TD></TR></TBODY></TABLE></TD></TR></TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -