admin_new_mem_pm.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<!--#INCLUDE FILE="inc_code.asp" -->

<script language="JavaScript">
<!--
function OpenPreview()
{
	//var curCookie = "strSignaturePreview=" + escape(document.Form1.strMessage.value);
	var curCookie = "strMessagePreview=" + escape(document.Form1.strMessage.value);
	document.cookie = curCookie;
	popupwin = window.open('pop_preview.asp', 'preview_page', 'scrollbars=yes,width=450,height=250')	
}
//-->
</script>
	<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>

<%
	Dim objDict
	Set objDict = Server.CreateObject("Scripting.Dictionary")
	set objRec = my_Conn.execute("SELECT * FROM " & strTablePrefix & "MODS WHERE M_NAME = 'NewMemPM'")

	while not objRec.EOF
	objDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value
	objRec.moveNext
	wend

	if Request.Form("Method_Type") = "Write_Configuration" then
		Err_Msg = ""

		if Err_Msg = "" then
			'## Forum_SQL
			objDict.Item("Admin") = Request.Form("strAdmin")
			objDict.Item("Subject") = Request.Form("strSubject")
			objDict.Item("Message") = Request.Form("strMessage")
			a = objDict.Keys
			b = objDict.Items

   			For i = 0 To objDict.Count -1 ' Iterate the array.

			strSql = "UPDATE " & strTablePrefix & "MODS "
			strSql = strSql & " SET M_VALUE ='" & b(i) & "'"
			strSQL = strSql & " WHERE M_NAME = 'NewMemPM' AND M_CODE = '" & a(i) & "' "
'			response.write strSQL
			my_Conn.Execute (strSql)
   			Next

			Application(strCookieURL & "ConfigLoaded") = ""
%>
<p align="center">
   <font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">
   设置已经更新!
   </font>
</p>

<p align="center">
   <font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">
   修改完成！
   </font>
</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
			strSql = "SELECT * FROM " & strTablePrefix & "CONFIG_NEWMEMPM "

'Response.Write strSql
'Response.End

%>
<form action="admin_new_mem_pm.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<input type="hidden" name="cookies" value="yes">

<table border="0" cellspacing="1" cellpadding="4" align=center bgcolor="<% =strPopUpBorderColor %>">
   <tr valign="top">
	<td bgcolor="<%=strHeadCellColor%>" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>发送欢迎词至新会员</B></font></td>
   </tr>
   <tr>
	<td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="left">
	<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">默认欢迎词发送者：</font>
	<input maxLength="50" name="strAdmin" value="<% if objDict.Item("Admin") <> "" then response.write(objDict.Item("Admin")) else response.write("Admin") %>" size="40">
	<a href="JavaScript:openWindow3('pop_config_help.asp#email')">
	<img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
	</td>
   </tr>
   <tr>
	<td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="left">
	<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">欢迎词标题：</font>
	<input maxLength="50" name="strSubject" value="<% if objDict.Item("Subject") <> "" then response.write(objDict.Item("Subject")) else response.write("Welcome to our forum") %>" size="40">
	<a href="JavaScript:openWindow3('pop_config_help.asp#email')">
	<img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
	</td>
   </tr>
   <tr>
	<td bgColor="<% =strPopUpTableColor %>" align="center"><textarea cols="80" name="strMessage" rows="15" wrap="VIRTUAL"><% if objDict.Item("Message") <> "" then response.write(objDict.Item("Message")) else response.write("No Welcome letter has been written. Type what you would like the user to see when they sign up for a new membership") %></textarea></td>
   </tr>
   <tr>
	<td bgColor="<% =strPopUpTableColor %>" align="center"><input name="Preview" type="button" value=" 预 览 " onclick="OpenPreview()">&nbsp;<input name="Reset" type="reset" value="全部清除"></td>
   </tr>
   <tr valign="top">
	<td bgColor="<% =strPopUpTableColor %>" align="center"><input type="submit" value="提交设置" id="submit1" name="submit1">&nbsp;<input type="reset" value="重新设置" id="reset1" name="reset1"></td>
   </tr>
</table>
</form>

<%	end if %>
    </td>
  </tr>
</table>
<!--#INCLUDE file="inc_footer.asp" -->
<% Else %>
<% Response.Redirect "admin_login.asp" %>
<% End IF %>