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

📄 pop_lock.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
字号:
🔍 
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	       http://bbs.ChinaXP.Net    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
select case Request.QueryString("mode")
	case "BestTopic"
		mLev = cint(ChkUser2(Request.Form("user"), Request.Form("Pass")))
		if mLev > 0 then	'## is Member
			if (chkForumModerator(Request.Form("FORUM_ID"), Request.Form("user")) = "1") _
			or (mLev = 4) _
			or (chkForumModerator(Request.Form("FORUM_ID"), Session(strCookieURL & "userid")) = "1") then

				'## Forum_SQL
				strSql = "Update " & strTablePrefix & "TOPICS "
				strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_BEST = 1 "
				strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.Form("TOPIC_ID")
				my_Conn.Execute (strSql) %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">该主题已被您设为精华！</font></p>
<%			Else %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没权限设置该主题为精华！</font><br>
				<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%			end if %>
<%		Else %>
			<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没权限设置该主题为精华！</font><br>
			<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%		end if

	case "CloseTopic"
		mLev = cint(ChkUser2(Request.Form("user"), Request.Form("Pass")))
		if mLev > 0 then  '## is Member
			if (chkForumModerator(Request.Form("FORUM_ID"), Request.Form("user")) = "1") _
			or (mLev = 4) _
			or (chkForumModerator(Request.Form("FORUM_ID"), Session(strCookieURL & "userid")) = "1") then

				'## Forum_SQL
				strSql = "Update " & strTablePrefix & "TOPICS "
				strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_STATUS = 0 "
				strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.Form("TOPIC_ID")
				my_Conn.Execute (strSql) %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">主题已被关闭！</font></p>
<%			Else %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没权限关闭主题！</font><br>
				<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%			end if %>
<%		Else %>
			<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没权限关闭主题！</font><br>
			<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%		end if

	case "LockedTop"
		'### 主题固定于顶端 #################################
		mLev = cint(ChkUser2(Request.Form("user"), Request.Form("Pass")))
		if mLev > 0 then  '## is Member
			if (chkForumModerator(Request.Form("FORUM_ID"), Request.Form("user")) = "1") _
			or (mLev = 4) _
			or (chkForumModerator(Request.Form("FORUM_ID"), Session(strCookieURL & "userid")) = "1") then

				'### Forum_SQL
				strSql = "Update " & strTablePrefix & "TOPICS SET "
					strSQL = strSql & strTablePrefix & "TOPICS.T_INPLACE = " & Request.Form("InPlace")
				strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.Form("TOPIC_ID")

				my_Conn.Execute (strSql) %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">主题已被固定于顶端！</font></p>
<%			Else %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没权限将一主题固定于顶端！</font><br>
				<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%			end if %>
<%		Else %>
			<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没权限将一主题固定于顶端！</font><br>
			<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%		end if

	case "CloseForum"

		mLev = cint(ChkUser2(Request.Form("user"), Request.Form("Pass")))
		if mLev > 0 then  '## is Member
			if (chkForumModerator(Request.Form("FORUM_ID"), Request.Form("user")) = "1") or (mLev = 4) or (chkForumModerator(Request.Form("FORUM_ID"), Session(strCookieURL & "userid")) = "1") then

				'## Forum_SQL
				strSql = "Update " & strTablePrefix & "FORUM "
				strSql = strSql & " SET " & strTablePrefix & "FORUM.F_STATUS = 0 "
				strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("FORUM_ID")

				my_Conn.Execute (strSql) %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">论坛已被锁定！</font></p>
<%			else %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你没权限关闭论坛！</font><br>
				<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%			end if %>
<%		else %>
			<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你没权限关闭论坛！</font><br>
			<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%		end if

	case "CloseCategory"

		mLev = cint(ChkUser(Request.Form("user"), Request.Form("Pass")))
		if mLev > 0 then  '## is Member
			if mLev = 4 then

				'## Forum_SQL
				strSql = "Update " & strTablePrefix & "CATEGORY "
				strSql = strSql & " SET " & strTablePrefix & "CATEGORY.CAT_STATUS = 0 "
				strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & Request.Form("CAT_ID")

				my_Conn.Execute (strSql) %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>分类已被锁定!</b></font></p>
<%			else %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你没权限关闭分类！</font><br>
				<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%			end if %>
<%		else %>
			<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你没权限关闭分类！</font><br>
			<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%		end if

	case "LockMember"

		mLev = cint(ChkUser(Request.Form("user"), Request.Form("Pass")))
		if mLev > 0 then  '## is Member
			if mLev = 4 then

				'## Forum_SQL
				strSql = "Update " & strMemberTablePrefix & "MEMBERS "
				strSql = strSql & " SET " & strMemberTablePrefix & "MEMBERS.M_STATUS = 0 "
				strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & Request.Form("MEMBER_ID")

				my_Conn.Execute (strSql) %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>会员已被锁定!</b></font></p>
<%			else %>
				<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你没权限关锁定会员！</font><br>
				<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%			end if %>
<%		else %>
			<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你没权限关锁定会员！</font><br>
			<br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新认证</a></font></p>
<%		end if
	case else
		if Request.Querystring("mode") = "LockTop" then %>
			<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">固定主题于顶端！</p>
<%		else %>
<%			if Request.Querystring("mode") = "Best" then %>
				<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">精华主题！</p>
<%			else %>
				<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">锁定 <% if Request.Querystring("mode") = "Topic" then Response.Write("主题") %><% if Request.Querystring("mode") = "Forum" then Response.Write("论坛") %><% if Request.Querystring("mode") = "Category" then Response.Write("分类") %><% if Request.Querystring("mode") = "Member" then Response.Write("会员") %></font></p>
<%			end if %>
<%		end if %>
		<p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><font color=red>注意：</font></b>
<%		select case Request.QueryString("mode")
			case "LockTop"
				Response.Write("只有版主跟管理员才能固定一个主题于顶端！")
				strFormMode = "LockedTop"
			case "Member"
				Response.Write("只有版主跟管理员才能锁定一个会员！")
				strFormMode = "LockMember"
			case "Category"
				Response.Write("只有版主跟管理员才能锁定一个分类！")
				strFormMode = "CloseCategory"
			case "Forum"
				Response.Write("只有版主跟管理员才能锁定一个论坛！")
				strFormMode = "CloseForum"
			case "Topic"
				Response.Write("只有版主跟管理员才能锁定一个主题！")
				strFormMode = "CloseTopic"
			case "Best"
				Response.Write("只有版主跟管理员才能将一个主题转移到精华区！")
				strFormMode = "BestTopic"
		end select %>
	</font></p>
<form action="pop_lock.asp?mode=<% =strFormMode %>" method=post>
<input type=hidden name="Method_Type" value="<% =strFormMode %>">
<input type=hidden name="TOPIC_ID" value="<% =Request.QueryString("TOPIC_ID") %>">
<input type=hidden name="FORUM_ID" value="<% =Request.QueryString("Forum_ID") %>">
<input type=hidden name="CAT_ID" value="<% =Request.QueryString("CAT_ID") %>">
<input type=hidden name="MEMBER_ID" value="<% =Request.QueryString("MEMBER_ID") %>">
<%'### 主题固定于顶端 #################################
	if Request.QueryString("mode") = "LockTop" Then
		strSQL = "SELECT " & strTablePrefix & "TOPICS.T_INPLACE FROM " & strTablePrefix & "TOPICS "
		strSql = strSQL & "WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
		set rs = my_conn.Execute(strSql) %><Input type="HIDDEN" name="InPlace" value="<% if rs("T_INPLACE") = 1 then response.write "0" else response.write "1" end if %>">
<% 	End If
'### 主题固定于顶端 ################################# %>
<table border="0" width="75%" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="<% =strPopUpBorderColor %>">
    <table border="0" width="100%" cellspacing="1" cellpadding="1">
<%		if strAuthType="db" then %>
      <tr>
        <td bgcolor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的名字：</font></b></td>
        <td bgcolor=<% =strPopUpTableColor %>><input type=text name="User" value="<% =Request.Cookies(strUniqueID & "User")("Name")%>" size=20></td>
      </tr>
      <tr>
        <td bgcolor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的密码：</FONT></b></td>
        <td bgcolor=<% =strPopUpTableColor %>><input type=Password name="Pass" value="<% =Request.Cookies(strUniqueID & "User")("Pword")%>" size=20></td>
      </tr>
<%		else %>
<%			if strAuthType="nt" then %>
      <tr>
        <td bgcolor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">NT 帐号：</font></b></td>
        <td bgcolor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%=Session(strCookieURL & "userid")%></FONT></td>
      </tr>
<%			end if %>
<%		end if %>
      <tr>
        <td bgColor=<% =strPopUpTableColor %> colspan=2 align=center><Input type=Submit value="提交"></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</form>
</font></font></b></b></b></b></b></b>
<% end select %><!--#INCLUDE FILE="inc_footer_short.asp" -->

⌨️ 快捷键说明

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