www.pudn.com > bt.rar > down2.asp, change:2006-01-08,size:2355b


<% 
Function content 
	dim lsstart,lsend,lsstr,lstemp 
	on error resume next 
 
	dir=request("dir") 
	btfileid=request("btfileid") 
	if dir="" and btfiledid="" then 
	url="http://218.16.119.106:81/"&dir&"/"&btfileid&".torrent" 
	else 
	url="http://218.16.119.106:81/"&dir&"/"&btfileid&".torrent" 
	end if	 
 
	lsstr=getHTTPPage(url) 
	lsstart=instr(lsstr,"<body>") 
	lsend=instr(lsstr,"</body>") 
	lstemp=mid(lsstr,lsstart,lsend-lsstart) 
	'if err.number<>0 then 
	'response.redirect "./" 
	'else 
	response.redirect url 
	'end if 
	 
end function 
 
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,"GB2312") 
	set http=nothing 
End function 
 
Function PostHTTPPage(url,strForm) 
	dim http  
	set http=Server.createobject("Microsoft.XMLHTTP")  
	Http.open "POST",url,false  
	http.setRequestHeader "Content-Length",len(strForm) 
    http.setRequestHeader "Content-Type","application/x-www-form-urlencoded" 
	Http.send(strForm)	 
	if Http.readystate<>4 then 
		exit function  
	end if  
	PostHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") 
	set http=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 
%> 
 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>就是NB--BT种子下载</title> 
<meta content="就是NB--BT种子下载中心、提供各类BT种子" name="description"> 
<meta content="就是NB--BT种子下载中心、提供各类BT种子,注册机、注册码、破解版、破解补丁、serials、keygen download" name="keywords"> 
<META http-equiv=Content-Type content="text/html; charset=gb2312"> 
<link href="images/style.css" rel="stylesheet" type="text/css"> 
<meta http-equiv="Content-Language" content="zh-CN" /> 
<div style="display:none"><script src='http://s2.cnzz.com/stat.php?id=405&web_id=2528' language='JavaScript' charset='gb2312'></script></div> 
</head> 
<body leftmargin=0 topmargin=0> 
<%content%> 
</body> 
</html>