İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

asp Livescore Scripti Yardım livescore scripti arıyorum.

L

lusek

0
İyinet Üyesi
Katılım
9 Şubat 2011
Mesajlar
62
Reaction score
0
<%
renk1="cccccc"
renk2="ededed"
renk3="cccccc"


private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0" )

if request("lig")<>"" then
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll?page="&request("lig"), false
else
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll", false
end if

StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(URL)


basla="<table width=""468"" bgcolor=""#666666"" cellspacing=""0"" cellpadding=""0"" border=""0"">"
bitir="<td colspan=""4"" height=""4""></td></tr></table>"
itibaren = Instr(site,basla)
ekadar = Instr(site,bitir)

site = Mid(site,itibaren,ekadar-itibaren)

site=replace(site,"#666666",renk1)
site=replace(site,"#333333",renk2)
site=replace(site,"#111111",renk3)



site=replace(site,"/default.dll/Game","gjersisht.asp")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")


%>
<html>
<head>
<title>ShikoLive.COM "Rezultatet e Ndeshjeve Futbollistike Drejpërdrejt Në Kompjuterin Tuaj"</title>
<META HTTP-EQUIV="REFRESH" CONTENT="100">
<LINK href="style.css" type=text/css rel=stylesheet>
<head>
<body>

<%=site%>
<td colspan="4" height="4"></td></tr></table>

Yukarıda belirtiğim kırmızılı yerleri güncelledim canlı sonuçlar görünmeye başladı,
ama canlı maçları tıklayınca ayrıntı sayfasında sayfa görüntülenmiyor.
 
S

simple

0
İyinet Üyesi
Katılım
15 Ocak 2008
Mesajlar
153
Reaction score
0
Burada sadece get methoduyla bir veri gönderip cevabı alıp yazdırmışsınız. Gelen veriyi buraya koyabilirseniz yarıdımcı olayım. html kaynağıda olabilir.

muhtemelen aşağıdaki satırlarda sorun var

site=replace(site,"/default.dll/Game","gjersisht.asp")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")
 
L

lusek

0
İyinet Üyesi
Katılım
9 Şubat 2011
Mesajlar
62
Reaction score
0
<%
renk1="cccccc"
renk2="ededed"
renk3="cccccc"
renk4="000080"

private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0" )

if request("lig")<>"" and request("oyun")<>"" then
StrHTTP.Open "GET" , "http://livescore.tv/default.dll/Game?comp="&request("lig")&"&game="&request("oyun"), false
else
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll", false
end if

StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(URL)


basla="<body"
bitir="</body>"
itibaren = Instr(site,basla)
ekadar = Instr(site,bitir)
site = Mid(site,itibaren,ekadar-itibaren)




site=replace(site,"#666666",renk1)
site=replace(site,"#333333",renk2)
site=replace(site,"#333333",renk3)
site=replace(site,"Copyright © 2007 ShikoLive.Com  ","Author Cana")


site=replace(site,"/default.dll/Game","gjersisht.asp")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")


%>
<html>
<head>
<title>ShikoLive.COM</title>
<head>
<body>
<LINK href="style.css" type=text/css rel=stylesheet>

<%=site%>
</body></html>
<script language=JavaScript>
<!--

//Disable right click script III- By Renigade ([email protected])
//For full source code, visit http://www.dynamicdrive.com

var message="";
///////////////////////////////////
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers)
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}

document.oncontextmenu=new Function("return false")
// -->
</script>
 
S

simple

0
İyinet Üyesi
Katılım
15 Ocak 2008
Mesajlar
153
Reaction score
0
gelen veride linkler nasıl geliyor? Html kaynağını yapıştırabilir misiniz? ya da sadece linkte olabilir.
 
L

lusek

0
İyinet Üyesi
Katılım
9 Şubat 2011
Mesajlar
62
Reaction score
0
ikinci kopyaladığım gjersisht.asp sayfası

gjersisht.asp bu sayfa da normalde sonuçlar açılması lazım ama açılmıyor.
 
S

simple

0
İyinet Üyesi
Katılım
15 Ocak 2008
Mesajlar
153
Reaction score
0
çektiğin verideki linkler senin istediğin şekilde değişmediği için sayfa açılmıyor. Şimdi düzeltiyorum.
 
S

simple

0
İyinet Üyesi
Katılım
15 Ocak 2008
Mesajlar
153
Reaction score
0
<%
renk1="cccccc"
renk2="ededed"
renk3="cccccc"
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )

if request("lig")<>"" then
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll?page="&request("lig"), false
else
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll", false
end if

StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(URL)


basla="<table width=""468"" bgcolor=""#666666"" cellspacing=""0"" cellpadding=""0"" border=""0"">"
bitir="<td colspan=""4"" height=""4""></td></tr></table>"
baslangic = split(site,basla)
bitis = split(baslangic(1),bitir)
site=bitis(0)

site=replace(site,"#666666",renk1)
site=replace(site,"#333333",renk2)
site=replace(site,"#111111",renk3)



site=replace(site,"default.dll","gjersisht.asp")
site=replace(site,"/game","")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")


%>
<html>
<head>
<title>ShikoLive.COM "Rezultatet e Ndeshjeve Futbollistike Drejpërdrejt Në Kompjuterin Tuaj"</title>
<META HTTP-EQUIV="REFRESH" CONTENT="100">
<LINK href="style.css" type=text/css rel=stylesheet>
<head>
<body>
<table>
<%=site%>
 
S

simple

0
İyinet Üyesi
Katılım
15 Ocak 2008
Mesajlar
153
Reaction score
0
buda gjersisht.asp




<%
renk1="cccccc"
renk2="ededed"
renk3="cccccc"
renk4="000080"

private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )

if request("lig")<>"" and request("oyun")<>"" then
StrHTTP.Open "GET" , "http://livescore.tv/default.dll/Game?comp="&request("lig")&"&game="&request("oyun" ), false
else
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll", false
end if

StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(URL)


basla="<body"
bitir="</body>"
itibaren = Instr(site,basla)
ekadar = Instr(site,bitir)
site = Mid(site,itibaren,ekadar-itibaren)




site=replace(site,"#666666",renk1)
site=replace(site,"#333333",renk2)
site=replace(site,"#333333",renk3)
site=replace(site,"Copyright © 2007 ShikoLive.Com  ","Author Cana")


site=replace(site,"/default.dll/Game","gjersisht.asp")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")


%>
<html>
<head>
<title>ShikoLive.COM</title>
<head>
<body>
<LINK href="style.css" type=text/css rel=stylesheet>

<%=site%>
</body></html>
<script language=JavaScript>
<!--

//Disable right click script III- By Renigade ([email protected])
//For full source code, visit http://www.dynamicdrive.com

var message="";
///////////////////////////////////
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!docum ent.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers)
{document.captureEvents(Event.MOUSEDOWN);document. onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontext menu=clickIE;}

document.oncontextmenu=new Function("return false")
// -->
</script>
 
L

lusek

0
İyinet Üyesi
Katılım
9 Şubat 2011
Mesajlar
62
Reaction score
0
Öncelikler Çok teşekkür ediyorum Sonuçlar görünmeye başladı.

www.betskor.com

ortayı default asp den mi ayarlamam gerekiyor.
 
S

simple

0
İyinet Üyesi
Katılım
15 Ocak 2008
Mesajlar
153
Reaction score
0
rica ederim ben teşekkür ederim. Orta derken hangi kısımdan bahsediyorsunuz?
 
Cevap yazmak için giriş yap yada kayıt ol.

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Üst