toplist.asp

DJ音乐小偷免维护版

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

on error resume next

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

url="http://www.djkk.com/toplist.asp?"&ht
	softshow=getHTTPPage(url)
	start=Instr(softshow,"<table cellspacing=0 bordercolordark=#ffffff")
	over=Instr(softshow,"</tr> </form>")+23
	softshow=mid(softshow,start,over-start)
	'softshow=replace(softshow,"toplist","toplist.asp?id=toplist")
	'start=Instr(softshow,"<table border=""1""")
	'over=Instr(softshow,"<script language=""javascript"">")
	'softshow=mid(softshow,start,over-start)	
	
	softshow=replace(softshow,"option value=""","option value=""toplist.asp?page=")
	softshow=replace(softshow,"onchange=""javascript:submit()"">","onChange=""javascript:window.open(this.options[this.selectedIndex].value)"">")	
%>
<!--#include file="top.asp"-->
<style type="text/css">
A {
	FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A:active {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A:hover {
	LEFT: 1px; COLOR: #00ff00; POSITION: relative; TOP: 1px; TEXT-DECORATION: none
}
A:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.t {
	LINE-HEIGHT: 1.4
}
P {
	FONT-SIZE: 9pt; LINE-HEIGHT: 12pt
}
TD {
	FONT-SIZE: 9pt; LINE-HEIGHT: 12pt
}
DIV {
	FONT-SIZE: 9pt
}
INPUT {
	FONT-SIZE: 9pt; FONT-FAMILY: "Tahoma", "Verdana"
}
</style>
<%=softshow%>

<%
	  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 
%>