The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
I know I saw the code somewhere but I can't find it:
I have users that make 2 consecutive replies to the same post. I want to prevent that.
I have users that make 2 consecutive replies to the same post. I want to prevent that.
نوشته شده در
This approach allows consecutive replies after 30 minutes have passed. If you want to change the minimum time (eg. 1440=1 day), change the 30 to your desired time. If you want to eliminate consecutive replies without regard to time passed, then delete this portion of that line:
"post.asp"
"topic.asp"
Code:
and intLastPost < 30"post.asp"
Code:
Look for the following lines (appx 233-236):
case "Reply", "ReplyQuote", "TopicQuote"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to Reply to a Locked Topic"
end if
After them, insert these:
if not mLev>2 then
strSql = "SELECT T_LAST_POST_AUTHOR, T_LAST_POST FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = " & strRqTopicID
set rsLP = my_Conn.Execute(strSql)
intLastPost = datediff("n",ChkDate(rsLP("T_LAST_POST"),"",true),strForumTimeAdjust)
if MemberID = rsLP("T_LAST_POST_AUTHOR") and intLastPost < 30 Then
Go_Result "Consecutive replies not allowed, edit your last post in this thread."
end if
rsLP.Close
set rsLP = Nothing
end if
"topic.asp"
Code:
Look for the following line (appx 1092):
Sub QuickReply()
After it, insert these:
if not mLev>2 then
strSql = "SELECT T_LAST_POST_AUTHOR, T_LAST_POST FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = " & TopicID
set rsLP = my_Conn.Execute(strSql)
intLastPost = datediff("n",ChkDate(rsLP("T_LAST_POST"),"",true),strForumTimeAdjust)
if MemberID = rsLP("T_LAST_POST_AUTHOR") and intLastPost < 30 Then
Go_Result "Consecutive replies not allowed, edit your last post in this thread."
end if
rsLP.Close
set rsLP = Nothing
end if
نوشته شده در
Thanks!
نوشته شده در
error '80040e14'
[MySQL][ODBC 3.51 Driver][mysqld-4.1.22-standard-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
I think is this strRqTopicID seems to be empty
Never Mind
In the topic.asp the variable used is Topic_ID and not strRqTopicID
sorry
