收藏本站

 找回密码
 新注册用户
搜索
中国分布式计算论坛»论坛 › 交流板块 › 计算机技术讨论区 › www.17yy.com 竟然自己就出现源码了
返回列表 发新帖
查看: 4325|回复: 2

www.17yy.com 竟然自己就出现源码了

[复制链接]
水鬼
发表于 2004-3-8 00:00:00 | 显示全部楼层 |阅读模式
刚才想听歌，谁知道却显示源码，奇怪。

<%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,page,Url,SourceCode,SeCondent,Setop,SeEnd
dim betw,first

Sword=trim(Request("key"))
if Sword="" then
response.redirect "http://www.17yy.com"
response.end
end if

if Request("pn")="" then
page=0
else
page=Request("pn")
end if
dim tn,ct,lm
tn=request("tn")
if tn="" or tn="wrsearch" then
tn="baidump3"
end if
ct=request("ct")
if ct="" then
ct="134217728"
end if
lm=trim(request("lm"))
if lm="" then
lm="-1"
end if

Url = "http://mp3.baidu.com/m?word="&Sword&"&pn="&page&"&tn="&tn&"&ct="&ct&"&lm="&lm
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)

if instr(SourceCode,"建议您检查输入文字有无错误")=0 then

betw=instr(SourceCode,"<TABLE bgColor=#e6e6e6 border=0 cellPadding=0 cellSpacing=0")-instr(SourceCode,"</ol>")
first=instr(SourceCode,"<TABLE bgColor=#e6e6e6 border=0 cellPadding=0 cellSpacing=0")
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"/baidu?","music.asp?")
SourceCode =replace(SourceCode,"<a href=""http://mp3.baidu.com/r?url=","<a onClick='return call(this.href);' href=""view.asp?url=")
SourceCode =replace(SourceCode,"http://mp3.baidu.com/m?tn=baidump3lyric&word=","music.asp?rn=10&tn=baidump3lyric&ct=150994944&lm=-1&x=20&y=15&key=")
SourceCode =replace(SourceCode,"word=","key=")
SourceCode =replace(SourceCode,"<TABLE bgColor=#e6e6e6","<TABLE bgColor=#e6e6e6 width=775")
tt1=split(SourceCode,"<ol>")

Setop="::悠游俱乐部音乐空间::<img src= http://un.baidu.com/images/st.gif?tn=cnunion width=0 height=0 border=0>"&Mid(tt1(0),instr(tt1(0),"为"),abs(instr(tt1(0),"为")-instr(tt1(0),"秒")))&"秒"
  
if request("tn")<>"baidump3lyric" then
betw=instr(tt1(0),"<table width=580 ")-instr(tt1(0),"<table width=175 ")
first=instr(tt1(0),"<table width=580 ")
SourceCode = Mid(tt1(0),first,abs(betw))
SeCondent = "<ol>"
SeCondent = SeCondent & replace(replace(left(SourceCode,instr(SourceCode,"</table>")+7),"m?","music.asp?"),"","")
else
betw=instr(tt1(0),"<table width=""580"" ")-instr(tt1(0),"<table width=175 ")
first=instr(tt1(0),"<table width=""580"" ")
SourceCode = Mid(tt1(0),first,abs(betw))
SeCondent = "<ol>"
SeCondent = SeCondent & replace(left(SourceCode,instr(SourceCode,"<td width=175>")-14),"http://www.baidu.com/m","music.asp")
end if
SeCondent = replace(replace(SeCondent,"手机铃声",""),"style=""font-family:Arial;font-size:10.5pt""><a href=""","style=""font-family:Arial;font-size:10.5pt""><a onClick='return call(this.href);' href=""view.asp?url=") & " </ol>  "
SeCondent = replace(SeCondent,"target=_blank","")
SeCondent = replace(SeCondent,"/music.asp","music.asp")
SeEnd =  "<img border=0 src=images/bz.gif width=43 height=52 align=absmiddle> &nbsp;"&replace(replace(left(tt1(1),instr(tt1(1),"<br><br>")-1),"href=http://mp3.baidu.com/m","href=music.asp"),"<font size=3>","")
SeEnd="<table border='0' style='border-collapse: collapse' width='100%' cellpadding='0'><tr><td width='11'><img border='0' src='images/pageleft.gif' width='11' height='56'></td><td background='images/pagebg.jpg'><b>"&SeEnd&"</b></td><td background='images/pagebg2.gif' width='52'><a href='#' target=_self><img border='0' src='images/gotop.gif' width='52' height='27'></a></td><td width='13'><img border='0' src='images/pageright.gif' width='13' height='56'></td></tr></table>"
SeEnd=replace(replace(SeEnd,"[",""),"]","")
else
SeCondent="<br><table width=100% border=0 id=table1><tr><td vAlign=top colSpan=2 style=font-size: 9pt; line-height: 18px><font style=FONT-SIZE: 12pt>未找到相关结果，建议您:</font></td><td vAlign=top rowSpan=2 style=font-size: 9pt; line-height: 18px>　<img src= http://un.baidu.com/images/st.gif?tn=cnunion width=0 height=0 border=0></td></tr><tr><td width=100 style=font-size: 9pt; line-height: 18px>　</td><td vAlign=top width=70% style=font-size: 9pt; line-height: 18px><font style=FONT-SIZE: 12pt><ol><li>检查输入文字有无错误，或换用更少的文字查询。<br><br></li><li>到<a href=http://bbs.7esky.com>搜索援助中心</a>寻求帮助，或学习<a href=help.htm>搜索技巧</a>。<br><br></li><li><a href=http://music.7esky.com/><font color=#ff3300>在SoGua查找看看是否有你需要的歌曲或歌手。</font></a></li></ol></font></td></tr></table></br>"
end if
%>
<SCRIPT language=JavaScript>

<!--

function call(htmlurl){

var

newwin=window.open(htmlurl,"snrx","top=50, left=220, toolbar=no, menubar=no, scrollbars=no,resizable=no,location=no, status=no,width=381,height=282");

newwin.focus();

return false;

}

//-->
</SCRIPT>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>:::悠游俱乐部:::音乐空间:::http://www.17yy.com/music:::</TITLE>
<link href="images/style.css" rel="stylesheet" type="text/css">
<style>
<!--
.f9 { font-size: 12px}
-->
</style>
</head>
<SCRIPT language=JavaScript>
<!--
if (window.name == 'nw') { window.name = '';}
function ga(o,e){if (document.getElementById){a=o.id.substring(1); p = "";r = "";g = e.target;if (g) { t = g.id;f = g.parentNode;if (f) {p = f.id;h = f.parentNode;if (h) r = h.id;}} else{h = e.srcElement;f = h.parentNode;if (f) p = f.id;t = h.id;}if (t==a || p==a || r==a) return true;window.open(document.getElementById(a).href,'_blank')}}
function syn(form)
{if (form.lm[0].checked){
              form.rn.value="10";
              form.tn.value="baidump3lyric";
              form.ct.value="150994944";
       } else {
                 form.tn.value="baidump3";
                 form.ct.value="134217728";
                 }}
function g(){
var url
url="music.asp?tn=baidump3ring&ct=285212672&lm=-1&word="+document.wrsearch.word.value;
window.location.href=url;
}

function killErrors() {return true;}
window.onerror = killErrors;
function h(obj,url){
obj.style.behavior='url(#default#homepage)';
obj.setHomePage(url);
}
if (top.location !== self.location) {
top.location=self.location;
}
//-->
</script>
<body topmargin="0" leftmargin="0">
<!--#include file="title.asp" -->
  <div align=center><table style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="22" cellPadding="0" width="775" border="0" bgcolor="#F0F0F0">
    <tbody>
      <form name=wrsearch action="music.asp" onSubmit="syn(this)" target=_self><tr>
        <td height="26">
                <p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=hidden name=rn> <input type=hidden name=tn value=baidump3> <input type=hidden name=ct value=134217728>
                <input class="ibox" size="70" name="key" value="<%=Sword%>"><input type="image" alt="搜" src="images/search_but.gif" align="absMiddle" border="0"> </td>
      </tr>
                <tr>
        <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name = lm type=radio value=-1>歌词
                <input name = lm type=radio checked value=-1>全部音乐
                <input name = lm type=radio value=0>mp3
                <input name = lm type=radio value=1>rm
                <input name = lm type=radio value=4>ram
                <input name = lm type=radio value=2>wma　　　　<a href="#" onClick="javascript:window.open ('code.asp', 'newwindow', 'height=180, width=400, top=120, left=200, toolbar=no, menubar=no, scrollbars=no,resizable=no,location=no, status=no')"" >免费代码</a>　<a onclick="window.open(this.href,'','location=no,menu=no,scrollbars=yes,resizable=no,top=0,left=0,width=600,height=350');return false;" href="help.htm" target="_blank">搜索技巧</a></td>
              </tr>
                </form>
            <tr>
        <td height="9"><TABLE width=100% border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width="25%" bgColor=#a6daf5><SPACER height="1" type="block"></TD>
    <TD width="25%" bgColor=#c0e898><SPACER height="1" type="block"></TD>
    <TD width="25%" bgColor=#f9adbe><SPACER height="1" type="block"></TD>
    <TD width="25%" bgColor=#fed57f><SPACER height="1" type="block"></TD></TR>
  <TR>
    <TD bgColor=#95d3f3><SPACER height="1" type="block"></TD>
    <TD bgColor=#b4e484><SPACER height="1" type="block"></TD>
    <TD bgColor=#f89db2><SPACER height="1" type="block"></TD>
    <TD bgColor=#fece67><SPACER height="1" type="block"></TD></TR>
  <TR>
    <TD bgColor=#7fc9f0><SPACER height="1" type="block"></TD>
    <TD bgColor=#a4de6a><SPACER height="1" type="block"></TD>
    <TD bgColor=#f688a1><SPACER height="1" type="block"></TD>
    <TD bgColor=#fec346><SPACER height="1" type="block"></TD></TR>
  <TR>
    <TD bgColor=#6ec2ee><SPACER height="1" type="block"></TD>
    <TD bgColor=#98da56><SPACER height="1" type="block"></TD>
    <TD bgColor=#f57995><SPACER height="1" type="block"></TD>
    <TD bgColor=#febb2e><SPACER height="1" type="block"></TD></TR>
</TBODY></TABLE>
<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table2">
                        <tr bgColor="#5d90de">
                                <td width="6" bgcolor="#a9d46d"> </td>
                        </tr>
                </table>
</td>
      </tr>
    </tbody>
  </table></div>
  <div align=center><table style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="181" cellSpacing="8" cellPadding="2" width="775" border="0">
    <tbody>
      <tr>
        <td vAlign="top" height="250">
                <p>　<%=Setop%>
                <table cellspacing=10 cellpadding=0 border=0 width=100%>
        <tr><td background=images/result_line.gif><spacer type=block height=1></table>
        <%=SeCondent%>
        <br><table cellspacing=10 cellpadding=0 border=0 width=100%>
        <tr><td background=images/result_line.gif><spacer type=block height=1></table>
        <%=SeEnd%>
        </td>
      </tr>
    </tbody>
  </table></div>
  <div align=center><!--#include file="we.asp"--></div>
</body>
</html>
【Collatz Conjecture】优化程序，支持 x86 SSE CPU 指令集，以及 Windows 系统下 AMD GPU，和 Linux 系统下 AMD & Nvidia GPU
回复

使用道具 举报

小强
发表于 2004-3-8 00:00:00 | 显示全部楼层
它的asp.DLL文件坏了。
[2020.03.10] BOINC 版本 7.16.5 客户端已正式发布，推荐大家更新！
回复

使用道具 举报

水鬼
 楼主| 发表于 2004-3-9 00:00:00 | 显示全部楼层
看来还是坏的不轻呢，到现在还瘫痪中。。。
【MilkyWay@Home】优化程序，支持多种操作系统多种 CPU 指令集，以及 Windows 系统下部分 AMD GPU
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 新注册用户

本版积分规则

论坛官方淘宝店开业啦～
欢迎大家多多支持基金会～

Archiver|手机版|小黑屋|中国分布式计算总站 ( 沪ICP备05042587号 )

GMT+8, 2024-5-17 05:15

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表