?? pop_delete.asp
字號:
<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'# #
'# 漢化修改: 資源搜羅站 #
'# 電子郵件: cgier@21cn.com #
'# 主頁地址: http://www.sdsea.com #
'# http://www.99ss.net #
'# http://www.cdown.net #
'# http://www.wzdown.com #
'# http://www.13888.net #
'# 論壇地址:http://ubb.yesky.net #
'# 最后修改日期: 2001/03/12 中文版本：Version 3.1 SR4 #
'#################################################################
'# 原始來源 #
'# Snitz Forums 2000 Version 3.1 SR4 #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved #
'#################################################################
'#【版權聲明】 #
'# #
'# 本軟體為共享軟體(shareware)提供個人網站免費使用，請勿非法修改,#
'# 轉載，散播，或用于其他圖利行為，并請勿刪除版權聲明。 #
'# 如果您的網站正式起用了這個腳本，請您通知我們，以便我們能夠知曉#
'# 如果可能，請在您的網站做上我們的鏈接，希望能給予合作。謝謝！ #
'#################################################################
'# 請您尊重我們的勞動和版權，不要刪除以上的版權聲明部分，謝謝合作#
'# 如有任何問題請到我們的論壇告訴我們 #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
if strAuthType = "db" then
STRdbntUserName = Request.Form("User")
end if
'################### File Attachments ############################
function DeleteUploads(msgType,ID)
select case msgType
case "Topic"
strSql = "SELECT USERFILES.MEMBER_ID,USERFILES.F_FILENAME FROM " & strTablePrefix & "USERFILES "
strSql = strSql & " WHERE " & strTablePrefix & "USERFILES.F_TOPIC_ID = " & ID
set rs2 = my_Conn.Execute (strSql)
on error resume next
if not(rs2.eof or rs2.bof) then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
do while not rs2.eof
FilePath = replace(strCookieURL,"/mods/","/",1,-1,1) & "uploaded"
FilePath = Server.MapPath(FilePath) & "\" & getMemberName(rs2("MEMBER_ID")) & "\"
if ScriptObject.FileExists(FilePath & rs2("F_FILENAME")) then
ScriptObject.DeleteFile(FilePath & rs2("F_FILENAME"))
end if
rs2.MoveNext
loop
DeleteUploads = 1
else
DeleteUploads = 0
end if
rs2.Close
case "Reply"
strSql = "SELECT MEMBER_ID,F_FILENAME FROM " & strTablePrefix & "USERFILES "
strSql = strSql & " WHERE F_REPLY_ID = " & ID
set rs2 = my_Conn.Execute (strSql)
if not(rs2.eof or rs2.bof) then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
do while not rs2.eof
FilePath = replace(strCookieURL,"/mods/","/",1,-1,1) & "uploaded"
FilePath = Server.MapPath(FilePath) & "\" & getMemberName(rs2("MEMBER_ID")) & "\"
if ScriptObject.FileExists(FilePath & rs2("F_FILENAME")) then
ScriptObject.DeleteFile(FilePath & rs2("F_FILENAME"))
end if
rs2.MoveNext
loop
DeleteUploads = 1
else
DeleteUploads = 0
end if
rs2.Close
end Select
end function
'################### File Attachment end ############################
if Request.QueryString("mode") = "DeleteReply" then
mLev = cint(ChkUser3(strDBNTUserName, Request.Form("Pass"), Request.Form("REPLY_ID")))
if mLev > 0 then '## is Member
if (chkForumModerator(Request.Form("FORUM_ID"), strDBNTUserName) = "1") or (mLev = 1) or (mLev = 4) then '## is Allowed
'## Forum_SQL - Delete reply
strSql = "DELETE FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.REPLY_ID = " & Request.Form("REPLY_ID")
my_Conn.Execute strSql
'################### File Attachments ############################
if DeleteUploads("Reply",Request.Form("REPLY_ID")) = 1 then
strSql = "DELETE FROM " & strTablePrefix & "USERFILES "
strSql = strSql & " WHERE " & strTablePrefix & "USERFILES.F_REPLY_ID = " & Request.Form("REPLY_ID")
my_Conn.Execute strSql
end if
'################### File Attachments end ########################
set rs = Server.CreateObject("ADODB.Recordset")
'## Forum_SQL - Get last_post and last_post_author for Topic
strSql = "SELECT R_DATE, R_AUTHOR"
strSql = strSql & " FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE TOPIC_ID = " & Request.Form("TOPIC_ID") & " "
strSql = strSql & " ORDER BY R_DATE DESC"
set rs = my_Conn.Execute (strSql)
if not(rs.eof or rs.bof) then
strLast_Post = rs("R_DATE")
strLast_Post_Author = rs("R_AUTHOR")
end if
if (rs.eof or rs.bof) or IsNull(strLast_Post) or IsNull(strLast_Post_Author) then 'topic has no replies
set rs2 = Server.CreateObject("ADODB.Recordset")
'## Forum_SQL - Get post_date and author from Topic
strSql = "SELECT T_AUTHOR, T_DATE "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE TOPIC_ID = " & Request.Form("TOPIC_ID") & " "
set rs2 = my_Conn.Execute (strSql)
strLast_Post = rs2("T_DATE")
strLast_Post_Author = rs2("T_AUTHOR")
rs2.Close
set rs2 = nothing
end if
rs.Close
set rs = nothing
'## FORUM_SQL - Decrease count of replies to individual topic by 1
strSql = "UPDATE " & strTablePrefix & "TOPICS "
strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_REPLIES = " & strTablePrefix & "TOPICS.T_REPLIES - " & 1 & " "
if strLast_Post <> "" then
strSql = strSql & ", T_LAST_POST = '" & strLast_Post & "'"
if strLast_Post_Author <> "" then
strSql = strSql & ", T_LAST_POST_AUTHOR = " & strLast_Post_Author & ""
end if
end if
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.Form("TOPIC_ID")
my_Conn.Execute strSql
'## Forum_SQL - Get last_post and last_post_author for Forum
strSql = "SELECT T_LAST_POST, T_LAST_POST_AUTHOR "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE FORUM_ID = " & Request.Form("FORUM_ID") & " "
strSql = strSql & " ORDER BY T_LAST_POST DESC"
set rs = my_Conn.Execute (strSql)
if not rs.eof then
strLast_Post = rs("T_LAST_POST")
strLast_Post_Author = rs("T_LAST_POST_AUTHOR")
else
strLast_Post = ""
strLast_Post_Author = ""
end if
rs.Close
set rs = nothing
'## Forum_SQL - Decrease count of total replies in Forum by 1
strSql = "UPDATE " & strTablePrefix & "FORUM "
strSql = strSql & " SET " & strTablePrefix & "FORUM.F_COUNT = " & strTablePrefix & "FORUM.F_COUNT - " & 1 & " "
if strLast_Post <> "" then
strSql = strSql & ", F_LAST_POST = '" & strLast_Post & "'"
if strLast_Post_Author <> "" then
strSql = strSql & ", F_LAST_POST_AUTHOR = " & strLast_Post_Author
end if
end if
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("FORUM_ID")
my_Conn.Execute strSql
'## FORUM_SQL - Decrease count of total replies in Totals table by 1
strSql = "UPDATE " & strTablePrefix & "TOTALS "
strSql = strSql & " SET " & strTablePrefix & "TOTALS.P_COUNT = " & strTablePrefix & "TOTALS.P_COUNT - " & 1 & " "
my_Conn.Execute strSql
%>
<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">回復已刪除！</font></p>
<P>(<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">記得重新整理頁面。</font>)</p>
<% Else %>
<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你不是管理員不能刪除回復</p>
<p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新認證</a></font></p>
<% end if %>
<% Else %>
<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你不是管理員不能刪除回復</p>
<p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回重新認證</a></font></p>
<% end if
else
if Request.QueryString("mode") = "DeleteTopic" then
mLev = cint(ChkUser2(STRdbntUserName, Request.Form("Pass")))
if mLev > 0 then '## is Member
if (chkForumModerator(Request.Form("FORUM_ID"), STRdbntUserName) = "1") or (mLev = 4) then
delAr = split(Request.Form("TOPIC_ID"), ",")
for i = 0 to ubound(delAr)
'## Forum_SQL - count total number of replies of TOPIC_ID in Reply table
set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT count(" & strTablePrefix & "REPLY.REPLY_ID) AS cnt "
strSql = strSql & " FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.TOPIC_ID = " & cint(delAr(i))
rs.Open strSql, my_Conn
risposte = rs("cnt")
rs.close
set rs = nothing
'## Forum_SQL - Delete the actual topics
strSql = "DELETE FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete all replys related to the topics
strSql = "DELETE FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.TOPIC_ID = " & cint(delAr(i))
my_Conn.Execute strSql '## Forum_SQL - Get last_post and last_post_author for Forum
strSql = "SELECT T_LAST_POST, T_LAST_POST_AUTHOR"
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE FORUM_ID = " & Request.Form("FORUM_ID") & " "
strSql = strSql & " ORDER BY T_LAST_POST DESC"
set rs = my_Conn.Execute (strSql)
if not rs.eof then
rs.movefirst
strLast_Post = rs("T_LAST_POST")
strLast_Post_Author = rs("T_LAST_POST_AUTHOR")
else
strLast_Post = ""
strLast_Post_Author = ""
end if
rs.Close
set rs = nothing
'## Forum_SQL - Update count of replies to a topic in Forum table
strSql = "UPDATE " & strTablePrefix & "FORUM "
strSql = strSql & " SET " & strTablePrefix & "FORUM.F_COUNT = " & strTablePrefix & "FORUM.F_COUNT - " & cint(risposte) + 1
strSql = strSql & " , " & strTablePrefix & "FORUM.F_TOPICS = " & strTablePrefix & "FORUM.F_TOPICS - " & 1
if strLast_Post <> "" then
strSql = strSql & ", F_LAST_POST = '" & strLast_Post & "' "
if strLast_Post_Author <> "" then
strSql = strSql & ", F_LAST_POST_AUTHOR = " & strLast_Post_Author
end if
else
strSql = strSql & ", F_LAST_POST = F_CREATED"
strSql = strSql & ", F_LAST_POST_AUTHOR = NULL"
end if
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("FORUM_ID")
my_Conn.Execute strSql
'## Forum_SQL - Update total TOPICS in Totals table
strSql = "UPDATE " & strTablePrefix & "TOTALS "
strSql = strSql & " SET " & strTablePrefix & "TOTALS.T_COUNT = " & strTablePrefix & "TOTALS.T_COUNT - " & 1
strSql = strSql & ", " & strTablePrefix & "TOTALS.P_COUNT = " & strTablePrefix & "TOTALS.P_COUNT - " & cint(risposte) + 1
my_Conn.Execute strSql
next
%>
<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
else
if Request.QueryString("mode") = "DeleteForum" then
mLev = cint(ChkUser2(strDBNTUserName, Request.Form("Pass")))
if mLev > 0 then '## is Member
if mLev = 4 then
delAr = split(Request.Form("FORUM_ID"), ",")
for i = 0 to ubound(delAr)
'## Forum_SQL - Delete all replys related to the topics
strSql = "DELETE FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE FORUM_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete the actual topics
strSql = "DELETE FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.FORUM_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete the moderators
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.FORUM_ID = " & cint(delAr(i))
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -