post_email_config.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><BR><BR><BR>
<%
	strEmailMessage = ""
	str_m_type = "newreply"
	strEmailSubject = request.form("tsubject")
	strEmailMessage = request.form("tmessage")
	if strEmailMessage <> "" then
		strsql = "Update " & strTablePrefix & "email_config Set "
	    strsql = strsql & "m_subject='" & strEmailSubject & "', "
	    strsql = strsql & "m_message='" & strEmailMessage & "' "
	    strsql = strsql & "Where m_type='" & str_m_type & "'"
	    my_conn.execute(strsql)
	end if
	strEmailMessage = ""
	str_m_type = "replynot"
	strEmailSubject = request.form("rsubject")
	strEmailMessage = request.form("rmessage")
	if strEmailMessage <> "" then
		strsql = "Update " & strTablePrefix & "email_config Set "
	    strsql = strsql & "m_subject='" & strEmailSubject & "', "
	    strsql = strsql & "m_message='" & strEmailMessage & "' "
	    strsql = strsql & "Where m_type='" & str_m_type & "'"
	    my_conn.execute(strsql)
	end if


    Response.Write("<p><center>邮件通知信息已经修改完毕！<BR><BR><a href=""admin_email_messages.asp"">点击这里返回</a></center><p>")
%>
<meta http-equiv="refresh" content="1; url=admin_email_messages.asp">
<BR><BR>
<!--#INCLUDE file="inc_footer.asp" -->
<% Else %><% Response.Redirect "admin_login.asp" %><% End IF %>