mailcfg.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F999"
session("title")="邮件模板管理"
session("headline")="首页 -> 注册系统 -> 邮件模板管理"
%>
<!--#include file="../inc/head2.asp"-->

<%

if request("act")="Del" then
	Call Del()
	call List()
elseif request("act")="delall" then
	conn.execute (" delete from opLog  ")
	call List()
elseif request("act")="Add_Pre" or request("act")="Edit_Pre"  then
	call Form()
elseif request("act")="Add" then
	call Add()
	Call List()
elseif request("act")="Edit" then
	call Edit()
	Call List()
else
	call List()
end if

sub Edit()
CfgName=request("CfgName")
CfgDetail=request("CfgDetail")
CfgBody=request("CfgBody")

if CfgName="" or CfgBody="" then
	session("mesg")="配置名及配置值不能为空"
	Response.Redirect "../result.asp"
end if

'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from mailCfg where CfgName='"&CfgName&"'"
rs.open sql,conn,1,3

if rs.eof then
	session("mesg")="该配置不存在"
	Response.Redirect "../result.asp"
end if


rs("CfgDetail")=CfgDetail
rs("CfgBody")=CfgBody

rs.update
rs.close
set rs=nothing
end sub


sub Add()
CfgName=request("CfgName")
CfgDetail=request("CfgDetail")
CfgBody=request("CfgBody")

if CfgName="" or CfgBody=""  then
	session("mesg")="名称及配置值不能为空"
	Response.Redirect "../result.asp"
end if


'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from MailCfg where CfgName='"&CfgName&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs.close
set rs=nothing
session("mesg")="已经存在名称为["&CfgName&"]的配置"
session("mesgtype")="mesg"
Response.Redirect "../result.asp"
end if
rs.addnew

rs("CfgName")=CfgName
rs("CfgDetail")=CfgDetail
rs("CfgBody")=CfgBody
rs.update
rs.close
set rs=nothing
end sub


sub Del()
CfgName=requestA("CfgName")
conn.execute (" delete mailCfg where CfgName ='"&CfgName&"' ")
response.write "删除成功"
end sub

sub List()
username=request("username")
opname=request("opname")
optype=request("optype")
issucc=request("issucc")

sql = "select * from MailCfg "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

%>
<br>
<img src='../images/dotdb.gif' width='10' height='10'> 
<font color='#000000'>标识为"Sys"的配置为系统必须的配置,请认真填写,切勿删除</font><br>
<img src='../images/dotdb.gif' width='10' height='10'> 
<font color='#000000'>标识为"SysMail"的配置为系统默认的发信设置,第一行为标题,用坚线"|"结束</font><br>
<img src='../images/dotdb.gif' width='10' height='10'> 
<font color='#000000'>标识为"SysCfg"的配置为系统默认的发信服务器设置,必须正确填写才能发信</font><br>
<img src='../images/dotdb.gif' width='10' height='10'> 
<font color='#000000'>邮件内容中可以使用"TableUser+字段名"表示取用户表中的信息,"TableUserM+字段名"管理用户表中的信息,"TableUserOrder+字段名"表示取订单表中的信息.</font><br>
<img src='../images/dotdb.gif' width='10' height='10'> 
<font color='#000000'>可以自定义参数并在邮件内容中使用</font><br>
<br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=90% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' align="center" colspan="10"><b>邮件模板管理</b></td></tr>
<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>名称</td><td class='color01' bgcolor='#efefef'>参数值</td><td class='color01' bgcolor='#efefef'>描述</td><td class='color01' bgcolor='#efefef'>操作</td></tr>

<% 
i=1
do while not rs.eof %> 
<tr><td><%=i%></td><td><a href="mailCfg.asp?act=Edit_Pre&CfgName=<%=rs("CfgName")%>"><%=rs("CfgName")%>&nbsp;</a></td><td><%=left(rs("CfgBody"),20)%>&nbsp;</td><td><%=left(rs("CfgDetail"),20)%>&nbsp;</td><td><a href="mailCfg.asp?act=Del&CfgName=<%=rs("CfgName")%>"  onclick="return window.confirm('该操作结果不可恢复,你确实要执行该操作吗?')">删除</a>&nbsp;|&nbsp;<a href="mailCfg.asp?act=Edit_Pre&CfgName=<%=rs("CfgName")%>">修改</a></td></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          
		  loop                                                                    
           %>	
		   <form action="MailCfg.asp">
<tr><td align="center" colspan="10">
<input type="Hidden" name="act" value="Add_Pre">
<input type="Submit" value="增加邮件配置"></td></tr>
</form>
</table>
<%
rs.close                                                                                                
set rs=nothing                                                                                                
end sub

sub Form()
if request("act")="Edit_Pre" then
	set rs = conn.execute("select * from MailCfg where CfgName='" & requestA("CfgName") &"'")
	if not rs.eof then
		CfgName = rs("CfgName")
		CfgDetail = rs("CfgDetail")
		CfgBody = rs("CfgBody")
	end if
	rs.close
	NextAct = "Edit"
else
	NextAct = "Add"
end if
%>
<br><br><br>
<form method='POST' name="F1" action='MailCfg.asp' >
<input type="Hidden" name="act" value="<%=NextAct%>">


    <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=70% class='size09' align='center'>
     <tr>
		<td  colspan="2" bgcolor='#efefef' align="center" class='color01'><b>邮件配置管理</b></td>
		
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>配置名称*</td>
		<td >
		
<input type='text' class='form' name='CfgName' <%if NextAct="Edit" then response.write  "readonly='true'" %> size='40' maxlength="50" value='<%=CfgName%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>配置描述</td>
		<td>
<input type='text' class='form' name='CfgDetail'  size='40' maxlength="50"  value='<%=CfgDetail%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>配置值*</td>
		<td >
		
		<textarea name='cfgBody' rows='15' cols='60'><%=CfgBody%></textarea>
		</td>
	</tr>
	
</table>
<p align='center'><input type='submit' value='确  定' name='B1'></p>
</form> 
<%
end sub
%>
 <!--#include file="../inc/bottom2.asp"-->