www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > d/index+lvse.asp

    <!--#include file="../connkkp.asp"--><%
id=request.QueryString("id")
founderr=false
if id="" then
	response.write"<script language=javascript>alert('请选择你想下载的舞曲!');window.close();</script>"
	founderr=true
end if
if founderr=true then
	call error()
	Response.End 
end if
if isnull(session("DJUser")) or isnull(session("DJUserPwd")) or session("DJUser")="" or session("DJUserPwd")="" then 
else
set rs=server.createobject("adodb.recordset")
sql="select * from user where UserName='"&Session("DJUser")&"' and PassWord='"&Session("DJUserPwd")&"'"
rs.Open sql,conn,1,3
if rs.eof then
	response.write"<script>alert('会员帐号或密码错误!请重新登陆!');window.close();</script>"
	founderr=true
else
end if
rs.close
end if
%>
<%
if request("id")<>"" then
    set rs=server.createobject("adodb.recordset")
    set Nrs=server.createobject("adodb.recordset")
    id=request("id")
	sql="select * from Musiclist where id in (" & id & ")"
    rs.open sql,conn,1,3
    while not rs.eof
	ListenUrl=rs("ListenUrl")
	LS_ID=rs("LS_ID")
	rs("downhits")=rs("downhits")+3
	source=ListenUrl
	MusicName=rs("MusicName")
	songwords=rs("songwords")
	mp3downid=rs("mp3downid")
	DownUrl=rs("DownUrl")
	if LS_ID<>"" then
	sql="select ListenServerUrl from DJServer where LServerID="&LS_ID
	Nrs.open sql,conn,1,1
	ListenServerUrl=Nrs("ListenServerUrl")
	source=ListenServerUrl+ListenUrl
	Nrs.close
	end if
set rscc=server.createobject("adodb.recordset")
sqlcc="select * from home"
rscc.open sqlcc,conn,1,1
if not rscc.eof then
zhanming=rscc("homes")
yuming=rscc("url")
beian=rscc("msn")
bdizhi=rscc("urls")
jishuqi=rscc("qqtwo")
banquan=rscc("qqthree")
end if
rscc.close
set rscc=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>下载<%=musicname%>Mp3-<%=zhanming%>-<%=yuming%></title>
<meta name="description" content="<%=musicname%>Mp3下载,现场舞曲,中文舞曲,外语舞曲,慢摇舞曲" />
<meta name="keywords" content="<%=musicname%>Mp3试听下载,现场舞曲,中文舞曲,外语舞曲,慢摇舞曲" />
<style type="text/css" media="screen">
body{
	color: #3E4549;
	border:0;
	font-size:12px ;
	font-family:  "Verdana","宋体", "Arial";
	background:#AFD738;
}
* {
	list-style-image:none;
	list-style-position:outside;
	list-style-type:none;
	margin:0px;
	padding:0px;
}
form, img {
	border:medium none;
}
a:link {
	color: #30421A;
	text-decoration: none;
}
a:visited {
	color: #1B5776;
	text-decoration: none;
}
a:hover {
	color:#ff0000;
	text-decoration: underline;
}
.tj A:link {
	text-decoration: underline;
	none;color:#FF0000;
}
.tj A:visited {
	text-decoration: underline;
	color:#427d9c;
}
.tj A:hover{
	text-decoration: underline;
	color: #F80;
}
.tj A:active {
	text-decoration: underline;
	color: #FF00CC;
}
#ww{
	margin:0px auto 0px auto;
	width:772px;
	background:#FFF;
}
#ww:after, #w:after {
	clear:both;
	content:'.';
	display:block;
	height:0pt;
	padding:0px;
	visibility:hidden;
}
#w {
	margin:0px auto 0px;
	padding:0px 5px;
	width:762px;
}
#w1{
	float:righ;
	text-align:left;
	width:440px;
}
#w2{
	float:left;
	width:310px;
	text-align:center;
	padding-top:5px;
}
#w3{
	float:left;
	width:430px;
	height:80px;
	line-height:40px;
	padding:5px;
}
#w4{
	border-top:1px #88B632 solid;
	float:left;
	width:430px;
	padding:5px;
	line-height:25px;
}
.ad {
	text-align:center;
}
.b1{
	border:1px #88B632 solid;
	margin-bottom:5px;
	width:760px;
	float:left;
}
H3 {
	background:url('../i/h3.gif') repeat-x;
	color:#5B8113;
	font-size:12px;
	text-indent:1em;
	height:25px;
	line-height:25px;
	margin:0px 1px 0px 1px;
}
.bot{
	border:1px solid #88B632;
	background:url('../i/bot.gif') repeat-x;
	height:75px;
	text-align:center;
	line-height:24px;
	font-family:Tahoma;
	margin:0px 0px 5px 0px;
}
</style>
<script type="text/javascript">hy="<%=musicname%>";</script>
</head>
<body>
<div id="ww">
	<div id="w">
		<div class="b1">
			<h3><span style="float: right; padding-right: 2px;"><a href="../" target="_blank">DJ首页</a> <a href="../List/djmc_1_1.html" target="dj">现场串烧</a> <a href="../List/djmc_3_1.html" target="dj">中文舞曲</a> <a href="../List/djmc_4_1.html" target="dj">慢摇舞曲</a> <a href="../List/djmc_5_1.html" target="dj">外语舞曲</a></span>下载: > <%=musicname%>↓</h3>
		</div>
		<div class="b1 ad">
			<div id="w2">	
				<SPAN id=d_01>内容载入中...</SPAN> 
			</div>
			<div id="w1">
				<div id="w3"  class="tj">
<a href='Drm.asp?id=<%=id%>' target='_blank'><img src='../i/ddown.gif' border='0' align=absmiddle/>Rm舞曲格式下载:[全天24小时下载速度每秒66KB] - 右键另存(或迅雷)</a><br /><font color="#0000FF">(注:非会员只能下载Rm格式 注册会员登陆后可下载Mp3格式! ^_^ ) </font><br /><%if isnull(session("DJUser")) or isnull(session("DJUserPwd")) or session("DJUser")="" or session("DJUserPwd")="" then%><img src='../i/ddown.gif' border='0' align=absmiddle/>MP3舞曲格式下载:请先〖<a onclick="window.open('../user/UserReg.html','_blank','width=340,height=443,left=30,top=30');return false;" href="#">注册会员</a>〗后〖<a onclick="window.open('../user/','_blank','width=200,height=80,left=30,top=30');return false;" href="#">登陆</a>〗!<br /><%elseif mp3downid="" or DownUrl="" then%>[此舞曲不支持Mp3格式下载!]<%else%><a href='Dmp3.asp?id=<%=id%>' target='_blank'><img src='../i/ddown.gif' border='0' align=absmiddle/>MP3舞曲格式下载:[Vip下载-本地高速下载-12点] - 右键另存(或迅雷)</a><br /><%end if%>播放:<a target="xydj" href="../p/<%=id%>.html"><font color=#ff00ff><%=musicname%></font></a><br />
				</div>
				<div id="w4"  class="tj">
					提 示:<br />
					※。本站提供的舞曲单曲每首为6M∽8M!现场串烧为每首60M∽120M!请下载前确认您的U盘,MP3机,MP4机,手机的容量是否够用!<br />
					※。本站为大家提供下载的舞曲全部为高品质MP3格式,绝非网上的低品RM转MP3舞曲,网站上的在线试听舞曲为低品RM格式!下载点数为12点!<br />
					※。您如果还有其它有关下载的问题,都可以到 <a href="../book/" target="_blank">留言本</a> 去提出!
				</div>
			</div>
		</div>
	</div>
</div>
<div id="ww">
	<div id="w">
		<div class="bot">			
声明:<%=banquan%><br>                 
CopyRight &copy; 2003-2008, <%=yuming%>, Inc. All Rights Reserved <%=zhanming%> <br><a target="_blank" href="<%=bdizhi%>"><%=beian%></a> <!--jsq--><%=jishuqi%> 
		</div>
	</div>
</div>
<script type="text/javascript" src="../js/downb.js"></script>
</body>
</html>
<%
rs.movenext
wend
rs.Close
set rs=nothing
end if
conn.close
set conn=nothing 
%>