bilgi mod v1.0: forum log information

 

1. delete_poll.asp dosyasını açınız ve

Dim satırı altına şunları ekleyiniz;

 

Dim bilgi, strbilgi, i, tempbilgi, strsubject
Dim aktar(40)

 

daha sonra

 

'Clean up
rsCommon.Close
Call closeDatabase()
%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<script language="JavaScript">
 window.opener.location.href = 'forum_posts.asp?TID=<% = lngTopicID %><% = strQsSID2 %>'
 window.close();
</script>
</head>
</html>

 

bölümünü

 

'Clean up
rsCommon.Close
strSQL = "SELECT tblConfiguration.Bilgi FROM tblConfiguration "
  rscommon.Open strSQL, adoCon,2,3
  strbilgi = strloggedinusername&";poll deleted;"&strSubject&";"& now&";"&lngloggedinuserid&";"&lngTopicID&";"&"$"
  with  rscommon
  bilgi = .fields("Bilgi")
  if bilgi <>"" then
   if UBound(Split(bilgi, "$"))=40 then
   bilgi= Split(bilgi, "$")
    for i =1 to 39
      aktar(i-1) = bilgi(i)
   tempbilgi=tempbilgi&aktar(i-1)&"$"
   next
      else
   tempbilgi=.fields("Bilgi")
  end if
  end if
      tempbilgi=tempbilgi&strbilgi
   .fields("Bilgi")= tempbilgi
   .update
   'Clean up
         .Close
   end with

Call closeDatabase()
%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<script language="JavaScript">
 window.opener.location.href = 'forum_posts.asp?TID=<% = lngTopicID %><% = strQsSID2 %>'
 window.close();
</script>
</head>
</html>

 

şeklinde değiştiriniz ve kaydedip kapatınız.

 

2. delete_post.asp dosyasını açınız ve Dim satırı altına şunları ekleyiniz;

Dim bilgi, strbilgi, i, tempbilgi, strsubject
Dim aktar(40)

 

daha sonra

 

'Update the number of topics and posts in the database
Call updateForumStats(intForumID)

'Reset Server Objects
Call closeDatabase()

 

satırlarını silip

 

'Update the number of topics and posts in the database
Call updateForumStats(intForumID)
   strSQL = "SELECT tblConfiguration.Bilgi FROM tblConfiguration "
  rscommon.Open strSQL, adoCon,2,3
  strbilgi = strloggedinusername&";post deleted;"&strSubject&";"& now&";"&lngloggedinuserid&";"&lngTopicID&";"&"$"
  with rscommon
  bilgi = .fields("Bilgi")
  if bilgi <>"" then
   if UBound(Split(bilgi, "$"))=40 then
   bilgi= Split(bilgi, "$")
    for i =1 to 39
      aktar(i-1) = bilgi(i)
   tempbilgi=tempbilgi&aktar(i-1)&"$"
   next
      else
   tempbilgi=.fields("Bilgi")
  end if
  end if
      tempbilgi=tempbilgi&strbilgi
   .fields("Bilgi")= tempbilgi
   .update
   .Close
   end with

'Reset Server Objects
Call closeDatabase()

 

satırlarını ekleyip kaydediniz.

 

3. delete_topic.asp dosyasını açınız ve Dim satırı altına aşağıdaki satırları ekleyiniz.

 

Dim bilgi, strbilgi, i, tempbilgi, strsubject
Dim aktar(40)

 

 

daha sonra

 

'Update the number of topics and posts in the database
Call updateForumStats(intForumID)

'Reset main server variables
Call closeDatabase()

 

 

satırlarını silip

 

 

 

'Update the number of topics and posts in the database
Call updateForumStats(intForumID)

   strSQL = "SELECT tblConfiguration.Bilgi FROM tblConfiguration "
  rscommon.Open strSQL, adoCon,2,3
  strbilgi = strloggedinusername&";topic deleted;"&strSubject&";"& now&";"&lngloggedinuserid&";"&lngTopicID&";"&"$"
  with rscommon
  bilgi = .fields("Bilgi")
  if bilgi <>"" then
   if UBound(Split(bilgi, "$"))=40 then
   bilgi= Split(bilgi, "$")
    for i =1 to 39
      aktar(i-1) = bilgi(i)
   tempbilgi=tempbilgi&aktar(i-1)&"$"
   next
      else
   tempbilgi=.fields("Bilgi")
  end if
  end if
      tempbilgi=tempbilgi&strbilgi
   .fields("Bilgi")= tempbilgi
   .update
   .Close
   end with

'Reset main server variables
Call closeDatabase()

 

satırlarını ekleyip kaydediniz.

 

4. move_post.asp dosyasını açınız ve Dim satırları altına aşağıdakileri ekleyiniz.

 

Dim bilgi, strbilgi, i, tempbilgi, strsubject
Dim aktar(40)

 

 

daha sonra

 

 

'Update the forum stats to get the topics in the correct order etc.
 Call updateTopicStats(lngOldTopicID)
 Call updateTopicStats(lngTopicID)

End If

'Reset main server variables
Call closeDatabase()

 

 

satırlarını silip

 

 

 

strSQL = "SELECT tblConfiguration.Bilgi FROM tblConfiguration "
  rscommon.Open strSQL, adoCon,2,3
  strbilgi = strloggedinusername&";post moved;"&strSubject&";"& now&";"&lngloggedinuserid&";"&lngTopicID&";"&"$"
  with rscommon
  bilgi = .fields("Bilgi")
  if bilgi <>"" then
   if UBound(Split(bilgi, "$"))=40 then
   bilgi= Split(bilgi, "$")
    for i =1 to 39
      aktar(i-1) = bilgi(i)
   tempbilgi=tempbilgi&aktar(i-1)&"$"
   next
      else
   tempbilgi=.fields("Bilgi")
  end if
  end if
      tempbilgi=tempbilgi&strbilgi
   .fields("Bilgi")= tempbilgi
   .update
   .close 
   end with
 
 'Update the forum stats to get the topics in the correct order etc.
 Call updateTopicStats(lngOldTopicID)
 Call updateTopicStats(lngTopicID)

End If

T50webmaster wrote: Nevermind i figured it out. Great mod Now I have to do is link it into the Admin part

 

for example you can add a link to navigation menu for admins. open navigation_buttons_inc.asp at includes folder and add this code to line 67.

 

 

if blnadmin then  Response.Write ("&nbsp;&nbsp;<a href=""bilgi.asp"" class=""nav""><img src=""" & strImagePath & "hidden_topics.gif"" border=""0"" align=""absmidle"" alt=""elMuhaberat :)"">Top Secret</a>")