Asptear Kullanımında Problem

08/Ağu/10 23:25

Kısayol

Şikayet

Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

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 3
Set stTear = Server.CreateObject("Softwing.AspTear")

Alıntı yap

08/Ağu/10 23:41

Kısayol

Şikayet

Özel Mesaj

Bektas
x-files

Kayıt Tarihi: 06/Eylül/2005

abi salt okunur olmasın veri tabanı

//Hayat Bazen Tatlıdır//--//Aşıksan vur saza şoförsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

Alıntı yap

08/Ağu/10 23:46

Kısayol

Şikayet

Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

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

Alıntı yap

09/Ağu/10 14:54

Kısayol

Şikayet

Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

up up upu up

Alıntı yap

09/Ağu/10 17:43

Kısayol

Şikayet

Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

netten şunu buldum bunu başka bi siteye nasıl uygulayabilirim

Response.CodePage = 65001 
Response.CharSet = "utf-8" 
private Function GETHTTP(adres)  
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )  
StrHTTP.Open "GET" , adres, false  
StrHTTP.sEnd  
GETHTTP = fonkStream(strhttp.ResponseBody,"windows-1254") 
Set StrHTTP = Nothing  
End Function  

function fonkStream(Veri,KarakterSet)
dim objStream
set objStream = Server.CreateObject("ADODB.Stream")
 objStream.Type = 1
 objStream.Mode = 3
 objStream.Open
 objStream.Write Veri
 objStream.Position = 0
 objStream.Type = 2
 objStream.Charset = KarakterSet
 fonkStream = objStream.ReadText 
 objStream.Close
set objStream = Nothing
end function

site = gethttp("http://kayserieo.org.tr") 
bol = split(site,"")
bol2 = split(bol(1),"")
response.Write "24 saat açıklar 
"
for i=1 to ubound(bol2)
isim1 = instr(1,bol2(i),"return false"">")+14
isim2 = instr(1,bol2(i),"")
isim = mid(bol2(i),isim1,isim2-isim1)
response.Write ">"&isim&"
" 
next
kes1 = instr(1,bol(2),"24 saat açıklar")+15
kes2 = instr(1,bol(2),"")
kes = mid(bol(2),kes1,kes2-kes1) 
response.Write "gece 1 e kadar acıklar 
"
bol3 = split(kes,"")
for a=1 to ubound(bol3)
isim11 = instr(1,bol3(a),"return false"">")+14
isim12 = instr(1,bol3(a),"")
isim10 = mid(bol3(a),isim11,isim12-isim11)
response.Write ">"&isim10&"
"
next

bu xml ile mi çalışıyo benim normal kodlardan çekmem lazım :S

Alıntı yap

09/Ağu/10 18:11

Kısayol

Şikayet

Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

<%
On Error Resume Next
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
objXmlHttp.open "GET", "http://www.tahribat.com", False
objXmlHttp.send

strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing

SAYFA = Server.HTMLEncode(strHTML)

BASLANGIC = Instr(1,SAYFA,"Mini")
BITIS = Instr(1,SAYFA,"Oy")
HESAPLA=BITIS - BASLANGIC

YAZILACAK = MID(SAYFA,BASLANGIC ,HESAPLA)

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

Alıntı yap

09/Ağu/10 18:38

Kısayol

Şikayet

Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

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

Alıntı yap

09/Ağu/10 18:40

Kısayol

Şikayet

Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

<%
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

On error resume next
site = "http://www.r10.net/asp/112001-asp-tear-kullanimi.html"

Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
HTTP.Open "Get" , site, False
HTTP.SEnd
Sayfa_Al = BinaryToString(HTTP.ResponseBody)
Set HTTP = Nothing

if err then

response.write "HATA: "&err.description

else
Basla = InStr(1,Sayfa_Al, "<title>" , 1) + Len("<title>" )
Bitir = InStr(Basla, Sayfa_Al, "</title>" , 1) - Basla
Title = Mid(Sayfa_Al, Basla, Bitir)
response.write Title &" "

Basla = InStr(1,Sayfa_Al, "<meta name=""keywords"" content=""" , 1) + Len("<meta name=""keywords"" content=""" )
Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla
Keyws = Mid(Sayfa_Al, Basla, Bitir)
response.write Keyws &" "

Basla = InStr(1,Sayfa_Al, "<meta name=""description"" content=""" , 1) + Len("<meta name=""description"" content=""" )
Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla
Descs = Mid(Sayfa_Al, Basla, Bitir)
response.write Descs &" "
end if

%>

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap

09/Ağu/10 18:52

Kısayol

Şikayet

Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

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

Alıntı yap