index1.asp

DJ音乐小偷免维护版

<%
dim wstr,fldr,url,softcode,ht,softshow,her,hot

on error resume next

ht = Request.ServerVariables("QUERY_STRING")
ht = Right(ht,Len(ht)-3)

url="http://www.djkk.com/"
	softshow=getHTTPPage(url)
	'start=Instr(her,"<TABLE cellSpacing=0 cellPadding=0 width=550 border=0>")
	'over=Instr(her,"<TABLE cellSpacing=0 cellPadding=0 width=550 border=0>")+30
	'softcode=mid(her,start,over-start)
	'softshow=replace(her,softcode,"")
	start=Instr(softshow,"<table border=0 cellpadding=0 cellspacing=0 height=222")
	over=Instr(softshow,"<table border=0 cellpadding=0 cellspacing=1 width=""100%"">")-165
	softcode=mid(softshow,start,over-start)	

	start=Instr(softshow,"<IMG height=20 src=""images/Newwuqu")+82
	over=Instr(softshow,"<TD width=198 height=""14""><IMG height=20 src=""images/djmusicserach")-16
	hot=mid(softshow,start,over-start)
	
	'softshow=replace(softshow,"href=""","href=""pic.asp?id="&ht&"/")
	softcode=replace(softcode,"dj?","dj.asp?")	
	hot=replace(hot,"dj?","dj.asp?")
%>
<%=hot%>

<%=softcode%>
<%
	  function getHTTPPage(url) 
		on error resume next 
		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=bytes2BSTR(Http.responseBody) 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
	Function bytes2BSTR(vIn) 
		dim strReturn 
		dim i1,ThisCharCode,NextCharCode 
		strReturn = "" 
		For i1 = 1 To LenB(vIn) 
			ThisCharCode = AscB(MidB(vIn,i1,1)) 
			If ThisCharCode < &H80 Then 
				strReturn = strReturn & Chr(ThisCharCode) 
			Else 
				NextCharCode = AscB(MidB(vIn,i1+1,1)) 
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
				i1 = i1 + 1 
			End If 
		Next 
		bytes2BSTR = strReturn 
	End Function 
%>