<!--#include file="../include/Conn.jsp"-->
<!--#include file="../MailList/MailListConst.jsp" -->
<!--#include file="../Include/Char.jsp" -->
<!--#include file="Admin_IsLogin.jsp" -->
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
   sql="select MailList_Config from T_Config where F_ID=1"
   mMailListInfo = checkStr(Request("txtValue0"))&"|"&checkStr(Request("txtValue1"))&"|"&checkStr(Request("txtValue2"))&"|"&checkStr(Request("txtValue3"))&"|"&checkStr(Request("txtValue4"))&"|"&checkStr(Request("txtValue5"))&"|"&checkStr(Request("txtValue6"))&"|"&checkStr(Request("txtValue7"))&"|"&checkStr(Request("txtValue8"))&"|"&checkStr(Request("txtValue9"))&"|"&checkStr(Request("txtValue10"))&"|"&checkStr(Request("txtValue11"))&"|"&checkStr(Request("txtValue12"))&"|"
   mSql = "Update MailList_Config Set F_MailListInfo='"& mMailListInfo &"' Where F_ID=1"
   conn.Execute(mSql)
   Response.Redirect "Admin_MailConfig.jsp"
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
</head>
<BODY bgcolor="D6DFF7" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE width=100% height=96% border=0 align="center" cellPadding=0 
cellSpacing=0 >
  <TBODY>
    <TR> 
      <TD width="100%" valign="top" align="center">
	  <%
      admin_flag=",3|2|0,"
      if instr(session("flag"),admin_flag)=0 or isnull(session("flag"))=true then
         Response.write "<br><br><br><br><b><font color=red>对不起，您没有管理本页面的权限!</font></B>"
		 Response.end
	  end if
      %>
<form name="form1" method="post" action="Admin_MailConfig.jsp">
          <br>
          <table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
         <tr> 
             <th height=22 colspan="7" align="center" sytle="line-height:150%">邮件基本设置</th>
         </tr>
		    <tr> 
              <td class=forumRow height="20" width="21%">发送人姓名:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <input type="text" name="txtValue0" size="35" class=INPUT value="<%=MailListInfo(0)%>"> 
                <label for=HighLight ></label> </td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">发送人信箱:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <input type="text" name="txtValue1" class=INPUT value="<%=MailListInfo(1)%>" size="35"> 
              </td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">默认邮件主题:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <input type="text" name="txtValue2" size="66" class=INPUT value="<%=MailListInfo(2)%>"> 
              </td>
            </tr>
            <tr> 
              <td class=forumRow width="21%" height="20">广告签名:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <textarea name="txtValue3" cols="66" class="INPUT" rows="4"><%=MailListInfo(3)%></textarea> 
              </td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">订阅时的欢迎信息:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <textarea name="txtValue4" cols="66" class="INPUT" rows="6"><%=MailListInfo(4)%></textarea> 
              </td>
            </tr>
            <tr> 
              <td class=forumRow width="21%" height="20">确认订阅的欢迎信息:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <textarea name="txtValue5" cols="66" class="INPUT" rows="6"><%=MailListInfo(5)%></textarea></td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">确认信中的内容:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <textarea name="txtValue6" cols="66" class="INPUT" rows="6"><%=MailListInfo(6)%></textarea> 
              </td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">退订时显示的信息:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <textarea name="txtValue7" cols="66" class="INPUT" rows="5"><%=MailListInfo(7)%></textarea> 
              </td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">使用语言:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> 
			  <input type="radio" name="txtValue8" value="0" <%if cint(MailListInfo(8))=0 then response.write "checked" end if%>>
                简体中文
               <input type="radio" name="txtValue8" value="1" <%if cint(MailListInfo(8))=1 then response.write "checked" end if%>>
                繁体中文 
                <input type="radio" name="txtValue8" value="2" <%if cint(MailListInfo(8))=2 then response.write "checked" end if%>>
                英语</td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">邮件发送组件:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%">
			  <input type="radio" name="txtValue9" value="0" <%if cint(MailListInfo(9))=0 then response.write "checked" end if%>>
                w3 Jmail (JMAIL)
<input type="radio" name="txtValue9" value="1" <%if cint(MailListInfo(9))=1 then response.write "checked" end if%>>
                AspEmail (ASPEMAIL)
<input type="radio" name="txtValue9" value="2" <%if cint(MailListInfo(9))=2 then response.write "checked" end if%>>
                CDONTS (WIN虚拟发信)</td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">邮件服务器地址:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"><input type="text" name="txtValue10" size="35" class=INPUT value="<%=MailListInfo(10)%>"></td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">邮件服务器登陆名称:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <input type="text" name="txtValue11" size="35" class=INPUT value="<%=MailListInfo(11)%>"> 
              </td>
            </tr>
            <tr> 
              <td class=forumRow height="20" width="21%">邮件服务器登陆密码:</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"><input type="password" name="txtValue12" size="35" class=INPUT value="<%=MailListInfo(12)%>"></td>
            </tr>
            
            <tr> 
              <td class=forumRow height="20" width="21%">&nbsp;</td>
              <td class=forumRowHighlight height="20" colspan="5" width="79%"> <input type="submit" name="Submit" value="提交" class=button> 
                <input type="reset" name="Submit2" value="重置" class=button> </td>
            </tr>
          </table>
		</form>
		</TD>
    </TR>
  </TBODY>
</TABLE>
</body>
</html>
<%call CloseDatabase()%>               
