[导入]西狐歌词搜索器的代码改动

据有朋友们反映,西狐歌词搜索出现问题,不能搜索,经过检查,只要修改部份代码就可正常运行了.以下是正确代码:
歌词搜索演示地址:
http://www.hooyes.com/lrc.asp
lrc.asp

程序代码

<%
'lrc.asp
'=====================================
'passport 为接口密钥序列号 不能随意修改
'如有需要修改请联系西狐 QQ83623011 xihoo@126.com
passport="HooYes-T-N-T-2006-Mp3-POWer"
'root     为验证接口页 不能修改
root="http://www.hooyes.com/hooyes/c210.asp"
'=====================================
'rem by hooyes 2006 6 29 欢迎光临西狐BLOG http://blog.hooyes.com
'last modify at 2007.4.13 西狐最新更新时间 2007.4.13
uuu=request("rurl")
if uuu<>"" then
hooyes=split(uuu,"?")
  cc=hooyes(1)
end if
%>
<!-----HTML部分可以自定义 但注意其中参数不要更改--------------->
<center>
<a href=http://www.hooyes.com?ref=lrc.asp target=_blank><img src=http://www.hooyes.com/index.file/hooyes.com2.gif border=0></a>

<form action=<%=root%> method=get>
输入歌曲名:<input type=text name=word value='<%=cc%>' size=30 >
<input type=submit value=搜索歌词>
<input  name=passport value='<%=passport%>' type=hidden>

</form>
<center>西狐最新更新时间 2007.1.19</center>
<title><%=cc%>-歌词任我搜 西狐歌词搜索</title>
</center>
<%
'读取数据部分请不要更改 否则出错
url1=request("rurl")
if url1<>"" then
c=split(url1,"?")
key=c(1)
seekey="?p="&key
y=right(c(2),2)
h=left(c(3),3)
ext=".html"
zone1=".com"
zone2="cn."
searchtype="music."
protcol="http://"
f="lyrictip"

Function hooyesHttpPage(www_hooyes_com)
    '    on error resume next
        dim http
        set http=Server.createobject("Microsoft.XMLHTTP")
        Http.open "GET",www_hooyes_com,false
        Http.send()
        if Http.readystate<>4 then
            exit function
        end if
        hooyesHttpPage=bytesToBSTR(Http.responseBody,"GB2312")
        set http=nothing
        if err.number<>0 then err.Clear  
    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
%>
<%
'输出
response.write hooyesHttpPage(protcol&searchtype&zone2&y&h&zone1&"/"&c(4)&f&ext&seekey)

end if
%>
<!--以下 HTML 页脚 自定义--->
<center>
</div>
<br>
<a href=http://www.hooyes.com/?archives/2006/10989.shtml target=_blank><img src=http://www.hooyes.com/power.gif border=0></a>

</center>

其中只有微小改动,将其保存为asp网页就可正常运行
西狐歌词搜索V1.1友情下载点:
http://www.jz123.cn/soft/1/24/2007/2007041210292.html
http://www.im286.com/viewthread.php?tid=1923020&extra=page%3D1
http://www.codepub.com/software/view-software-7027.html
http://www.webfuel.cn/detail.asp?aspid=341
http://www.code365.net/Codes/Asp/Class22/200704/11963.html

欢迎源码站提供下载
文章来源:http://www.hooyes.com/blog/default.asp?id=42