pop_open.asp

代码名称： Snitz Forums 2000 代码语言： 英文 代码类型： 国外代码 运行环境： ASP 授权方式： 免费代码 代码大小： 530kb 代码等级： 3 整

				Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>No Permissions to Un-Lock a Member</b></font><br />" & _
						"<br /><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick=history.go(-1)"">Go Back to Re-Authenticate</a></font></p>" & vbNewLine
			end if
		else
			Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>No Permissions to Un-Lock a Member</b></font><br />" & _
					"<br /><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick=history.go(-1)"">Go Back to Re-Authenticate</a></font></p>" & vbNewLine
		end if 
	case "UnStickyTopic"
		strEncodedPassword = sha256("" & strPassword)
		mLev = cLng(ChkUser(strDBNTFUserName, strEncodedPassword,-1)) 
		if mLev > 0 then  '## is Member
			if (chkForumModerator(Forum_ID, strDBNTFUserName) = "1") or (mLev = 4) then
				'## Forum_SQL
				strSql = "UPDATE " & strTablePrefix & "TOPICS "
				strSql = strSql & " SET T_STICKY = " & 0
				strSQL = strSql & ", T_ARCHIVE_FLAG = " & 1
				strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID 

				my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords

				Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Topic Made Un-Sticky!</b></font></p>" & vbNewLine & _
						"      <script language=""javascript1.2"">self.opener.location.reload();</script>" & vbNewLine
			else
				Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>No Permissions to Make Topic Un-Sticky!</b></font><br />" & _
						"<br /><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick=history.go(-1)"">Go Back to Re-Authenticate</a></font></p>" & vbNewLine
			end if
		else
			Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>No Permissions to Make Topic Un-Sticky!</b></font><br />" & _
					"<br /><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick=history.go(-1)"">Go Back to Re-Authenticate</a></font></p>" & vbNewLine
		end if 
	case else 
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>"
		select case Mode_Type
			case "Topic"
				Response.Write("Un-Lock Topic")
			case "Forum"
				Response.Write("Un-Lock Forum")
			case "Category"
				Response.Write("Un-Lock Category")
			case "Member"
				Response.Write("Un-Lock Member")
			case "STopic"
				Response.Write("Make Topic Un-Sticky")
		end select
		Response.Write	"</font></p>" & vbNewLine & _
				"      <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><font  color=""" & strHiLiteFontColor & """>NOTE:&nbsp;</font></b>"
		select case Mode_Type
			case "STopic"
				Response.Write("Only Moderators and Administrators<br />can make a Topic Un-Sticky.")
			case "Member"
				Response.Write("Only Administrators can un-lock a Member.")
			case "Category"
				Response.Write("Only Administrators can un-lock a Category.")
			case "Forum"
				Response.Write("Only Administrators can un-lock a Forum.")
			case "Topic"
				Response.Write("Only Moderators and Administrators<br />can un-lock a Topic.")
		end select
		Response.Write("</font></p>" & vbNewLine)

		Response.Write	"      <form action=""pop_open.asp?mode="
		select case Mode_Type
			case "Topic"
				Response.Write("OpenTopic")
			case "Forum"
				Response.Write("OpenForum")
			case "Category"
				Response.Write("OpenCategory")
			case "Member"
				Response.Write("UnLockMember")
			case "STopic"
				Response.Write("UnStickyTopic")
		end select
		Response.Write	""" method=""Post"">" & vbNewLine & _
				"      <input type=""hidden"" name=""TOPIC_ID"" value=""" & Topic_ID & """>" & vbNewLine & _
				"      <input type=""hidden"" name=""FORUM_ID"" value=""" & Forum_ID & """>" & vbNewLine & _
				"      <input type=""hidden"" name=""CAT_ID"" value=""" & Cat_ID & """>" & vbNewLine & _
				"      <input type=""hidden"" name=""MEMBER_ID"" value=""" & Member_ID & """>" & vbNewLine & _
				"      <table border=""0"" width=""75%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
				"        <tr>" & vbNewLine & _
				"          <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
				"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine
		if strAuthType = "db" then
		Response.Write	"              <tr>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>User Name:</font></b></td>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """><input type=""Text"" maxLength=""25"" name=""Name"" value=""" & chkString(strDBNTUserName,"display") & """ style=""width:150px;""></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Password:</font></b></td>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """><input type=""Password"" maxLength=""25"" name=""Pass"" value="""" style=""width:150px;""></td>" & vbNewLine & _
				"              </tr>" & vbNewLine
		else
			if strAuthType="nt" then
				Response.Write	"              <tr>" & vbNewLine & _
						"                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>NT Account:</font></b></td>" & vbNewLine & _
						"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & chkString(strDBNTUserName,"display") & "</font></td>" & vbNewLine & _
						"              </tr>" & vbNewLine
			end if
		end if
		Response.Write	"              <tr>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><Input type=""Submit"" value=""Send""></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"            </table>" & vbNewLine & _
				"          </td>" & vbNewLine & _
				"        </tr>" & vbNewLine & _
				"      </table>" & vbNewLine & _
				"      </form>" & vbNewLine
end select
WriteFooterShort
Response.End

function chkCanOpen(fAM_ID, fM_ID)
	'## Forum_SQL
	strSql = "SELECT MEMBER_ID, M_LEVEL "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
	StrSql = strSql & " WHERE MEMBER_ID = " & fM_ID

	set rsCheck = my_Conn.Execute (strSql)

	if rsCheck.BOF or rsCheck.EOF then
		chkCanOpen = 0 '## No Members Found
	else
		if cLng(rsCheck("MEMBER_ID")) = cLng(fAM_ID) then 
			chkCanOpen = 0 '## Can't unlock self
		else
			Select case cLng(rsCheck("M_LEVEL"))
				case 1
					chkCanOpen = 1 '## Can unlock Normal User
				case 2
					chkCanOpen = 1 '## Can unlock Moderator
				case 3
					if fAM_ID <> intAdminMemberID then
						chkCanOpen = 0 '## Only the Forum Admin can unlock other Administrators
					else
						chkCanOpen = 1 '## Forum Admin is ok to unlock other Administrators
					end if
				case else
					chkCanOpen = 0 '## Member doesn't have a Member Level?
			End Select
		end if	
	end if

	rsCheck.close	
	set rsCheck = nothing
end function
%>