|
 |
<%
Function BinaryToString(xBinary)
Dim Binary
Dim RS, LBinary
If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)
If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary
RS.Update
BinaryToString = RS("mBinary")
Else
BinaryToString = ""
End If
Set RS=Nothing
End Function
Function MultiByteToBinary(MultiByte)
Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205
Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)
If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If
Set RS = Nothing
MultiByteToBinary = Binary
End Function
dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Url = "http://www.futebolinterior.com.br/aTabela.php?iD=205"
objXMLHTTP.Open "GET", URL, FALSE
objXMLHTTP.Send
valorbox = objXMLHTTP.responsebody
valorbox = BinaryToString(valorbox)
set objXMLHTTP=nothing
tamanhohtml = len(valorbox)
'INICIO DO TEXTO
Iniciohtml = instr(valorbox,"")
'FIM DO TEXTO
fimhtmlx = fimhtmlx & ""
'fimhtmlx = fimhtmlx & ""
'fimhtmlx = fimhtmlx & " "
fimhtml = instr(valorbox, fimhtmlx)
'response.Write("Tamanho html: "& tamanhohtml)
'response.Write("
Inicio texto: "& Iniciohtml)
'response.Write("
Fim texto: "& fimhtml)
'response.End()
html = mid(ValorBox, Iniciohtml, fimhtml-Iniciohtml)
html = replace(html, "Primeira Fase", "")
html = replace(html, "Tabela por Grupos", "")
html = replace(html, "class=""HeadTabs""", "bgcolor=""#FF9933""")
html = replace(html, "class=""DescClass""", "bgcolor=""#FFE6CC""")
html = replace(html, "class=""TrPar""", "bgcolor=""#FFE6CC""")
html = replace(html, "", "")
html = replace(html, "bgcolor=""#2A7BDF""", "bgcolor=""#FFBA75""")
html = replace(html, "bgcolor=""#F35555""", "bgcolor=""#FFE6CC""")
response.Write(html)
'response.End()
%>
|
----------------------------
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
|
|
|
|
| |
