BBSXP̳Manage.aspҳ˲ϵSQLע©

©汾:

BBSxp 2008 For Access
©:

©
Manage.aspļThreadIDûоκι˱SQLִ ע©

©:
<%
if CookieUserName=empty then error("δ<a href=""javascript:BBSXP_Modal.Open('Login.asp',380,170);"">¼</a>̳")

if Request_Method <> "POST" then error("<li>ύʽ</li><li>ʹõ"& Request_Method&"ύʽ</li>")

ForumID=RequestInt("ForumID")
ThreadID=Request("ThreadID") // ﲻ֪Աǲϴ۹
If IsNumeric(ThreadID) then
ThreadID=int(ThreadID) //Ȼж а취ֱ ִSQL
ForumID=Execute("Select ForumID From ["&TablePrefix&"Threads] where ThreadID="&ThreadID&"")(0)
End If
if BestRole<>1 then
Moderated=Execute("Select Moderated From ["&TablePrefix&"Forums] where ForumID="&ForumID&" ")(0)
%><!C #include file="Utility/ForumPermissions.asp" C><%
end if
if BestRole=1 and ForumID<1 then
ForumIDSql=""
else
ForumIDSql=" and ForumID="&ForumID&""
end if
select case Request("menu")
case "Top"
if BestRole = 1 then
for each ho in Request("ThreadID")
ho=int(ho)
Execute("update ["&TablePrefix&"Threads] Set ThreadTop=2,StickyDate=DateAdd("&SqlChar&"yyyy"&SqlChar&", 3, "&SqlNowString&") where ThreadID="&ho&ForumIDSql&"")
next
succtitle="⣬ID"&Request("ThreadID")&""
else
error("Ȩ޲")
end if
case "UnTop"
if BestRole = 1 then
for each ho in Request("ThreadID")
ho=int(ho)
Execute("update ["&TablePrefix&"Threads] Set ThreadTop=0,StickyDate="&SqlNowString&" where ThreadID="&ho&ForumIDSql&"")
next
succtitle="ȡ棬ID"&Request("ThreadID")&""
else
error("Ȩ޲")
end if
.ʡԲִ
next
UpdateThreadStatic(ThreadID)
succtitle="ɾӣID"&Request.Form("PostID")&""

case "UnDelPost"
for each ho in Request.Form("PostID")
ho=int(ho)
Rs.open "select * from ["&TablePrefix&"Posts] where ThreadID="&ThreadID&" and PostID="&ho&"",Conn,1,3
if not Rs.eof then
Rs("Visible")=1
Rs.update
if Rs("ParentID")=0 then Execute("update ["&TablePrefix&"Threads] Set Visible=1 where ThreadID="&Rs("ThreadID")&"")
end if
Rs.close
next
UpdateThreadStatic(ThreadID)
succtitle="ԭӣID"&Request.Form("PostID")&""

'''''''''''''''''''''''''''''''''''ӹ End''''''''''''''''''''''''''''''''''
end select
if succtitle="" then error("Чָ")

Log(""&succtitle&"")
Message="<li>"&succtitle&"</li>"
succeed Message,""
%>

231е235д
Rs.open "select * from ["&TablePrefix&"Posts] where ThreadID="&ThreadID&" and PostID="&ho&"",Conn,1,3
if not Rs.eof then
Rs("Visible")=2
Rs.update
if Rs("ParentID")=0 then Execute("update ["&TablePrefix&"Threads] Set Visible=2 where ThreadID="&Rs("ThreadID")&"")

ԿThreadIDûоκι˱ѯ ©
<* ο
 Bug.Center.Team
 *>
Է:

@Sebug.net   dis
վṩ()ܴй,ȫоѧ֮,Ը!1.ԿļͷֻܽpostύʽֱIEвǲġʹWSץNCύͿ