music_top.asp

个人求职网源代码

<%
Server.ScriptTimeOut=180

Function bytes2BSTR(vIn) 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function 

dim Sword,Url,SourceCode
dim betw,first,ct
dim top
top=cint(Request.QueryString("top"))
if top=1 then
Url = "http://top.baidu.com/mp3.html"
elseif top=3 then
Url = "http://top.baidu.com/ygeshou.html"
elseif top=2  then
Url = "http://top.baidu.com/ngeshou.html"
else
Url = "http://top.baidu.com/mp3.html"

end if
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false) 
oSend.send()

if err.number<>0 then
Response.write err.description
Response.End()
end if  

SourceCode = bytes2BSTR(oSend.responseBody)

 betw=instr(SourceCode,"<table width=""610"" border=""0"" cellspacing=""0"" cellpadding=""0"">")-instr(SourceCode,"<table width=""610"" border=""0"" cellpadding=""5"" cellspacing=""0"" class=""p12black"">") 
 first=instr(SourceCode,"<table width=""610"" border=""0"" cellspacing=""0"" cellpadding=""0"">") 
 SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"width=""610""","width=100%")
SourceCode =replace(SourceCode,"width=""559""","width=100%")
SourceCode =replace(SourceCode,"<td height=""25"" width=""9"">","<td height=""25"" width=""9"" bgcolor=""#6DC860"">")
SourceCode =replace(SourceCode,"bgcolor=""#0000cc""","bgcolor=""#6DC860""")
SourceCode =replace(SourceCode,"<td width=""8"">","<td width=""8"" bgcolor=""#6DC860"">")
%>
<title>排行榜</title>
<STYLE>A:link {
	COLOR: #000000
}
A:visited {
	COLOR: #000000
}
A:hover {
	COLOR: #fb0000
}
TD {
	FONT-SIZE: 9pt
}
HR {
	WIDTH: 100%; COLOR: #808080; HEIGHT: 1px
}
BODY {
	FONT-FAMILY: "宋体"; SCROLLBAR-DARKSHADOW-COLOR: #000000
}
.button {
	BORDER-RIGHT: 1px ridge; BORDER-TOP: #ffffff 1px ridge; FONT-SIZE: 12px; BORDER-LEFT: #ffffff 1px ridge; BORDER-BOTTOM: 1px ridge; HEIGHT: 14pt; BACKGROUND-COLOR: #cccccc
}
.border2 {
	BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid
}
.border1 {
	BORDER-RIGHT: #104a7b 1px solid; BORDER-TOP: #afc4d5 1px solid; FONT-SIZE: 9pt; BACKGROUND: #d6e7ef; BORDER-LEFT: #afc4d5 1px solid; CURSOR: hand; COLOR: #000066; BORDER-BOTTOM: #104a7b 1px solid; FONT-FAMILY: 宋体,MS SONG,SimSun,tahoma,sans-serif; HEIGHT: 19px; TEXT-DECORATION: none
}
A.tab {
	FONT-SIZE: 9pt; COLOR: #ffffff; FONT-FAMILY: 宋体,MS SONG,SimSun,Tahoma, san-serif; TEXT-DECORATION: none
}
FONT.tab {
	FONT-SIZE: 9pt; COLOR: #f4d500; FONT-FAMILY: 宋体,MS SONG,SimSun,Tahoma, san-serif
}
.title0 {
	FONT-WEIGHT: bold; FONT-SIZE: 17px; COLOR: #000000; FONT-FAMILY: arial; TEXT-DECORATION: none
}
</STYLE>
<style type="text/css">
<!--
.aaaaa {
	font-size: 12px;
}
-->
</style>
<style type="text/css">
<!--
.unnamed1 {
	line-height: 20px;
}
-->
</style>
<div align="center">
<%=SourceCode%></div>