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

📄 admin_config_system.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 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" -->

	<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("strTitleImage") = "" then
			Err_Msg = Err_Msg & "<li>你必须输入论坛logo地址</li>"
		end if
		if Request.Form("strHomeURL") = "" then
			Err_Msg = Err_Msg & "<li>你必须输入网站首页（相对路径或完整连结）</li>"
		end if
		if Request.Form("strForumURL") = "" then
			Err_Msg = Err_Msg & "<li>你必须输入论坛地址</li>"
		end if
		if (left(lcase(Request.Form("strForumURL")), 7) <> "http://" and left(lcase(Request.Form("strForumURL")), 8) <> "https://") and Request.Form("strHomeURL") <> "" then
			Err_Msg = Err_Msg & "<li>你必须在连接前加上 <b>http://</b>, <b>https://</b> or <b>file://</b></li>"
		end if
		if (right(lcase(Request.Form("strForumURL")), 1) <> "/") then
			Err_Msg = Err_Msg & "<li>连接地址必须以 <b>/</b> 为结尾</li>"
		end if
		if Request.Form("strAuthType") <> strAuthType and strAuthType = "db" then
			mLev = cint(ChkUser2(Request.Cookies(strUniqueID & "User")("Name"), Request.Cookies(strUniqueID & "User")("Pword")))
						
			if not(mLev = 4 and getMemberNumber(Request.Cookies(strUniqueID & "User")("Name")) = 1) then
				Err_Msg = Err_Msg & "<li>只有管理员才能修改论坛的授权模式</li>"
			else
				call NTauthenticate()
				if Session(strCookieURL & "userid") = "" then
					Err_Msg = Err_Msg & "<li>使用论坛前你必须先启动服务器的非匿名存取模式</li>"
				else	
					strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
					strSql = strSql & " SET " & strMemberTablePrefix & "MEMBERS.M_USERNAME = '" & Session(strCookieURL & "userid") & "'"
					strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & Request.Cookies(strUniqueID & "User")("Name") & "'; "

					my_Conn.Execute(strSql)			
					call NTauthenticate()
					call NTUser()	
				end if
			end if
		end if
		if (Request.Form("strAuthType") <> strAuthType) and strAuthType = "nt" then
			mLev = cint(ChkUser2(Request.Cookies(strUniqueID & "User")("Name"), Request.Cookies(strUniqueID & "User")("Pword")))
			if not(mLev = 4 and getMemberNumber(Request.Cookies(strUniqueID & "User")("Name")) = 1) then
				Err_Msg = Err_Msg & "<li>只有管理员才能修改论坛的授权模式</li>"
			else
				Session(strCookieURL & "Approval") = ""
			end if	
		end if
		if Err_Msg = "" then
			

			'## Forum_SQL
			strSql = "UPDATE " & strTablePrefix & "CONFIG "
			strSql = strSql & " SET C_STRFORUMTITLE = '" & ChkString(Request.Form("strForumTitle"),"title") & "'"
			strSql = strSql & ",    C_STRCOPYRIGHT = '" & ChkString(Request.Form("strCopyright"),"title") & "'"
			strSql = strSql & ",    C_STRTITLEIMAGE = '" & ChkString(Request.Form("strTitleImage"),"url") & "'"
			strSql = strSql & ",    C_STRHOMEURL = '" & ChkString(Request.Form("strHomeURL"),"url") & "'"
			strSql = strSql & ",    C_STRFORUMURL = '" & ChkString(Request.Form("strForumURL"),"url") & "'"
			strSql = strSql & ",    C_STRAUTHTYPE = '" & Request.Form("strAuthType") & "'"
			strSql = strSql & ",    C_STRSETCOOKIETOFORUM = " & Request.Form("strSetCookieToForum")
' ###			strSql = strSql & ",    C_STRGFXBUTTONS = " & Request.Form("strGfxButtons")
' ###			strSql = strSql & ",    C_STRSHOWIMAGEPOWEREDBY = " & Request.Form("strShowImagePoweredBy")
			strSql = strSql & ",    C_STRBANNER = " & Request.Form("strBanner")
			strSql = strSql & ",    C_STRBANNERURL = '" & Trim(Request.Form("strBannerURL")) & "'"
			strSql = strSql & " WHERE CONFIG_ID = " & 1
			my_Conn.Execute (strSql)
			Application(strCookieURL & "ConfigLoaded") = ""

%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">论坛基本设置完毕</font></p>
<meta http-equiv="Refresh" content="0; 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_system.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="<% =strHeaderFontSize %>" 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 %>">
    <input type="text" name="strForumTitle" size="25" value="<% if strForumTitle <> "" then Response.Write(strForumTitle) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#forumtitle')"><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="strCopyright" size="25" value="<% if strCopyright <> "" then Response.Write(strCopyright) else Response.Write("&copy; 2000 Snitz Communications") %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#copyright')"><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 %>">论坛logo图片地址：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type="text" name="strTitleImage" size="25" value="<% if strTitleImage <> "" then Response.Write(strTitleImage) else Response.Write("logo_snitz_forums_2000.gif") %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#titleimage')"><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>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type="text" name="strHomeURL" size="25" value="<% if strHomeURL <> "" then Response.Write(strHomeURL) else '## Do Nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#homeurl')"><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>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type="text" name="strForumURL" size="25" value="<% if strForumURL <> "" then Response.Write(strForumURL) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#forumurl')"><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 %>"><% if strVersion <> "" then Response.Write("[<b>"& strForumName & " " & strVersionNumber & "</b>]") else Response.Write("<b>[Couldn't read version info..]</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 %>">
    DB: <input type="radio" class="radio" name="strAuthType" value="db" <% if strAuthType = "db" then Response.Write("checked") %>>
    NT: <input type="radio" class="radio" name="strAuthType" value="nt" <% if strAuthType = "nt" then Response.Write("checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#AuthType')"><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 %>">设定 Cookie 到：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    讨论区：<input type="radio" class="radio" name="strSetCookieToForum" value="1" <% if strSetCookieToForum = "1" then Response.Write("checked") %>>
    网站：<input type="radio" class="radio" name="strSetCookieToForum" value="0" <% if strSetCookieToForum = "0" then Response.Write("checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#SetCookieToForum')"><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="strGfxButtons" value="1" <% if strGfxButtons = "1" then Response.Write("checked") %>>
    关闭：<input type="radio" class="radio" name="strGfxButtons" value="0" <% if strGfxButtons = "0" then Response.Write("checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#GfxButtons')"><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="strShowImagePoweredBy" value="1" <% if strShowImagePoweredBy = "1" then Response.Write("checked") %>>
    文字：<input type="radio" class="radio" name="strShowImagePoweredBy" value="0" <% if strShowImagePoweredBy = "0" then Response.Write("checked") %>></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="strBanner" value="1" <% if strBanner = 1 then Response.Write("checked") %>>
    关闭: <input type="radio" class="radio" name="strBanner" value="0" <% if strBanner = 0 then Response.Write("checked") %>>
    </font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">广告条代码：</font></td></td>
    <td bgColor="<% =strPopUpTableColor %>"><textarea cols="50" name="strBannerUrl" rows="5" wrap="VIRTUAL"><% =Trim(strBannerUrl)%></textarea>
  </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 + -