📄 bs_ment2.asp
字号:
<!--#include file="../Inc/Conn.asp" -->
<%
'=========================================================
'
' 产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' Copyright 2004-2005 liangjing.net - All Rights Reserved.
'
'========================================================
%>
<%
Id=Session("username")
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 "Bs_Product.asp"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "Select * from Bs_Product"
sql = sql & " Where Product_Id In (" & ProductList & ")"
rs.open sql,conn,3,3
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Inc/Css.css" rel="stylesheet" type="text/css">
<TITLE>商品结算</TITLE>
</HEAD>
<BODY bgcolor="#D9D9D9" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<FORM name="FORM1" action=Bs_Ment3.asp method=post>
<input type=hidden Name="username" Value="<%=Request.form("username")%>" >
<input type=hidden Name="Comane" Value="<%=Request.form("Comane")%>" >
<input type=hidden Name="Somane" Value="<%=Request.form("Somane")%>" >
<input type=hidden Name="Add" Value="<%=Request.form("Add")%>" >
<input type=hidden Name="Zip" Value="<%=Request.form("Zip")%>" >
<input type=hidden Name="Phone" Value="<%=Request.form("Phone")%>" >
<input type=hidden Name="Fox" Value="<%=Request.form("Fox")%>" >
<input type=hidden Name="Email" Value="<%=Request.form("Email")%>" >
<TABLE cellSpacing=0 cellPadding=0 width=100%>
<TR>
<TD align=middle width="100%">
<div align="center">
<center>
<TABLE width=600 align="center" cellSpacing=1 bgColor=#666666 >
<TR bgColor=#999999>
<TD height="22" colSpan=2><div align="center"><font color="#FFFFFF">购物结算--(第二步)购物信息及付款方式</font></div></TD>
</TR>
<tr bgcolor="#F0FCFF">
<TD height=22 align="right" colspan="2">
<div align="center"><br>
<table border="0" cellspacing="1" width="580" height="61" bgcolor="#666666" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#006699">
<td align="center" width="117" height="22" bgcolor="#999999"><font color="#FFFFFF">商品编号</font></td>
<td align="center" width="335" height="22" bgcolor="#999999"><font color="#FFFFFF">商品名称</font></td>
<td align="center" width="118" height="22" bgcolor="#999999"><font color="#FFFFFF">商品数量</font></td>
</tr>
<%
Sum = 0
While Not rs.EOF
Quatity = CLng( Request( "Q_" & rs("Product_Id")) )
If Quatity <= 0 Then
Quatity = CLng( 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="117" height="23" bgcolor="#EEEEEE"><%=rs("Product_ID")%></td>
<td align="center" width="335" height="23" bgcolor="#EEEEEE"><%=rs("Title")%></td>
<td align="center" width="118" height="23" bgcolor="#EEEEEE"><%=Quatity%></td>
</tr>
<%
rs.MoveNext
Wend
%>
<tr>
<td Align="Right" ColSpan="3" height="22" bgcolor="#EEEEEE"> </td>
</tr>
</table>
</div><blockquote></blockquote>
</TD>
</tr>
<!-- <tr>
<TD width=230 bgcolor=#F0FCFF height=7>我们提供三家银行的账号供您汇款,请您选择:</TD>
<TD width=450 height=22 bgcolor="#F0FCFF">
<select size="1" name="Pays" style="font-size: 14px">
<option>招商银行一卡通</option>
<option>交通银行太平洋卡</option>
<option>建设银行龙卡储蓄卡</option>
</select>
</TD>
</tr> -->
<!-- <tr>
<TD width=230 bgcolor=#F0FCFF height=7>订单备注:<p> </p></TD>
<TD width=450 height=22 bgcolor="#F0FCFF"><textarea rows="6" name="Remark" cols="45" style="font-size: 10pt"></textarea></TD>
</tr> -->
<TR bgColor=#F0FCFF>
<TD height="22" colSpan=2><DIV align=center>
<input type="button" value="上一步" name="B4" onclick="javascript:window.history.go(-1)">
<INPUT type="submit" size=3 value="下一步" name="Submit2">
</DIV></TD>
</TR>
</TABLE>
</center>
</div>
</TD>
</TR>
</TABLE>
<BR></FORM>
</BODY></HTML>
<%
rs.close
set rs=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -