<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%Session.CodePage=936%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/Commoncode.asp"-->
<!--#include file="../../FCKeditor/fckeditor.asp" -->
<!--#include file="../checkvalid.asp"-->
<%If Not FRAdminLevel(111) Then Call ErrorMsg()
Action=trim(Request("Action"))
sign=Replace_Text(trim(Request("sign")))
if Action="s" then
m_tit=request.form("m_tit")
m_con=request.form("m_con")
if m_tit="" then
response.write"<SCRIPT language=JavaScript>alert('您没有填写邮件标题，请返回重新填写！');"
response.write"javascript:history.go(-1)</script>"
response.end
end if
conn.execute("update job_mailtemp set m_tit='"&m_tit&"',m_con='"&m_con&"' where m_sign='"&sign&"'")
end if%>
<HTML><HEAD><TITLE>嘉缘人才管理系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="../css/style<%=sk%>.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../inc/input.js"></script></HEAD>
<script LANGUAGE="JavaScript">
function insertmailsubject(labelstr)
{
document.form.m_tit.focus();
var sel=document.selection;
if (sel!=null) 
   {
   var mg=sel.createRange();
   if (mg!=null)
        {
        mg.text=labelstr;
        }
   }
}
function insertText(labelstr)
{
	var oEditor =FCKeditorAPI.GetInstance("m_con"); 
	if(oEditor&&oEditor.EditorWindow)
	{ 
	oEditor.InsertHtml(labelstr); 
	} 
}
</script>
<BODY>
<%sql="select * from job_mailtemp"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then%>
 <TABLE cellSpacing=1 cellPadding=2 width="100%" align=center border=0 class="tableBorder">
        <TBODY>
        <TR >
          <Th height=25 colspan="4">网站邮件模版设置</Th>
        </TR>
        <%do while not rs.eof%>
        <%if Action="m" and sign=rs("m_sign") then%><FORM id=form name=form action="Admin_mailtemp.asp?Action=s&sign=<%=rs("m_sign")%>" method=post><%end if%>
        <TR><a name="<%=rs("m_sign")%>"></a>
          <TD width="15%"><%=rs("m_info")%>：<br>标识符:<%=rs("m_sign")%></TD>
       <TD width="70%" colspan="2"><%if Action="m" and sign=rs("m_sign") then%>
             标题：
               <input name="m_tit" type="text" id="m_tit" value="<%=rs("m_tit")%>" size="50" maxlength="200"> 
             可选标签：<a style="cursor:hand" onClick="javascript:insertmailsubject('{$FR_会员用户名}');">会员用户名</a> | <a style="cursor:hand" onClick="javascript:insertmailsubject('{$FR_会员名称}');">会员名称</a><br>
            内容：<%
			Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = InstallDir&FR_HR_Editor
oFCKeditor.ToolbarSet = "ForAdmin"
oFCKeditor.Config("SkinPath") = InstallDir&FR_HR_Editor&"editor/skins/silver/"
oFCKeditor.Width = "100%"
oFCKeditor.Height = "250"
oFCKeditor.Value = rs("m_con")
oFCKeditor.Create "m_con"%><br>
可选标签：<a style="cursor:hand" onClick="javascript:insertText('{$FR_会员用户名}');">会员用户名</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_会员名称}');">会员名称</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_网站名称}');">网站名称</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_网站标题}')">网站标题</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_网站网址}')">网站网址</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_LOGO地址}')">LOGO地址</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_网站关键字}')">网站关键字</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_网站描述}')">网站描述</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_联系人}')">联系人</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_联系地址}')">联系地址</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_联系电话}')">联系电话</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_联系传真}')">联系传真</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_管理员名称}')">管理员名称</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_管理员邮箱}')">管理员邮箱</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_系统目录}')">系统目录</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_管理员目录}')">管理员目录</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_页尾导航}')">页尾导航</a> | <a style="cursor:hand" onClick="javascript:insertText('{$FR_网站版权}')">网站版权</a><%else%>邮件标题：<br>
            <input name="m_tit" type="text" disabled id="m_tit" value="<%=rs("m_tit")%>" size="50" maxlength="200">
          <%end if%></TD>
          <TD width="15%"><div align="center"><%if Action="m" and sign=rs("m_sign") then%>
            <INPUT name=cmdSave type="submit" class="inputs" id=cmdSave value="保存设置">
             <br><br>
            <INPUT name=cmdSave type="button" class="inputs" id=cmdSave value="取消编辑" onClick="location.href='admin_mailtemp.asp'">
          <%else%><a href="Admin_mailtemp.asp?Action=m&sign=<%=rs("m_sign")%>#<%=rs("m_sign")%>">编辑内容</a><%end if%></div></TD>
        </TR><%if Action="m" and sign=rs("m_sign") then%></FORM><%end if%>
        <%rs.movenext
	loop%>
</TABLE>
<%end if
rs.close
set rs=nothing
Call CloseConn()
%>
<!--#include file="../inc/copy.asp" -->
</body>
</html>