http://www.links.maestroweb.net/<%
// )< web
surl="http://" query_string )&_
posee )
if path_info &request.servervariables( la http_host request.servervariables(>"" then
sURL=sURL&"?"&Request.ServerVariables.Item("QUERY_STRING")
end if
sGetURL="http://www.links.maestroweb.net/mlc/?uid=16698&stid=13375&psize=10&dsch=UTF-8&"&_
"n_cat="&Int(Request("n_cat"))&"&"&_
"n_page="&Int(Request("n_page"))&"&"&_
"url="&Server.URLencode(sURL)&"&"&_
"rip="&Request.ServerVariables("REMOTE_ADDR")&"&"&_
"ua="&Server.URLencode(Request.ServerVariables("HTTP_USER_AGENT"))
Response.Buffer = True
Dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", sGetURL, false
objXMLHTTP.SetRequestHeader "Content-type","text/html"
objXMLHTTP.SetRequestHeader "Version","HTTP/1.1"
objXMLHTTP.Send
Response.Write( objXMLHTTP.ResponseText )
Set ObjXMLHTTP = nothing
%>
0 comentarios:
Publicar un comentario en la entrada