01.asp

来自「本《华军软件园》软件小偷完美的实现asp《华军软件园》软件小偷的空缺!速度很快,」· ASP 代码 · 共 33 行

<%
On Error Resume Next 
Server.ScriptTimeOut=9999999 
Function getHTTPPage(Path) 
	t = GetBody(Path) 
	getHTTPPage=BytesToBstr(t,"GB2312") 
End function 
Function GetBody(url) 
	on error resume next 
	Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
	With Retrieval 
	.Open "Get", url, False, "", "" 
	.Send 
	GetBody = .ResponseBody 
	End With 
	Set Retrieval = Nothing 
End Function 
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 
response.write(getHTTPPage("http://w3.001122.com/link/sc/0_15_2.php?u=wz899&type=0&w=2&h=15&fc=220000&bgc=ffffff&bdc=FF0000&al=center&tw=212&th=330"))
%>