<!--#include file="config.asp" -->
<%
server.scripttimeout=600
if indata="1" then
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dataurl&"")
conn.Open connstr
end if
%>
<%
response.buffer=true
%>
<%
'=================================
'
'     欢迎访问  www.zhaozhao.com（我为你狂 找找电影）
'               mp3.httpcn.com（找找音乐网）
'     技术支持专页：http://web.zhaozhao.com/music_tech.htm
'     程序名称: 音乐数据获取者
'     版 本 号: V3.2+完美版
'     程序制作: 随缘苏迪
'     QQ:3065643 (加我必须说明是 音乐数据获取者 用户)
'     电子邮件: sd988@163.com
'     如果您使用本程序，并自愿在贵站做上 找找电影站 的链接，程序有问题可随时与我联系，我免费提供补丁。
'
'     请保留以上信息，否则将不可能提供任何技术支持 ：）
'
'=================================
%>
<%
'on error resume next
Private Function bytes2BSTR(vIn)
  Dim i, ThischrCode, NextchrCode
  strReturn = ""
For i = 1 To LenB(vIn)
   ThischrCode = AscB(MidB(vIn, i, 1))
  If ThischrCode < &H80 Then
     strReturn = strReturn & Chr(ThischrCode)
  Else
    NextchrCode = AscB(MidB(vIn, i + 1, 1))
    strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
     i = i + 1
  End If
Next
    bytes2BSTR = strReturn
End Function


Function GetURL(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, False, "", ""
          .Send
          GetURL = .ResponseText
		  GetURL = bytes2BSTR(.Responsebody)
          End With
    Set Retrieval = Nothing
End Function

singer=Request("singer")
id=Request("id")
key=Request("key")
no=Request("no")
size=Request("size")
gs=Request("gs")
xy=Request("xy")
sd=Request("sd")
Url=url&"&no="&Request("no")&"&key="&Request("key")
wzdir="http://search.sogua.com/search/"
basefilename="view.asp?action=like_search&no="&no&"&key="&key&"&id="&id

response.flush
if Not Response.isClientConnected then
	response.end
end if
	fname=wzdir&basefilename&i
			alltext=getURL(fname)
			web_start=inStr(1,alltext,"../images/view/top.gif")
			url_start=inStr(web_start,alltext,"><a href=")
			url_end=inStr(web_start,alltext,"><b><font")
			url_url=mid(alltext,url_start+10,url_end-url_start-11)
			
			Sourcecode=url_url

			response.flush

if indata="1" then
Set rsd = Conn.Execute("select * from music where music_url = '"&Sourcecode&"'")
if rsd.eof then										
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM music"
rs.open sql,conn,1,3

rs.addnew()
rs("singer")=singer
rs("music_name")=id
rs("music_url")=Sourcecode
rs("music_type")=gs
rs("music_agreement")=xy
rs("music_size")=size
rs("music_sd")=sd
rs("add_date")=now()
rs.update
response.flush
end if
end if
%>
<title><%=homepage%>--<%=webname%>--音乐下载--<%=id%></title>
<LINK href="css.css" type=text/css rel=stylesheet>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
  <center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 style="border-collapse: collapse" bordercolor="#111111">
  <TBODY> 
  <TR>
    <TD vAlign=top align=middle> 
      <TABLEcellSpacing=0 cellPadding=0 width=470 border=0 align="center">
        <TBODY> 
        <TR>
          <TD> 
            <div align="center">
              <center> 
            <table width="95%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
              <tr> 
                <td height="10">&nbsp;</td>
              </tr>
              <tr> 
                <td height="20">歌曲名称：<a href=<%=Sourcecode%>><b><%=singer%>-<%=id%></b></a></td>
              </tr>
              <tr> 
                <td height="20">音乐格式：<font color="#cc0000"><%=gs%></font></td>
              </tr>
              <tr> 
                <td height="20">下载协议：<font color="#cc0000"><%=xy%></font></td>
              </tr>
              <tr> 
                <td valign="top" height="20">鼠标右击上面歌曲名称选择“目标另存为”可下载到硬盘，也可以使用下载工具下载。<br>
                  <br>
                 如果下载协议为 MMS,rtsp 等请使用影音传送带下载：<br>
                  <a target="_blank" href="http://www.onlinedown.net/soft/2919.htm">点击下载影音传送带（Net Transport）</a><img src=http://un.baidu.com/images/st.gif?tn=zhao width=0 height=0></td> 
              </tr> 
              <tr> 
                <td></td> 
              </tr> 
            </table> 
              </center>
            </div>
          </TD> 
        </TR></TBODY></TABLE></center>
</div>
</TD></TR></TBODY></TABLE>
<p align=center><a href="javascript:window.close()">[关闭窗口]</a></p> 
</body>