admin_email_messages.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" -->
<%
strsql = "Select * from " & strTablePrefix & "email_config where m_type = 'newreply'"

set drs = my_conn.execute(strsql)
	strTopicAuthorSubject = drs("m_subject")
    strTopicAuthorMessage = drs("m_message")


strsql = "Select * from "&strTablePrefix&"email_config where "&strTablePrefix&"email_config.m_type='replynot'"

set drs = my_conn.execute(strsql)
	strReplyNotSubject = drs("m_subject")
    strReplyNotMessage = drs("m_message")

%>
	<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>

<table border=0 width="<% Response.Write strTableWidth %>" align="center" cellspacing=1 cellpadding=3 bgcolor="<%=strTableBorderColor%>">
   <tr>
	<td bgcolor="<% =strHeadCellColor %>" colspan="4"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>邮件信息设置</B></font></td>
   </tr>
	<tr>
    	<td bgcolor="<%=strForumCellColor%>" align="left" colspan="4">
        下面是论坛名称、文章主题等等的快捷代码列表:<br></td></tr>
        <tr><td bgcolor="<%=strForumCellColor%>" width="25%">[forum_title]</td><td bgcolor="<%=strForumCellColor%>" colspan="3">论坛名称.</td></tr>
        <tr><td bgcolor="<%=strForumCellColor%>">[user_name]</td><td bgcolor="<%=strForumCellColor%>" colspan="3">会员名字.</td></tr>
        <tr><td bgcolor="<%=strForumCellColor%>">[topic_title]</td><td bgcolor="<%=strForumCellColor%>" colspan="3">贴子主题.</td></tr>
        <tr><td bgcolor="<%=strForumCellColor%>">[link]</td><td bgcolor="<%=strForumCellColor%>" colspan="3">主题连接地址.</td></tr>
        <tr><td bgcolor="<%=strForumCellColor%>">[posted_by]</td><td bgcolor="<%=strForumCellColor%>" colspan="3">主题作者.</td></tr>
		<tr><td colspan=4 bgcolor="<%=strForumCellColor%>"><font color="red"><b>注意:</b> [forum_title] 只能放在信件标题中...</font></td></tr>
    </tr>
</table>
<br>
<table border=0 width="<% Response.Write strTableWidth %>" align="center" cellspacing=1 cellpadding=3 bgcolor="<%=strTableBorderColor%>">
	<tr>
		<td bgcolor="<%=strHeadCellColor%>" width="50%" ><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>主题作者回复通知</b></font></td>
		<td bgcolor="<%=strHeadCellColor%>" width="50%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>回复者请求的消息通知</b></font></td>				
    </tr>
    <tr>
    	<td bgcolor="<%=strForumCellColor%>">当有回复时通过email通知作者。</td>
		<td bgcolor="<%=strForumCellColor%>">这个是给那些回复这个主题的人的，并向他发出通知。</td>
	</tr>
<td bgcolor="<%=strForumCellColor%>">
		<table>
        <form method="post" action="post_email_config.asp">
    	<tr>
      		<th align="left" valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">标题：</font></th>
      		<td><input type="text" name="tsubject" size="40" maxlength="100" value="<%=strTopicAuthorSubject%>"></td>
    	</tr>
    	<tr>
      		<th align="left" valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">内容：</font></th>
      		<td><textarea name="tmessage" cols="46" rows="10" wrap="virtual"><%=strTopicAuthorMessage%></textarea></td>
    	</tr>
    	<tr>
    		<td colspan=2 align="right"><input type="submit" value=" 修 改 "></td>
    	</tr>
		</table>
        </td>
		<td bgcolor="<%=strForumCellColor%>">
			<table>

		    <tr>
		      <th align="left" valign="top">标题：</th>
		      <td><input type="text" name="rsubject" size="40" maxlength="100" value="<%=strReplyNotSubject%>"></td>
		    </tr>
		    <tr>
		      <th align="left" valign="top">内容：</th>
		      <td><textarea name="rmessage" cols="46" rows="10" wrap="virtual"><%=strReplyNotMessage%></textarea></td>
		    </tr>
		    <tr>
		    	<td colspan=2 align="right"><input type="submit" value=" 修 改 "></td>
		    </tr>
			</form>
			</table>
		</td>
    </tr>
</table>
<!--#INCLUDE file="inc_footer.asp" -->
<% Else %>
<% Response.Redirect "admin_login.asp" %>
<% End IF %>