ad_emailo.asp 凡人网络购物系统 2008源码程序 - ASP源码程序

www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_emailo.asp
    <!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 * from venshop_system",conn,1,3
rs("mail_orderc")=request("mail_orderc")
rs("mail_orders")=request("mail_orders")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_emailo.asp?htmlc=emailo","ad_emailo.asp?htmlc=emailo")
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_system",conn,1,1%>
<table border="0" cellpadding="5" class=st cellspacing="0">
<form name="form" method="post" action="ad_emailo.asp?action=save">
<tr><td class="s0"><b>定购标题设置：</b><input type="text" name="mail_orders" size="50" value="<%=rs("mail_orders")%>"></td>
</tr>
<tr><td class="s1"> 
<b>定购内容设置：</b></td>
</tr>
<tr> 
<td class="s0"> <div align="center"><!--#include file="ad_in.asp"--></td>
</tr>
<tr> 
<td class="s1"> 
<input type="submit" value="  修改  " name="B1" onClick="document.form.mail_orderc.value = frames.message.document.body.innerHTML;" >
<input name="mail_orderc" type="hidden" id="mail_orderc" value=""></td>
</tr></form>
</table>
<%rs.close
set rs=nothing
%>                      
<br>
<div class="help">
备注：<br>用户定购成功后会自动给用户发送的邮件内容，需要在<a href="ad_upsystem.asp#3">邮件发送设置</a>设置好SMTP信息之后才可以使用。<br>
<br>
#U = 用户名， #M = 用户邮箱， #S = 订单号， #BASKET = 订购商品信息， #F = 订货人信息， #R = 收货人信息</div>
<!--#include file="ad_bottom.asp"-->