📄 pop_open.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
字号:
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
Select case Request.QueryString("mode")
	case "OpenTopic"
		mLev = cint(ChkUser(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 = 1 "
				strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.Form("TOPIC_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 "OpenTop"
		'### 主题取消固定于顶端 #################################
		mLev = cint(ChkUser(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 "
				'### Lock in place code#################################
				if Request.Form("InPlace") = "0" then
					strSQL = strSql & strTablePrefix & "TOPICS.T_INPLACE = 0"
				else
					strSQL = strSql & strTablePrefix & "TOPICS.T_INPLACE = 1"
				end if
				'### Lock in place code#################################
				strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.Form("TOPIC_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 "OpenForum"
		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 = 1 "
				strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("FORUM_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 "OpenCategory"
		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 = 1 "
				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 "UnLockMember"
		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 = 1 "
				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 %>
			<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 %>
		<p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><font color=red>注意：</font></b>
<%		select case Request.QueryString("mode")
			case "LockTop"
				Response.Write("只有版主跟管理员可以解除固定于顶端的主题！")
			case "Member"
				Response.Write("只有论坛管理员可以解除会员锁定！")
			case "Category"
				Response.Write("只有论坛管理员可以解除分类锁定！")
			case "Forum"
				Response.Write("只有论坛管理员可以解除论坛锁定！")
			case "Topic"
				Response.Write("只有论坛管理员和版主可以解除主题锁定！")
		end select %>
</font></p>
<form action="pop_open.asp?mode=<% =GetMethod() %>" method=Post>
<input type=hidden name="Method_Type" value="<% =GetMethod() %>">
<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)

if RS("T_INPLACE") = 1 then
	response.write "<Input type=""HIDDEN"" name=""InPlace"" value=""0"">"
else
	response.write "<Input type=""HIDDEN"" name=""InPlace"" value=""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></b></b></b></b></b></b></b></b></b></b>
<% end select %>
<!--#INCLUDE FILE="inc_footer_short.asp" -->
<%
Function GetMethod()

	if Request.Querystring("mode") = "LockTop" then
		fString = "OpenTop"
	end if
	if Request.Querystring("mode") = "Topic" then
		fString = "OpenTopic"
	end if
	if Request.Querystring("mode") = "Forum" then
		fString = "OpenForum"
	end if
	if Request.Querystring("mode") = "Category" then
		fString = "OpenCategory"
	end if
	if Request.Querystring("mode") = "Member" then
		fString = "UnLockMember"
	end if
	GetMethod = fString

End Function
%>
⌨️ 快捷键说明

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