📄 ment2.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
Id=Session("LoginSuccess")
ProductList = Session("ProductList")
Products = Split(Request("cpbm"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
ProductList = Session("ProductList")
If Len(ProductList) =0 Then
Response.Redirect "nothing.asp"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "Select * From Product"
sql = sql & " Where Product_Id In (" & ProductList & ")"
rs.open sql,conn,3,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>商品结算</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 4.0" name=GENERATOR><href="style.css">
<link rel="stylesheet" type="text/css" href="style.css">
</HEAD>
<BODY>
<div align="center">
<center>
<TABLE cellSpacing=0 cellPadding=0 width=600>
<TBODY>
<TR>
<TD height=62 width="100%">
<BR><BR>
<FORM name=FORM1"
action=ment3.asp method=post>
<input type=hidden Name="UserId" Value="<%=Request.form("UserId")%>" >
<input type=hidden Name="Name" Value="<%=Request.form("Name")%>" >
<input type=hidden Name="Address" Value="<%=Request.form("Address")%>" >
<input type=hidden Name="Zip" Value="<%=Request.form("Zip")%>" >
<input type=hidden Name="Phone" Value="<%=Request.form("Phone")%>" >
<input type=hidden Name="Email" Value="<%=Request.form("Email")%>" >
<TABLE cellSpacing=0 cellPadding=0 width=100%>
<TBODY>
<TR>
<TD align=middle width="100%"><STRONG><FONT color=red>
</FONT></STRONG>
<div align="center">
<center>
<TABLE cellSpacing=1 width=100% bgColor=#000000 >
<TBODY>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 width="574" bgcolor="#EEEEEE">
<p align="center">购物结算--(第二步)购物信息及付款方式</p>
</TD></TR>
<tr>
<TD width=100% bgcolor=#EEEEEE height=7 align="right" colspan="2">
<div align="center"><center>
<table border="0" cellspacing="1" width="580" height="61" bgcolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#006699">
<td align="center" width="85" height="20" bgcolor="#006699"><font color="#FFFFFF">商品编号</font></td>
<td align="center" width="205" height="20" bgcolor="#006699"><font color="#FFFFFF">商品名称</font></td>
<td align="center" width="87" height="20" bgcolor="#006699"><font color="#FFFFFF">商品价格</font></td>
<td align="center" width="76" height="20" bgcolor="#006699"><font color="#FFFFFF">商品数量</font></td>
<td align="center" width="95" height="20" bgcolor="#006699"><font color="#FFFFFF">总价</font></td>
</tr>
<%
Sum = 0
While Not rs.EOF
Quatity = CInt( Request( "Q_" & rs("Product_Id")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rs("Product_Id")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs("Product_Id")) = Quatity
Sum = Sum + ccur(rs("P_NewPrice")) * Quatity
%>
<tr>
<td align="center" width="85" height="23" bgcolor="#EEEEEE"><%=rs("Product_ID")%>
</td>
<td align="center" width="205" height="23" bgcolor="#EEEEEE"><%=rs("Product_Name")%>
</td>
<td align="center" width="87" height="23" bgcolor="#EEEEEE"><%=rs("P_NewPrice")%>
</td>
<td align="center" width="76" height="23" bgcolor="#EEEEEE"><%=Quatity%></td>
<td Align="center" width="95" height="23" bgcolor="#EEEEEE"><%=ccur(rs("P_NewPrice"))*Quatity%>元
</td>
</tr>
<%
rs.MoveNext
Wend
%>
<tr>
<td Align="Right" ColSpan="6" width="572" height="12" bgcolor="#EEEEEE"><font Color="Red">总价格=人民币 <%=Sum%>元</font></td>
</tr>
</table>
</center></div><blockquote>
</blockquote>
</TD>
</tr>
<tr>
<TD width=124 bgcolor=#EEEEEE height=7>付款方式</TD>
<TD width=438 height=7 bgcolor="#EEEEEE"><select size="1" name="Pays" style="font-size: 14px">
<option>邮局汇款，款到发货</option>
<option>现金支付，上门提货</option>
<option>银行转帐，见票发货</option>
</select> </TD>
</tr>
<tr>
<TD width=124 bgcolor=#EEEEEE height=7>请给我们订单处理员留言</TD>
<TD width=438 height=7 bgcolor="#EEEEEE"><textarea rows="6" name="Remark" cols="45" style="font-size: 10pt"></textarea> </TD>
</tr>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 width="574" bgcolor="#EEEEEE"></TD></TR>
<TR bgColor=#eeeeee>
<TD colSpan=2 width="574" bgcolor="#EEEEEE">
<DIV align=center>
<INPUT class=main type=submit size=3 value=下一步 name=Submit2>
</DIV></TD></TR></TBODY></TABLE>
</center>
</div>
</TD></TR></TBODY></TABLE><BR></FORM></TD></TR></TBODY></TABLE>
</center>
</div>
</BODY></HTML>
<%
rs.close
conn.close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -