📄 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("p_shop")=session("shop")
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
%>
<%
'向商家发送email 通知第一步---取得商家邮件地址
shop_name1=session("shop")
set rs_shop=server.createobject("adodb.recordset")
sql = "Select Email From shop where shop_name1='"&shop_name1&"'"
rs_shop.open sql,conn,1,1
shop_email=rs_shop("Email")
rs_shop.close
set rs_shop=nothing
'邮件发送程序============================================
on error resume next '忽略邮址错误
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ServerAddress =""
JMail.Priority = 3 '高优先级
JMail.contenttype ="text/html" '格式 默认为text/txt
JMail.Sender = "webmaster@0754b2c.com" '指定发件人的邮件地址
JMail.Subject ="订单通知" ' 邮件标题
JMail.SenderName = "汕头商城" '指定发件人的姓名
JMail.ReplyTo = "webmaster@0754b2c.comt" '可选的回信地址
JMail.AddRecipient( shop_email ) '收件人
mess = "<body bgcolor=""#FFFFE8"">"
mess = mess & "尊敬的网店会员[<font color=""#FF0000"">"&shop_name1&"</font>]：" & "<br>"
mess = mess & "<br>"
mess = mess &" 恭喜你!又有一位客户在你的网上商店里下了订单,订单号为:"& a &"<br>"
mess = mess & "请你到商家管理系统里查询订单的详细资料并及时对订单作出处理。"& "<br>"
mess = mess & "<br>"
mess = mess & "此致。"& "<br>"
mess = mess & "<br>"
mess = mess & "<br>"
mess = mess & "<br>"
mess = mess & "<a href=""http://www.0754b2c.com/汕头商城/myshop/login.asp"" target=""_blank"">进入商家后台管理系统==></a>" & "<br>"
mess = mess & "<br>"
mess = mess & "汕头商城: http://www.0754b2c.com" & "<br>"
mess = mess &"联系电话：800-830-9740" & "<br>"
mess = mess &"E-MAIL：webmaster@0754b2c.com" & "<br>"
mess = mess & "<br>"
mess = mess &"</body>"
JMail.Body = mess '信件体正文为变量mess
if err then '判断是否错误
err.clear
end if
JMail.Execute()
JMail.Close()
set jMail=nothing
Session("ProductList") = ""
session("shop")=""
'session.abandon 如果用这句将可把会员session一起结束
'response.redirect"success.asp"
rs.close
conn.close
%>
<HTML><HEAD><TITLE>商品详细信息</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE>BODY {
FONT-SIZE: 10pt
}
TD {
FONT-SIZE: 10pt; LINE-HEIGHT: 150%
}
A {
TEXT-DECORATION: none
}
A:hover {
TEXT-DECORATION: underline
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY background=pic/user/bg.jpg bgColor=#ffffff text=#000000>
<DIV align=center><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=631>
<TBODY>
<TR>
<TD colSpan=2><IMG height=26 src="pic/user/top_PayMentDetai2.gif" width=631></TD></TR>
<TR>
<TD bgColor=#fff0c0 width=598>
<TABLE align=center border=1 borderColorDark=#fffcf0
borderColorLight=#ffd146 cellPadding=4 width=590>
<TBODY>
<TR>
<TD width=574>
<center>
<p align="center"> <font size="5" color="#FF0000"><b><br>
订单提交成功</b></font></p>
<p align="center">您的订单号是：<font color="#FF0000"><%=a%></font></p>
</center>
<p align="center">我们即可按您的订单发货，请牢记您的订单号，以便查询。</p>
<p align="center"><INPUT class=main type=submit size=3 value=返回 name=Submit2 onclick="window.location.href='Default.asp';">
</p>
</TD>
</TR>
</TBODY></TABLE></TD>
<TD background=pic/user/bak.gif vAlign=top width=33><IMG border=0
height=36 src="pic/user/j1.gif" width=33></TD></TR>
<TR>
<TD colSpan=2><IMG height=18 src="pic/user/bottom.gif"
width=631></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -