📄 my_huikuan.asp
字号:
<!--#include file="include/buyok_shop_30_conn.asp" -->
<%
call aspsql()
call checklogin()
if request("send")="ok" then call send()
%>
<HTML>
<HEAD>
<TITLE>汇款确认-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="buyok_shop.css" type="text/css">
</HEAD>
<CENTER>
<!--#include file="buyok_top.asp"-->
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF" class="grayline" >
<tr>
<td align="center" valign="top" width="185">
<!--#include file="user_center_menu.asp"-->
</td>
<td bgcolor="#CCCCCC" width="1"></td>
<td valign="top" bgcolor="#FfFfFf" width="570">
<TABLE border=0 width="100%" cellspacing="2" cellpadding="2" align=center>
<tr><td height=30>目前位置：<a href=main.asp>首页</a> > <a href=user_center.asp>用户中心</a> > 汇款确认</td></tr>
<tr><td width="570" align="center" height="1" background="images/small/bgline.gif"></td></tr></table>
<br>
<form name="add" method="post" action="my_huikuan.asp">
<table width="90%" border="0" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" align=center bordercolordark="#FFFFFF">
<tr><td colspan=2>请在付款后及时填写汇款确认信息，以便我们及时查帐并处理您的订单。请据实填写以下表格：</tr>
<tr><td>订 单 号：</td><td><input name="hk1" type="text" size="25" maxlength="14" style="BORDER:#CCCCCF 1px solid; FONT -SIZE: 10pt; COLOR: #666666; FONT-FAMILY: verdana"> <img src=images/admin/memo.gif alt="若没有订单号，可不填写"></td></tr>
<tr><td>付款金额：</td><td><input name="hk2" type="text" size="25" maxlength="10" style="BORDER:#CCCCCF 1px solid; FONT -SIZE: 10pt; COLOR: #666666; FONT-FAMILY: verdana"> <img src=images/admin/memo.gif alt="填写实付金额，不应包括您汇款的手续费"></td></tr>
<tr><td>付款方式：</td><td>
<input name="hk3" type="radio" value="1" checked>在线支付
<input name="hk3" type="radio" value="2">邮局汇款
<input name="hk3" type="radio" value="3">银行网站转帐
<input name="hk3" type="radio" value="4">银行柜台汇存 </td>
<tr><td>银行名称：</td><td><input name="hk4" type="text" size="25" maxlength="25" style="BORDER:#CCCCCF 1px solid; FONT -SIZE: 10pt; COLOR: #666666; FONT-FAMILY: verdana"> <img src=images/admin/memo.gif alt="填写银行名称（含分、支行）<br>如：中国工商银行武汉市分行"></td></tr>
<tr><td>付款姓名：</td><td><input name="hk5" type="text" size="25" maxlength="25" style="BORDER:#CCCCCF 1px solid; FONT -SIZE: 10pt; COLOR: #666666; FONT-FAMILY: verdana"> <img src=images/admin/memo.gif alt="填写付款人姓名"></td></tr>
<tr><td>联系电话：</td><td><input name="hk6" type="text" size="25" maxlength="25" style="BORDER:#CCCCCF 1px solid; FONT -SIZE: 10pt; COLOR: #666666; FONT-FAMILY: verdana"> <img src=images/admin/memo.gif alt="建议留下您的联系方式，以便联络"></td></tr>
<tr><td>电子邮箱：</td><td><input name="hk8" type="text" size="25" maxlength="100" style="BORDER:#CCCCCF 1px solid; FONT -SIZE: 10pt; COLOR: #666666; FONT-FAMILY: verdana"></td></tr>
<tr><td>联系地址：</td><td><input name="hk7" type="text" size="25" maxlength="50" style="BORDER:#CCCCCF 1px solid; FONT -SIZE: 10pt; COLOR: #666666; FONT-FAMILY: verdana"></td></tr>
<tr><td valign=top>附言内容：<br><font color=red>≤200字</font></td><td><textarea alt="有关您的付款情况的其它说明" rows="4" name="hk9" cols="60" style="BORDER: darkgray 1px solid; FONT-SIZE: 8pt; FONT-FAMILY: verdana ; overflow:auto;"><%=Replace(request("huifu"),"<br>",vbCRLF)%></textarea>
</td></tr>
<tr><td height=50 colspan=2 align=center><input type="submit" value="立即发送" name=""> <input type="reset" value="重新填写"><input name="send" type="hidden" value="ok"></td></tr>
<tr><td height=50> </td></tr>
</form>
</table>
</td>
</TR>
</TABLE>
<!--#include file="buyok_down.asp"-->
</center>
</BODY>
</html>
<%
sub send()
call buyok_check_path()
if request.form("hk2")="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，您没有填写付款金额！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if (request.form("hk3")="3" or request.form("hk3")="4") then
if request.form("hk4")="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，您选择的是从银行付款，但没有填写银行名称！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
end if
if request.form("hk5")="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，您没有填写付款人姓名！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if llen(request.form("hk9"))>200 then
response.write "<script language='javascript'>"
response.write "alert('出错了，附言太长了！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
neirong="订单号："&request.form("hk1") & vbCRLF
neirong=neirong+ "付款金额：" &request.form("hk2") & vbCRLF
if request.form("hk3") =1 then neirong=neirong+ "付款方式：在线支付" & vbCRLF
if request.form("hk3") =2 then neirong=neirong+ "付款方式：邮局汇款" & vbCRLF
if request.form("hk3") =3 then neirong=neirong+ "付款方式：银行网站转帐" & vbCRLF
if request.form("hk3") =4 then neirong=neirong+ "付款方式：银行柜台支付" & vbCRLF
neirong=neirong+ "银行名称：" &request.form("hk4") & vbCRLF
neirong=neirong+ "付款姓名：" &request.form("hk5") & vbCRLF
neirong=neirong+ "联系电话：" &request.form("hk6") & vbCRLF
neirong=neirong+ "电子邮箱：" &request.form("hk8") & vbCRLF
neirong=neirong+ "联系地址：" &request.form("hk7") & vbCRLF
neirong=neirong+ "附言内容：" &request.form("hk9") & vbCRLF
sql="select * from hand"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")="admin"
rs("neirong")=neirong
rs("riqi")=now()
rs("fname")=request.cookies("buyok")("userid")
rs("zuti")="1"
rs.update
rs.close
set rs=nothing
Set rs = conn.Execute("select * from shopsetup")
jmail=rs("jmail")
adm_mail=rs("adm_mail")
mailserver=rs("mailserver")
mailname=rs("mailname")
mailpassword=rs("mailpassword")
huikuan_mailyesorno=rs("huikuan_mailyesorno")
set rs=nothing
if huikuan_mailyesorno=1 then
dim msg
dim objMail
CLStr=Chr(13) & Chr(10)
if jmail=0 then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = adm_mail
objMail.From =mailname
objMail.Subject ="汇款确认邮件"
objMail.Body = replace(neirong,"<br>",CLStr)
objMail.Send
Set objMail = Nothing
else
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword
msg.From = mailname
msg.FromName = sitename
msg.AddRecipient adm_mail
msg.Subject = "汇款确认邮件"
msg.Body = replace(neirong,"<br>",CLStr)
msg.Send (mailserver)
msg.close
set msg = nothing
end if
end if
response.write "<script language='javascript'>"
response.write "alert('操作成功，汇款确认信息发送成功！');"
response.write "location.href='my_huikuan.asp';"
response.write "</script>"
response.end
end sub
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -