03.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://qq.qqcn.cn/link/link.asp?suser=wz899&stbbg=ffffff&stbbd=8EB3FF&sfclo=0051CA&sdn=2&srn=12&stali=center&stbh=240&stbw=200&sopentype=5&swebtype=1 target=_blank"))
%>