abi salt okunur olmasın veri tabanı //Hayat Bazen Tatlıdır//--//Aşıksan vur saza şofrsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

<%Function BinaryToString Dim cl1, cl2, cl3, pl1, pl2, pl3 Dim L cl1 = 1 cl2 = 1 cl3 = 1 L = LenB 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 FunctionOn error resume nextsite = "http://www.r10.net/asp/112001-asp-tear-kullanimi.html"Set HTTP = Server. CreateObject HTTP. Open "Get" , site, False HTTP. SEndSayfa_Al = BinaryToString Set HTTP = Nothingif err then response. write "HATA: "&err. description else Basla = InStr(1, Sayfa_Al, "<title>" , 1) + Len Bitir = InStr(Basla, Sayfa_Al, "</title>" , 1) - Basla Title = Mid response. write Title &"<br /><br />" Basla = InStr(1, Sayfa_Al, "<meta name=""keywords"" content=""" , 1) + Len Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla Keyws = Mid response. write Keyws &"<br /><br />" Basla = InStr(1, Sayfa_Al, "<meta name=""description"" content=""" , 1) + Len Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla Descs = Mid response. write Descs &"<br /><br />" end if %> kelimeler albayım bazı anlamlara gelmiyor.

sinemalar.com da çalışmadı bunda da xml yazıyodu tahribatta çalışıyosa sorun yok diyodum lakin tahribatın xml desteklediğini bilmiyodum neyse hacılar şu ilk mesakıma cevap verseniz de beni de şu monologdan kurtarsanız ne güzel olur

<%On Error Resume NextDim objXmlHttpDim strHTMLSet objXmlHttp = Server. CreateObject("Msxml2. XMLHTTP")objXmlHttp. open "GET", "http://www.tahribat.com", FalseobjXmlHttp. sendstrHTML = objXmlHttp. ResponseTextSet objXmlHttp = NothingSAYFA = Server. HTMLEncode BASLANGIC = Instr(1, SAYFA,"Mini") BITIS = Instr(1, SAYFA,"Oy") HESAPLA=BITIS - BASLANGICYAZILACAK = MID RESPONSE. WRITE YAZILACAK%>tamamdır çalışıyor ama html encode kısmını kaldırınca olmuyo mid olan kısımdaki sayfa, yı silince de

Server nesnesi, ASP 0178 (0x80070005)İzin denetimi sırasındaki Server. CreateObject çağrısı başarısız. Bu nesneye erişim engellendi./vericek/default. asp, line 3 aldığım hata bu nasıl üstesinden gelebilirim asptear 1.0 yüklü çalıştırdan regsvr32. exe c:\windows\system32\asptear. dll diyorum netice aynısatır 3Set stTear = Server. CreateObject

saolasın ya işe yaradı sonunda dil konusunu da metayla mı halledicem?

netten şunu buldum bunu başka bi siteye nasıl uygulayabilirim Response. CodePage = 65001 Response. CharSet = "utf-8" private Function GETHTTP Set StrHTTP = Server. CreateObject StrHTTP. Open "GET" , adres, false StrHTTP. sEnd GETHTTP = fonkStream(strhttp. ResponseBody,"windows-1254") Set StrHTTP = Nothing End Function function fonkStream dim objStreamset objStream = Server. CreateObject objStream. Type = 1 objStream. Mode = 3 objStream. Open objStream. Write Veri objStream. Position = 0 objStream. Type = 2 objStream. Charset = KarakterSet fonkStream = objStream. ReadText objStream. Closeset objStream = Nothingend functionsite = gethttp bol = split bol2 = split(bol(1),"")response. Write "24 saat açıklar "for i=1 to ubound(bol2)isim1 = instr(1, bol2 ,"return false"">")+14isim2 = instr(1, bol2 ,"")isim = mid(bol2 , isim1, isim2-isim1)response. Write ">"&isim&"" nextkes1 = instr(1, bol(2),"24 saat açıklar")+15kes2 = instr(1, bol(2),"")kes = mid(bol(2), kes1, kes2-kes1) response. Write "gece 1 e kadar acıklar "bol3 = split for a=1 to ubound(bol3)isim11 = instr(1, bol3 ,"return false"">")+14isim12 = instr(1, bol3 ,"")isim10 = mid(bol3 , isim11, isim12-isim11)response. Write ">"&isim10&""next bu xml ile mi çalışıyo benim normal kodlardan çekmem lazım :S

veri tabanı yokki olay şu http://www.olcal.com/asp-ile-bot-yapimi.htmlbilgi sahibi biri var mı