⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_config_email.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
字号:
🔍 
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线官方网站
'#	      http://BBS.ChinaXP.Net     中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;邮件发送基本设置
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>

<%
	if Request.Form("Method_Type") = "Write_Configuration" then
		Err_Msg = ""
		if Request.Form("strMailServer") = "" and Request.Form("strEmail") = "1" then
			Err_Msg = Err_Msg & "<li>你必须输入邮件主机位址！</li>"
		end if
		if ((lcase(left(Request.Form("strMailServer"), 7)) = "http://") or (lcase(left(Request.Form("strMailServer"), 8)) = "https://") or Request.Form("strMailServer") = "") and Request.Form("strEmail") = "1" then
			Err_Msg = Err_Msg & "<li>不要在邮件主机位址前加上 <b>http://</b>, <b>https://</b> or <b>file://</b></li>"
		end if
		if Request.Form("strSender") = "" then
			Err_Msg = Err_Msg & "<li>你必须输入管理员的电子邮件位址</li>"
		else
			if EmailField(Request.Form("strSender")) = 0 and Request.Form("strSender") <> "" then
				Err_Msg = Err_Msg & "<li>你必须输入合法的管理员电子邮件地址</li>"
			end if
		end if
	
		if Err_Msg = "" then

			'## Forum_SQL
			strSql = "UPDATE " & strTablePrefix & "CONFIG "
			strSql = strSql & " SET C_STREMAIL                 = " & Request.Form("strEmail") & ""
			strSql = strSql & ",    C_STRMAILMODE              = '" & Request.Form("strMailMode") & "'"
			if Request.Form("strMailServer") <> "" then
				strSql = strSql & ",    C_STRMAILSERVER            = '" & Request.Form("strMailServer") & "'"
			end if
			if Request.Form("strSender") <> "" then
				strSql = strSql & ",    C_STRSENDER                = '" & Request.Form("strSender") & "'"
			end if
			strSql = strSql & ",    C_STRUNIQUEEMAIL           = " & Request.Form("strUniqueEmail") & ""
			strSql = strSql & ",    C_STRLOGONFORMAIL          = " & Request.Form("strLogonForMail") & ""
		
			my_Conn.Execute(strSql)
			Application(strCookieURL & "ConfigLoaded") = ""

%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">邮件发送设定已经更新完毕！</font></p>
<meta http-equiv="Refresh" content="2; URL=admin_home.asp">

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">修改完成！</font></p>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_home.asp">回到管理中心</font></a></p>
<%		else %>
	<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你输入的资料有问题或没有填写完整</font></p>

	<table align=center border=0>
	  <tr>
	    <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
		<ul>
		<% =Err_Msg %>
		</ul>
	    </font></td>
	  </tr>
	</table>

	<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">请返回重新输入</a></font></p>
<%		end if %>
<%	else %>
<form action="admin_config_email.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<table border="0" cellspacing="1" cellpadding="4" align=center bgcolor="<% =strPopUpBorderColor %>">
  <tr valign="top">
    <td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>邮件发送设定</b></font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">邮件服务器模式：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    开启：<input type="radio" class="radio" name="strEmail" value="1" <% if lcase(strEmail) <> "0" then Response.Write("checked") %>>
    关闭：<input type="radio" class="radio" name="strEmail" value="0" <% if lcase(strEmail) = "0" then Response.Write("checked") %>>
    <select name="strMailMode">
      <option value="aspmail"<% if (lcase(strMailMode)="aspmail" or lcase(MailMode)="aspmail") then Response.Write(" selected") %>>ASPMail</option>
      <option value="aspemail"<% if (lcase(strMailMode)="aspemail" or lcase(MailMode)="aspemail") then Response.Write(" selected") %>>ASPEMail</option>
      <option value="aspqmail"<% if (lcase(strMailMode)="aspqmail" or lcase(MailMode)="aspqmail") then Response.Write(" selected") %>>ASPQMail</option>
      <option value="cdonts"<% if (lcase(strMailMode)="cdonts" or lcase(MailMode)="cdonts") then Response.Write(" selected") %>>CDONTS</option>
      <option value="chilicdonts"<% if (lcase(strMailMode)="chilicdonts" or lcase(MailMode)="chilicdonts") then Response.Write(" selected") %>>Chili!Mail</option>
      <option value="dkqmail"<% if (lcase(strMailMode)="dkqmail") then Response.Write(" selected") %>>dkQMail</option>
      <option value="geocel"<% if (lcase(strMailMode)="geocel" or lcase(MailMode)="geocel") then Response.Write(" selected") %>>GeoCel</option>
      <option value="iismail"<% if (lcase(strMailMode)="iismail" or lcase(MailMode)="iismail") then Response.Write(" selected") %>>IISMail</option>
      <option value="jmail"<% if (lcase(strMailMode)="jmail" or lcase(MailMode)="jmail") then Response.Write(" selected") %>>JMail</option>
      <option value="smtp"<% if (lcase(strMailMode)="smtp" or lcase(MailMode)="smtp") then Response.Write(" selected") %>>SMTP</option>
    </select>
    <a href="JavaScript:openWindow3('pop_config_help.asp#email')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">邮件服务器地址：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type="text" name="strMailServer" size="25" value="<% =strMailServer %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#mailserver')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">论坛管理员邮件地址：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type="text" name="strSender" size="25" value="<% =strSender %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#sender')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">邮件地址不得重复注册：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    开启：<input type="radio" class="radio" name="strUniqueEmail" value="1" <% if strUniqueEmail = "1" then Response.Write("checked") %>>
    关闭：<input type="radio" class="radio" name="strUniqueEmail" value="0" <% if strUniqueEmail <> "1" then Response.Write("checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#UniqueEmail')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">发送电子邮件：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    开启：<input type="radio" class="radio" name="strLogonForMail" value="1" <% if strLogonForMail = "1" then Response.Write("checked") %>>
    关闭：<input type="radio" class="radio" name="strLogonForMail" value="0" <% if strLogonForMail <> "1" then Response.Write("checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#LogonForMail')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="submit" value="提交设置" id="submit1" name="submit1"> <input type="reset" value="重新设置" id="reset1" name="reset1"></td>
  </tr>
</table>
</form>
</font>
<%	end if %>
<!--#INCLUDE file="inc_footer.asp" -->
<% Else %>
<% Response.Redirect "admin_login.asp" %>
<% End IF %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -