<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="config.asp" -->
<head>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<LINK href="css.css" type=text/css rel=stylesheet>
<title><%=homepage%>--<%=webname%>--查看歌词</title>
</head>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% 
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 
keyword = request("key")
url="http://mp3.zhaozhao.com/search_lyric.php?sl=3&word="&keyword
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)
web_start=inStr(SourceCode,"<!--lyricstart-->")
url_start=inStr(web_start,SourceCode,"<!--lyricend-->")
url_end=inStr(url_start,SourceCode,"</font></b> <font")
url_url=mid(SourceCode,web_start+17,url_start-web_start-17)
if url_url<"70" then
SourceCode="对不起，没有您要找的歌词！"
else 
SourceCode=url_url
end if
'response.write 
'response.end%>
<div align="center"><center>  
<TABLE class=line cellSpacing=0 cellPadding=0 width="95%" border=0 style="border-collapse: collapse" bordercolor="#111111">
<TBODY><TR><TD height=30><%=SourceCode%></TD></TR>
  <TR><TD height=30 align=center><a href="javascript:window.close()">[关闭窗口]</a></TD></TR>
<TR><TD></TD></TR><TR><TD align=middle></TBODY></TABLE></center></div><br>