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

www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_emailr.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 * from venshop_system",conn,1,3
rs("mail_regc")=request("mail_regc")
rs("mail_regs")=request("mail_regs")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_emailr.asp?htmlc=emailr","ad_emailr.asp?htmlc=emailr")
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_system",conn,1,1%>
<table border="0" cellpadding="5" cellspacing="0" class=st>
<form name="form" method="post" action="ad_emailr.asp?action=save">
<tr><td class="s0"> 
<b>注册邮件标题：</b><input type="text" name="mail_regs" size="50" value="<%=rs("mail_regs")%>"></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_regc.value = frames.message.document.body.innerHTML;" >
<input name="mail_regc" type="hidden" id="mail_regc" 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 = 用户邮箱， #Q = 密码保护问题， #A = 密码保护答案</div><!--#include file="ad_bottom.asp"-->