email_config.asp

网络办公系统源码

<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
	if  ChkAdmin("oa_configmail")=False then
  		call message("您没有配置邮件的权限","back")
   		call endexit()
	end if

sql="select count(id) as num from oa_mailconfig where companyid="&session("companyid")
set rs=conn.execute(sql)
num=rs(0)
rs.close
set rs=nothing

action = Request("action")
if action = "save" then
    MailFrom=trim(request("MailFrom"))
    MailServer=trim(request("MailServer"))
    MailUserName=trim(request("MailUserName"))
	MailPassword=trim(request("MailPassword"))
	leadermail=trim(request("leadermail"))
	mids=request.Form("mid")
	if num=1 then
	 upsql="Update oa_mailconfig set MailFrom='"&MailFrom&"',MailServer='"&MailServer&"',MailUserName='"&MailUserName&"',"& _
			" MailPassword='"&MailPassword&"',leadermail='"&leadermail&"' Where Id="&mids
			Call ExeSql(upsql)
	else
			insql="insert into oa_mailconfig(MailFrom,MailServer,MailUserName,MailPassword,leadermail,companyid) values('"&MailFrom&"','"&MailServer&"','"&MailUserName&"','"&MailPassword&"','"&leadermail&"',"&session("companyid")&")"
			call ExeSql(insql)
	end if
		call message("邮件设置更新成功","?")
		call endexit()
end if

%>
<link href="../img/Style.css" type=text/css rel=stylesheet>
<table width="96%"  border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
	<form name=myform method="POST" action="?action=save">
	<tr>
		<th width="100%" align="center"> 邮件设置</th>
	</tr>
	
	<tr>
	<td class="TableRow1">	
	<fieldset style="cursor: default">
	<legend>&nbsp;邮件设置</legend>
	<%
	PSql="select * from oa_mailconfig Where companyid="&session("companyid")
	Call OpenRs(rs,PSql,1)
	if not rs.eof then
%>

	<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
	
		<tr>
		  <td align="right" class="TableRow1"><span class="divbody">领导Email：</span></td>
		  <td class="TableRow1"><input name="leadermail" type="text" id="leadermail" value="<%=trim(rs("leadermail"))%>" size="30">
		    用于内部员工向领导发送</td>
		  </tr>
		<tr>
			<td width="19%" align="right" class="TableRow1"><div class="divbody">系统管理员Email：</div></td>
			<td class="TableRow1" width="81%">
			  <input type="text" name="MailFrom" size="30" value="<%=trim(rs("MailFrom"))%>">
		    给用户发送邮件时，显示的来源Email信息</td>
		</tr>
	
		<tr>
		  <td width="19%" align="right" class="TableRow1">SMTP Server地址：</td>
		  <td width="81%" class="TableRow1"><input type="text" name="MailServer" size="30" value="<%=trim(rs("MailServer"))%>"></td>
	  </tr>
		<tr>
		  <td align="right" class="TableRow1">邮件登录用户名：</td>
		  <td class="TableRow1"><input type="text" name="MailUserName" size="30" value="<%=trim(rs("MailUserName"))%>"></td>
		  </tr>
		<tr>
		  <td align="right" class="TableRow1"><span class="divbody">邮件登录密码：</span></td>
		  <td class="TableRow1"><input type="password" name="MailPassword" size="30" value="<%=trim(rs("MailPassword"))%>"></td>
		  </tr>
		<tr align="center">
		  <td colspan="2" class="TableRow1"><div class="divbody"></div>		    <span class="TableRow2">
		    <input type="submit" value="保存设置" name="B1" class=Button>
            <input name="mid" type="hidden" id="mid2" value="<%=rs("id")%>">
		    </span></td>
		  </tr>		
	</table>
	<%
	else
	%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
	
		<tr>
		  <td align="right" class="TableRow1"><span class="divbody">领导Email：</span></td>
		  <td class="TableRow1"><input name="leadermail" type="text" id="leadermail" size="30">
		    用于内部员工向领导发送</td>
		  </tr>
		<tr>
			<td width="19%" align="right" class="TableRow1"><div class="divbody">系统管理员Email：</div></td>
			<td class="TableRow1" width="81%">
			  <input type="text" name="MailFrom" size="30">
		    给用户发送邮件时，显示的来源Email信息</td>
		</tr>
	
		<tr>
		  <td width="19%" align="right" class="TableRow1">SMTP Server地址：</td>
		  <td width="81%" class="TableRow1"><input type="text" name="MailServer" size="30"></td>
	  </tr>
		<tr>
		  <td align="right" class="TableRow1">邮件登录用户名：</td>
		  <td class="TableRow1"><input type="text" name="MailUserName" size="30"></td>
		  </tr>
		<tr>
		  <td align="right" class="TableRow1"><span class="divbody">邮件登录密码：</span></td>
		  <td class="TableRow1"><input type="password" name="MailPassword" size="30"></td>
		  </tr>
		<tr>
		  <td align="right" class="TableRow1"><div class="divbody"></div></td>
		  <td class="TableRow1"><span class="TableRow2">
		    <input type="submit" value="保存设置" name="B12" class=Button>
		  </span></td>
	  </tr>		
	</table>
<%end if%>
<span class="TableRow2"></span>    
	</fieldset>	</td>
	</tr>
	<tr>
	  <td align="center" class="TableRow2">&nbsp;</td>
	</tr>
	</form>
</table>
<%
Call closeconn()
%>