<%@language="vbscript" codepage="936" %>
<%path="basedata"%>
<!--#include file="inc.asp"-->
<!--#include file="urlcode.asp"-->
<!--#include file="base64.asp"-->
<%
on error resume next
dim url_id,url_mp3,url_up,sql,rs1,dzzz
url_id=request.querystring("id")
url_mp3=request.querystring("url")
url_up=request.querystring("up")

if not isnumeric(url_id) or isnull(url_id) or url_id="" then response.write "徒劳徒劳":response.end
	%><!--#include file="../conn/conn_link.asp"--><%
if cint(url_up)<>0 then
	%><!--#include file="cy.asp"--><%
end if
if cint(url_id)=0 then response.redirect url_mp3: response.end'网络歌曲
if request.cookies(cstr("456vv_"&url_id))="" then
	sql="select * from url where url_id="&url_id
set rs1=server.createobject("adodb.recordset")
	rs1.open sql,conn_link,1,1
	if rs1.eof and rs1.bof then response.write "没有mp3" :response.end
		response.cookies(cstr("456vv_"&url_id))=rs1("url_dl_http")
	rs1.close
	set rs1=nothing
end if
	conn_link.close
	set conn_link=nothing
	dzzz=request.cookies(cstr("456vv_"&url_id))
	response.redirect dzzz&url_mp3
%>