Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá amigos
Adiministro um site e tenho recebido reclamamções de alguns internautas, dizendo que quando acessam determinada página usando o Mozzila ou Chrome, surge o seguinte alerta do Google:
Aviso: A visita a este site pode prejudicar seu computador.
O site em hxxp://www.maxicar.com.br contém elementos do site 94.247.2.195, que parece hospedar malwares (softwares que podem danificar o seu computador ou podem operá-lo sem seu consentimento). Seu computador pode ser infectado só por visitar um site que hospeda malware.
Para obter informações detalhadas sobre os problemas com esses elementos, visite a Página de diagnóstico de Navegação segura. do Google para 94.247.2.195.
Saiba mais sobre como se proteger do software prejudicial on-line.
Sei que a visita a este site pode prejudicar meu computador.
Já chequei a página e não encontrei nada de anormal. Já substitui por uma versão nova. Mas a mensagem continua aparecendo. O endereço da página supostamente infectada é:
hxxp://www.maxicar.com.br/old/carroslist_todos.asp?Submit43=De+A+a+Z
Segue abaixo o código da página para a análise dos amigos:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Maxicar.com.br - O seu portal de veículos antigos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}</script>
<script language="JavaScript" type="text/JavaScript">function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);</script>
<style type="text/css"> font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
color: #666666;
} font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
color: #666666;
}
.textoMedio {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
}</style>
</head>
<body leftmargin="0" topmargin="0"><p>
<% Session.Timeout= 40%>
<%' Open connection to the database
set Conn = Server.CreateObject("ADODB.Connection")
cnpath=server.mappath("/")
cnpath=left(cnpath, len(cnpath)-3) & "dados\old.mdb"
Conn.Open "Data Source=" & cnpath & ";Provider=Microsoft.Jet.OLEDB.4.0;"
' Build SQL
sSql = "SELECT * FROM [carros]"
' Load Default Order
sDefaultOrderBy = "[marca] ASC"
sWhere = ""
If sDefaultFilter <> "" Then
sWhere = sWhere & "(" & sDefaultFilter & ") AND "
End If
If sDbWhere <> "" Then
sWhere = sWhere & "(" & sDbWhere & ") AND "
End If
If Right(sWhere, 5) = " AND " Then sWhere = Left(sWhere, Len(sWhere)-5)
If sWhere <> "" Then
sSql = sSql & " WHERE " & sWhere
End If
If sGroupBy <> "" Then
sSql = sSql & " GROUP BY " & sGroupBy
End If
If sHaving <> "" Then
sSql = sSql & " HAVING " & sHaving
End If
' Set Up Sorting Order
sOrderBy = ""
SetUpSortOrder()
If sOrderBy <> "" Then
sSql = sSql & " ORDER BY " & sOrderBy
End If
'Session("ewmsg") = sSql ' Uncomment to show SQL for debugging
%>
<script type="text/javascript" src="ew.js"></script>
<script type="text/javascript"> sSqlMaster = "SELECT * FROM [carros]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sSqlMaster, conn
If Not rs.Eof Then %>
<script language="JavaScript" type="text/JavaScript">function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);</script>
<script language="JavaScript" type="text/JavaScript">function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}</script>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="780" border="0" cellpadding="5" cellspacing="15">
<tr>
<td width="730" height="684" valign="top">
<div align="left">
<div align="left">
<%
End If
rs.Close
Set rs = Nothing </div>
<p><span class="aspmaker" style="color: Red;"><%= Session("ewmsg") %></span></p>
<p>
<%
Session("ewmsg") = "" ' Clear message </p>
</div>
<p> <img src="/old/tit_busca2.jpg" width="556" height="67"></p>
<form method="post">
<p>
<style type="text/css"></style>
</p>
<table width="56%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5%"> </td>
<td width="95%"><div align="left"><font color="#FFFFFF"><span class="aspmaker" style="color: #FFFFFF;"><a href="carroslist_todos.asp?order=<%= Server.URLEncode("marca") %>" style="color: #FFFFFF;"><strong><font color="#FF9900">•
ORDENAR POR MARCA</font></strong></a> </span></font><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">(crescente/decrescente)
</font></div></td>
</tr>
</table>
<table width="750" height="103" border="0" cellpadding="12" cellspacing="0">
<tr>
<td width="696">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC" class="tabelalistacarros">
<% If nTotalRecs > 0 Then %>
<!-- Table header -->
<tr bgcolor="#000000">
<td width="11%" valign="top"><span class="aspmaker" style="color: #FFFFFF;">
</span></td>
<td width="30%" valign="top"> <div align="center"><span class="aspmaker" style="color: #FFFFFF;"><font color="#FFFFFF"><span class="aspmaker" style="color: #FFFFFF;">VEÍCULO</span></font>
</span></div></td>
<td width="25%" valign="top"> <div align="center"><font color="#FFFFFF"> CIDADE</font></div></td>
<td width="14%"> <div align="center"><font color="#FFFFFF">PREÇO</font></div></td>
</tr>
<% End If %>
<%' Avoid starting record > total records
If CLng(nStartRec) > CLng(nTotalRecs) Then
nStartRec = nTotalRecs
End If
' Set the last record to display
nStopRec = nStartRec + nDisplayRecs - 1
' Move to first record directly for performance reason
nRecCount = nStartRec - 1
If Not rs.Eof Then
rs.MoveFirst
rs.Move nStartRec - 1
End If
nRecActual = 0
Do While (Not rs.Eof) And (nRecCount < nStopRec)
nRecCount = nRecCount + 1
If CLng(nRecCount) >= CLng(nStartRec) Then
nRecActual = nRecActual + 1
' Set row color
sItemRowClass = " bgcolor=""#FFFFFF"""
' Display alternate color for rows
If nRecCount Mod 2 <> 0 Then
sItemRowClass = " bgcolor=""#F5F5F5"""
End If
' Load Key for record
sKey = rs("codigo")
x_codigo = rs("codigo")
x_fotogde1 = rs("fotogde1")
x_fotopeq1 = rs("fotopeq1")
x_fabrica = rs("fabrica")
x_chamada = rs("chamada")
x_marca = rs("marca")
x_modelo = rs("modelo")
x_cor = rs("cor")
x_ano = rs("ano")
x_combustivel = rs("combustivel")
x_cidade = rs("cidade")
x_preco = rs("preco")
x_detalhes = rs("detalhes")
%>
<!-- Table body -->
<tr<%=sItemRowClass%>>
<!-- fotopeq1 -->
<td><span class="aspmaker">
<% If Not IsNull(x_fotopeq1) Then %>
<a href="carrosview.asp?key=<%= x_codigo %>"><img src="carros_fotopeq1_bv.asp?key=<%= x_codigo %>" border=0></a>
<% End If %>
</span></td>
<!-- fabrica -->
<!-- marca -->
<td><p><strong><span class="aspmaker"> <font color="#FF6600">
<% Response.Write x_marca %>
, </font></span></strong><font color="#FF6600"><span class="aspmaker">
<% Response.Write x_ano %>
<br>
<font color="#333333">
<% Response.Write x_chamada %>
</font></span></font></p>
<font color="#FF6600">
<p><span class="aspmaker"><a href="<% If Not IsNull(sKey) Then Response.Write "carrosview.asp?key=" & Server.URLEncode(sKey) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>" target="_blank">DETALHES
E FOTOS</a></span></p>
</font></td>
<td><div align="center"><span class="aspmaker"><font color="#333333">
<% Response.Write x_cidade %>
</font></span></div></td>
<!-- ano -->
<!-- preco -->
<td><div align="center"><span class="aspmaker"><font color="#333333">R$
<% Response.Write x_preco %>
<br>
</font> </span></div></td>
</tr>
<%
End If
rs.MoveNext </table></td>
</tr>
</table>
<div align="center">
<p align="left">
<%' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<%
If nTotalRecs > 0 Then
rsEof = (nTotalRecs < (nStartRec + nDisplayRecs))
PrevStart = nStartRec - nDisplayRecs
If PrevStart < 1 Then PrevStart = 1
NextStart = nStartRec + nDisplayRecs
If NextStart > nTotalRecs Then NextStart = nStartRec
LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
%>
</p>
<div align="left"></div>
<div align="center"></div>
</div>
</form>
<div align="center">
<p align="left"><form action="carroslist_todos.asp" name="ewpagerform" id="ewpagerform">
<tr>
<td nowrap> <font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif">Digite
a página desejada, e tecle "enter" ou navegue
utilizando as setas de direção</font>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td width="59"><span class="aspmaker"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Página</font> </span></td> <td width="16"><img src="images/firstdisab.gif" alt="First" width="16" height="16" border="0"></td>
<% Else %>
<td width="16"><a href="carroslist_todos.asp?start=1"><img src="images/first.gif" alt="First" width="16" height="16" border="0"></a></td>
<% End If %> <td width="16"><img src="images/prevdisab.gif" alt="Previous" width="16" height="16" border="0"></td>
<% Else %>
<td width="16"><a href="carroslist_todos.asp?start=<%=PrevStart%>"><img src="images/prev.gif" alt="Previous" width="16" height="16" border="0"></a></td>
<% End If %> <td width="16"><img src="images/nextdisab.gif" alt="Next" width="16" height="16" border="0"></td>
<% Else %>
<td width="16"><a href="carroslist_todos.asp?start=<%=NextStart%>"><img src="images/next.gif" alt="Next" width="16" height="16" border="0"></a></td>
<% End If %> <td width="16"><img src="images/lastdisab.gif" alt="Last" width="16" height="16" border="0"></td>
<% Else %>
<td width="16"><a href="carroslist.asp?start=<%=LastStart%>"><img src="images/last.gif" alt="Last" width="16" height="16" border="0"></a></td>
<% End If %>
<td width="75"><span class="aspmaker"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">de
</font><%=(nTotalRecs-1)\nDisplayRecs+1%></span></td>
</tr></table>
<br>
<% If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs
nStopRec = nStartRec + nDisplayRecs - 1
nRecCount = nTotalRecs - 1
If rsEOF Then nRecCount = nTotalRecs
If nStopRec > nRecCount Then nStopRec = nRecCount %>
<span class="aspmaker"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Veículos
de </font><%= nStartRec %> a <%= nStopRec %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<font color="#FF6600">Total de veículos anunciados:</font></font><%= nTotalRecs %></span> <span class="aspmaker"><font color="#FF6600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Nenhum
veículo localizado. Refaça a sua busca!</strong></font></span>
<% End If %>
</td>
</tr>
</table>
</form>
<div id="categoria" style="position:absolute; width:165px; height:117px; z-index:4; top: 522px; left: 782px; visibility: visible;">
<table width="100%" height="0" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="70
" valign="top"> <form action="carroslist_marcas.asp">
<table height="78" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="377" height="76" valign="top"> <table width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td height="73" valign="top" bgcolor="#000000"> <div align="center">
<p><font color="#FF9900" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="[http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"](http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0) width="160" height="48">
<param name="movie" value="tit_busca.swf">
<param name="quality" value="high">
<param name="BGCOLOR" value="#000000">
<embed src="tit_busca.swf" width="160" height="48" quality="high" pluginspage="[http://www.macromedia.com/go/getflashplayer"](http://www.macromedia.com/go/getflashplayer) type="application/x-shockwave-flash" bgcolor="#000000"></embed></object>
<font size="1">• NOVA BUSCA •<br>
</font></strong></font><br>
<strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">por
marca</font></strong>
<input name="buscamarca" type="text" id="buscamarca" size="8" maxlength="30">
<input type="Submit" name="Submit3" value="Ok">
</p>
</div></td>
</tr>
</table>
</table>
</form></td>
</tr>
</table>
</div>
<div id="Layer1" style="position:absolute; width:172px; height:257px; z-index:1; left: 782px; top: 656px;">
<p>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="[http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"](http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0) width="160" height="60">
<param name="movie" value="banner_retromobile_160.swf">
<embed src="banner_retromobile_160.swf" pluginspage="[http://www.macromedia.com/go/getflashplayer"](http://www.macromedia.com/go/getflashplayer) type="application/x-shockwave-flash" width="160" height="60"></embed>
</object>
</p>
<table width="160" border="1" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#F8F8F8">
<tr>
<td width="209" valign="top" bordercolor="#FFFFFF"><div align="center"><font color="#333333" size="1"><a href="maxiagente.asp"><img src="maxiagenteold.gif" width="60" height="53" hspace="0" vspace="0" border="0"></a></font><font color="#006699" size="1" face="Arial, Helvetica, sans-serif"><em><strong><br>
</strong></em><strong><font color="#666666" size="2">Não achou
o carro que queria? </font><font size="2"><font color="#FF6600">Que
tal se nós procurarmos <br>
para você?</font></font></strong></font></div></td>
</tr>
</table>
<p>
<script type="text/javascript"><!--
google_ad_client = "pub-8322163022255376";google_ad_slot = "4875977087";
google_ad_width = 160;
google_ad_height = 600; </script>
<script type="text/javascript" </script>
</p>
</div></p>
<table width="84%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td height="155" valign="top">
<div align="center">
<p align="center">
<% Else %>
<strong><font color="#FF6600" size="3" face="Verdana, Arial, Helvetica, sans-serif">
<font size="2">NO MOMENTO NÃO
HÁ<br>
NENHUM
VEÍCULO <br>
CADASTRADO
NESTA CATEGORIA</font></font></strong><font face="Verdana, Arial, Helvetica, sans-serif">.</font>
<% End If %>
</p>
<p><font face="Verdana, Arial, Helvetica, sans-serif"></font><a href="index.asp"><img src="voltar1.gif" alt="Voltar" width="70" height="21" border="0"></a>
</p><%
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
' Function SetUpSortOrder
' - Set up Sort parameters based on Sort Links clicked
' - Variables setup: sOrderBy, Session("Table_OrderBy"), Session("Table_Field_Sort")
Sub SetUpSortOrder()
Dim sOrder, sSortField, sLastSort, sThisSort
Dim bCtrl
' Check for an Order parameter
If Request.QueryString("order").Count > 0 Then
sOrder = Request.QueryString("order")
' Field fabrica
If sOrder = "fabrica" Then
sSortField = "[fabrica]"
sLastSort = Session("carros_x_fabrica_Sort")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session("carros_x_fabrica_Sort") = sThisSort
Else
If Session("carros_x_fabrica_Sort") <> "" Then Session("carros_x_fabrica_Sort") = ""
End If
' Field marca
If sOrder = "marca" Then
sSortField = "[marca]"
sLastSort = Session("carros_x_marca_Sort")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session("carros_x_marca_Sort") = sThisSort
Else
If Session("carros_x_marca_Sort") <> "" Then Session("carros_x_marca_Sort") = ""
End If
' Field modelo
If sOrder = "modelo" Then
sSortField = "[modelo]"
sLastSort = Session("carros_x_modelo_Sort")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session("carros_x_modelo_Sort") = sThisSort
Else
If Session("carros_x_modelo_Sort") <> "" Then Session("carros_x_modelo_Sort") = ""
End If
' Field cor
If sOrder = "cor" Then
sSortField = "[cor]"
sLastSort = Session("carros_x_cor_Sort")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session("carros_x_cor_Sort") = sThisSort
Else
If Session("carros_x_cor_Sort") <> "" Then Session("carros_x_cor_Sort") = ""
End If
' Field ano
If sOrder = "ano" Then
sSortField = "[ano]"
sLastSort = Session("carros_x_ano_Sort")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session("carros_x_ano_Sort") = sThisSort
Else
If Session("carros_x_ano_Sort") <> "" Then Session("carros_x_ano_Sort") = ""
End If
' Field preco
If sOrder = "preco" Then
sSortField = "[preco]"
sLastSort = Session("carros_x_preco_Sort")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session("carros_x_preco_Sort") = sThisSort
Else
If Session("carros_x_preco_Sort") <> "" Then Session("carros_x_preco_Sort") = ""
End If
Session("carros_OrderBy") = sSortField & " " & sThisSort
Session("carros_REC") = 1
End If
sOrderBy = Session("carros_OrderBy")
If sOrderBy = "" Then
sOrderBy = sDefaultOrderBy
Session("carros_OrderBy") = sOrderBy
Session("carros_x_marca_Sort") = "ASC"
End If
End Sub
'-------------------------------------------------------------------------------
' Function SetUpStartRec
' - Set up Starting Record parameters based on Pager Navigation
' - Variables setup: nStartRec
Sub SetUpStartRec()
Dim nPageNo
' Check for a START parameter
If Request.QueryString("start").Count > 0 Then
nStartRec = Request.QueryString("start")
Session("carros_REC") = nStartRec
ElseIf Request.QueryString("pageno").Count > 0 Then
nPageNo = Request.QueryString("pageno")
If IsNumeric(nPageNo) Then
nStartRec = (nPageNo-1)*nDisplayRecs+1
If nStartRec <= 0 Then
nStartRec = 1
ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then
nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
End If
Session("carros_REC") = nStartRec
Else
nStartRec = Session("carros_REC")
If Not IsNumeric(nStartRec) Or nStartRec = "" Then
nStartRec = 1 ' Reset start record counter
Session("carros_REC") = nStartRec
End If
End If
Else
nStartRec = Session("carros_REC")
If Not IsNumeric(nStartRec) Or nStartRec = "" Then
nStartRec = 1 'Reset start record counter
Session("carros_REC") = nStartRec
End If
End If
End Sub
'-------------------------------------------------------------------------------
%>
Carregando comentários...