¿Quiero crear una ASP para infiltrarme en esta página de anuncios?
lt;@Language="VBScript" CodePage="65001"gt;
lt;
Response.CharSet = "UTF-8"
Búsqueda de clases
Private XmlHttp
Private Sub Class_Initialize()
Establecer XmlHttp = Server.CreateObject("Microsoft.XmlHttp")
End Sub
Subclase privada_Terminame()
Establecer XmlHttp=Nada
Finalizar sub
Función pública GetInfo(Url, Formato)
Si Trim(Url) = "" entonces
GetInfo= ""
De lo contrario
GetInfo = GetHttpPage(Url, Formato)
Finalizar si
Finalizar función
Función pública Imprimir(Str)
Respuesta.Escribir cadena
Finalizar función
Función pública GetHttpPage(HttpUrl, Formato)
'Session.CodePage = 936
'Response.Charset = Códigos