?? ment4.asp
字號(hào):
<%@ LANGUAGE="VBScript" %>
<!--#include file="Inc/Conn.asp" -->
<!--#include file="Inc/Eshopcode.asp"-->
<!--#include file="Inc/top.asp"-->
<%
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
'保存購(gòu)買人信息
set rs=server.createobject("adodb.recordset")
sqltext="select * from orderlist"
rs.open sqltext,conn,3,3,1
'添加一個(gè)用戶到數(shù)據(jù)庫(kù)
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 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 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 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")=cint(session(rs("Product_Id")))
'rs2("P_NewPrice")=ccur(rs("P_NewPrice"))
rs2.update
%>
<head>
<meta name="Author" content="Hypo">
<meta name="Contact" content="Hypo@Wz163.com">
<meta name="Copyright" content="Lw163.com">
<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=95% height="100%" align="center" cellPadding=0 cellSpacing=0>
<TR>
<TD align=middle width="100%">
<TABLE cellSpacing=0 cellPadding=0 width=100% bgColor=#999999>
<TBODY>
<TR>
<TD align="center" height=22 width="100%" bgcolor="#999999">
<b><font color="#FFFFFF">購(gòu)買成功</font></b> </TD>
</TR></TBODY></TABLE>
<div align="center">
<TABLE cellSpacing=5 width=100% bgColor=#999999 height="123" >
<td height="5"><TBODY>
<TR vAlign=top bgColor=#eeeeee>
<TD width="100%" height="50" bgcolor="#F0FCFF">
訂單提交成功，您的訂單號(hào)是：<b><font size="4"><%=a%></font></b><br>
請(qǐng)牢記您的訂單號(hào)，以便查詢。
</TD></TR>
<td height="10"> <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="關(guān)閉窗口" onClick="window.close()">
<br>
<br>
</TD></TR></TBODY></TABLE>
</div>
</TD></TR></TABLE>
<br>
</div><%
rs2.close
rs.movenext
wend
rs.close
rs_home.close
conn.close
set conn=nothing
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -