我想做个ASP小偷偷这个广告页面？

<%@Language="VBScript" CodePage="65001"%>
<%
Response.CharSet = "UTF-8"
Class Search
Private XmlHttp

Private Sub Class_Initialize()
Set XmlHttp = Server.CreateObject("Microsoft.XmlHttp")
End Sub

Private Sub Class_Terminame()
Set XmlHttp=Nothing
End Sub

Public Function GetInfo(Url , Format)
If Trim(Url) = "" then
GetInfo= ""
Else
GetInfo = GetHttpPage(Url, Format)
End If
End Function

Public Function Print(Str)
Response.Write Str
End Function

Public Function GetHttpPage(HttpUrl , Format)
'Session.CodePage = 936
'Response.Charset = Codes
'Response.ContentType = "text/html"
If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If