Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat Forumlarına Eklenen Son Konular - ASP Tahribat Forumlarına Eklenen Son Konular - ASP
-
sayfanıza include edeceğiniz kısım aşağıdadır.
----------------------------------------------------------------------------------------
<%@CODEPAGE="1254" LANGUAGE="VbScript" LCID="1055"%>
<script type="text/javascript" src="http://www.tahribat.com/js/Notepad.js"></script>
<script type="text/javascript" src="http://www.tahribat.com/js/tahribatmenu.js"></script>
<link rel="stylesheet" type="text/css" media="screen" href="http://www.tahribat.com/css/tbt.css" title="tbt styler version 1.0">
<script type="text/javascript" language=javascript>
var baslangicnoktasi = 230;
new ypSlideOutMenu("menu1", "down", baslangicnoktasi, 105, 180, 150)
new ypSlideOutMenu("menu2", "down", baslangicnoktasi+76, 105, 180, 150)
new ypSlideOutMenu("menu3", "down", baslangicnoktasi+160, 105, 180, 150)
new ypSlideOutMenu("menu4", "down", baslangicnoktasi+255, 105, 180, 350)
//new ypSlideOutMenu("menu2", "left", 122, 92, 140, 65)
</script>
<%
Private Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function
%>
<%
Function YerineKoy(Veri)
Veri = Replace(veri,"href=","target=_blank href=")
Veri = Replace(veri,"forumdisplayfolder.asp?","http://www.tahribat.com/forumdisplayfolder.asp?")
Veri = Replace(veri,"img/forum/","http://www.tahribat.com/img/forum/")
Veri = Replace(veri,"<tr","<td><tr")
Veri = Replace(veri,"96%","650px")
YerineKoy=Veri
End Function
%>
<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = BinaryToString(objVeriAl.Responsebody)
SET objVeriAl = Nothing
End Function
strAdres = "http://www.tahribat.com/forumactivetopics.asp"
strVeri = VeriAL(strAdres)
basla="hours"
bitir="</table>"
itibaren = Instr(strVeri,basla)
strTahribatCom = Mid(strVeri,itibaren+236,100000)
ekadar = Instr(strTahribatCom,bitir)
strTahribatCom = Mid(strTahribatCom,1+1,ekadar)
%>
<font face="Trebuchet Ms" style="font-size: 9pt"><%=YerineKoy(strTahribatCom)%></font></b>
----------------------------------------------------------------------
Muhabbet olsun diye (Tahribat.Com' a herhangi bir zararı olmayacağını düşündüğüm için )bu kodu yazdım.
Şayet yasaksa tüm tahribat.com üyelerinden özür diliyorum -
şunu php ile yapsaydın ya :p
-
önüne gelen birinden özür dilemeye meyilli arkadaş ne sadomazoşist olduk yaws.. :|
-
ne işe yarıyo bu hacı merak ettim...
-
süper oldu bu wapdan girerim artık :D
-
FOXXLY bunu yazdı:
-----------------------------
süper oldu bu wapdan girerim artık :D
-----------------------------hangi siteye include edecen söle bende oradan giriyim
-
scuderia bunu yazdı:
-----------------------------
ne işe yarıyo bu hacı merak ettim...
-----------------------------
mesala bir siten var bu sitende tahribat.com forumlarına eklenen son konuları yayınlamak istiyosun bu kodu (şayet siten asp destekliyorsa);
1- Asp sayfana direk include ederek (<%@CODEPAGE="1254" LANGUAGE="VbScript" LCID="1055"%> komutunu silmek şartıyla )
2- O kodları boş bir text e yapıştırarak ismini Tahribat dosya tipinide asp olarak kaydedip sayfana <iframe name="Tahribat" src="Tahribat.Asp"></iframe> kodlarını ekleyerek
sitende yayınlayabilirsin...
tarzan bunu yazdı:
-----------------------------
önüne gelen birinden özür dilemeye meyilli arkadaş ne sadomazoşist olduk yaws.. :|
-----------------------------
özenti olmaktan iyidir tarzanım...
-
Tebrikler, çok güzel oldu.
-
Test Adresi : http://www.alacamcpl.k12.tr/tahribat.asp
Gayet Güzel Telden girebilecem artık :D
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 1338 Toplam Mesaj: 9
Cevapla