<%


'下面的常用函數'首先，進行小偷程序的一些初始化設置，以下代碼的作用分別是忽略掉所有非致命性錯誤，把小偷程序的運行超時時間設置得很長（這樣不會出現運行超時的錯誤）， 

On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GETBody(Path)
End function


'---------------------------------盜竊開始設置------------------------------------------------


'1、下面是經典的小偷核發心源碼.輸入url目標網頁地址，返回值getHTTPPage是目標網頁的代碼 
function getHTTPPage(url) 
dim Http 
set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") '注意WAP網頁用utf-8,WEB用gb2312
set http=nothing 
if err.number<>0 then err.Clear 
end function 


'2、轉換亂瑪，直接用xmlhttp調用有中文字符的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換 
Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
%>