📄 paymentsave.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="util.asp" -->
<!--#include file="conn.asp" -->
<%
ProductList = Session("ProductList")
f_pay="未汇款"
f_send="未发货"
If Len(ProductList) = 0 Then
Response.Redirect "Nothing.asp"
end if
'定义订单号
dd=Day(date())
df=minute(now)
dm=second(now)
if len(dd)=1 then dd="0" & dd
if len(df)=1 then df="0" & df
if len(dm)=1 then dm="0" & dm
billno=dd & df & dm
'保存购买人信息
set rs=server.createobject("adodb.recordset")
sqltext="select * from orderlist where billno='"&billno&"'"
rs.open sqltext,conn,1,1
if not rs.eof then
Response.Write ("<script>alert('对不起！由于订单编号重复，请返回再次提交！');javascript:history.back(1)</script>")
response.end()
end if
rs.close:set rs=nothing
set rs=server.createobject("adodb.recordset")
sqltext="select * from orderlist"
rs.open sqltext,conn,3,3,1
'添加订单信息到数据库中
rs.addnew
rs("billno")=billno
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("send")=request.form("send")
rs("Pay")=request.form("Pay")
rs("send_money")=request.form("send_money")
rs("amount")=request.form("amount")
rs("f_pay")=f_pay
rs("f_send")=f_send
If request.form("Remark")="" then
rs("Remark")="无"
else
rs("Remark")=request.form("Remark")
End If
rs.update
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 id"
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
rs2.addnew
rs2("Product_Id")=rs("Product_Id")
rs2("Form_Id")=billno
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
rs.close:set rs=nothing
%>
<%
'向商家发送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
set M_rs=server.createobject("adodb.recordset")
mysql="select * from Manager"
M_rs.open mysql,conn,1,1
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ServerAddress =""
JMail.Priority = 3
JMail.contenttype ="text/html"
JMail.Sender = M_rs("Email")
JMail.Subject ="订单通知"
JMail.SenderName = M_rs("copyright")
JMail.ReplyTo = M_rs("Email")
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 & M_rs("copyright")&": "&M_rs("Domain_Name")& "<br>"
mess = mess &"服务电话："&M_rs("phone")& "<br>"
mess = mess &"E-MAIL：" &M_rs("Email")& "<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
M_rs.close:set M_rs=nothing
%>
<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>
<script LANGUAGE="JavaScript">
function checkvalue()
{
if(document.post.v_amount.value=="")
{
alert("支付金额为空不能进行在线支付！");
return(false);
}
if(document.post.v_rname.value=="")
{
alert("姓名为空不能进行在线支付！");
return(false);
}
if(document.post.v_payname.value=="")
{
alert("商品名称为空不能进行在线支付！");
return(false);
}
if(document.post.v_raddr.value=="")
{
alert("地址为空不能进行在线支付！");
return(false);
}
document.post.submit();
return(true);
}
</script>
<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=100%>
<TBODY>
<TR>
<TD width=723>
<center>
<p align="center"><br>
<font color="#FF0000"><b> 订单提交成功</b></font></p>
<p align="center">订单号：<font size="5" color="#0000FF"><b><%=billno%></b></font></p>
</center>
<p align="center">请牢记您的订单号，以便查询,点击首页“我的订单”可查询订单处理状态。</p>
<p align="center">
<%
if request.form("Pay")="在线支付" then
n=Right(Year(date()),2)
y=Month(date())
r=Day(date())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
billdate=n & y & r
%>
<p>
<table width="100%" border="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="722"> <form action="http://bank.ipay.com.cn/ipay.php" method="post" name="post" onsubmit="return checkvalue()">
<p style="MARGIN-BOTTOM: 0px; MARGIN-TOP: 0px"> <font size="2">
<input name="v_amount" type="hidden" value="<%=request.form("amount")%>">
<input name="v_rname" type="hidden" value="<%=request.form("Name")%>">
<input name="v_oid" type="hidden" value="<%=billno%>">
<input name="v_remail" type="hidden" value="<%=request.form("Email")%>">
<input name="v_rtel" type="hidden" value="<%=request.form("Phone")%>">
<input name="v_payname" type="hidden" value="按订单号查看"">
<input name="v_rpost" type="hidden" value="<%=request.form("Zip")%>">
</font>
<input name="v_raddr" type="hidden" value="<%=request.form("Address")%>">
<input name="v_rnote" type="hidden" value="<%=request.form("Remark")%>">
<input name="v_mid" type="hidden" value="<%=Request.form("merchant")%>">
<div align="center"><br>
<input type="submit" name="Submit" value="进入网上银行在线支付">
<br>
</div>
</form></td>
</tr>
</table> </p>
<p>
<%
else
response.write "<INPUT class=main type=submit size=3 value=关闭窗口 name=Submit2 onclick='window.close();'> "
end if
Session("ProductList") = ""
session("shop")=""
conn.close
%></p>
</p>
<p> </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 + -