📄 bs_ment4.asp
字号:
<!--#include file="Include/Bs_System.asp"-->
<!--#include file="../Inc/Eshopcode.asp"-->
<%
'=========================================================
'
'产品名称： 公司(企业)网站管理系统（简称：www.web300.cn）
'版权所有：www.web300.cn
'程序制作：QQ812256@hotmail.com
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'========================================================
%>
<%
Sub PutToShopBag( cpbm, ProductList )
If Len(ProductList) = 0 Then
ProductList = "'" & cpbm & "'"
ElseIf InStr( ProductList, cpbm ) <= 0 Then
ProductList = ProductList & ", '" & cpbm & "'"
End If
End Sub
sql="select * from home"
Set rs_home= Server.CreateObject("ADODB.Recordset")
rs_home.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 Bs_OrderList"
rs.open sqltext,conn,3,3,1
'添加一个用户到数据库
rs.addnew
rs("username")=request.form("username")
rs("Comane")=request.form("Comane")
rs("Somane")=request.form("Somane")
rs("Add")=request.form("Add")
rs("Zip")=request.form("Zip")
rs("Phone")=request.form("Phone")
rs("Fox")=request.form("Fox")
rs("Email")=request.form("Email")
'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 Bs_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 Bs_Product"
sql = sql & " Where Product_Id In (" & ProductList & ")"
sql = sql & " Order By ArticleID"
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 Bs_ShopList"
rs2.open sqltext2,conn,3,3,1
rs2.addnew
rs2("Product_Id")=rs("Product_Id")
rs2("Form_Id")=a
rs2("Product_Name")=rs("Title")
rs2("BigClassName")=rs("BigClassName")
rs2("SmallClassName")=rs("SmallClassName")
rs2("Number")=CLng(session(rs("Product_Id")))
'rs2("P_NewPrice")=ccur(rs("P_NewPrice"))
rs2.update
%>
<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>
<div align="center">
<TABLE width="380" height="300" align="center" cellPadding=0 cellSpacing=0>
<TR>
<TD align=middle width="100%">
<TABLE cellSpacing=0 cellPadding=0 width=100% bgColor=#999999>
<TR>
<TD align="center" height=22 width="100%" bgcolor="#999999"><b><font color="#FFFFFF">购买成功</font></b> </TD>
</TR>
</TABLE>
<div align="center">
<TABLE cellSpacing=5 width=100% bgColor=#999999 height="123" >
<TR vAlign=top bgColor=#eeeeee>
<TD width="100%" height="50" bgcolor="#F0FCFF"
> 订单提交成功，您的订单号是：<b><font size="4"><%=a%></font></b><br
> 请牢记您的订单号，以便查询。</TD>
</TR>
<TR>
<td height="10"> </TD>
</TR>
<TR bgColor=#eeeeee>
<TD width="100%" height="27" bgcolor="#F0FCFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><%=ubbcode(rs_home("content"))%></td>
</tr>
</table>
<p align="center">
<input type="button" name="close" value="关闭窗口" onClick="window.close()"><br><br>
</p>
</TD>
</TR>
</TABLE>
</div>
</TD>
</TR>
</TABLE><br>
</div>
</BODY></HTML>
<%
rs2.close
rs.movenext
wend
rs.close
rs_home.close
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -