|
Log sistemini dosyaları entegre etmeden kullanmak sitiyorsanız aşağıdaki işlemleri yapınız.
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
------------- Türkçe Web Wiz Forum Desteğine http://Gopca.Net - http://Gopca.Net adresinden ulaşabilirsiniz...
|