<%PageName="UserModify"%>
<!--#include file="conn.asp"-->

<!--#include file="Style.asp"-->
<!--#include file="path.asp"-->
<ASX version = "3.0">
<% if request("ddid")<>"" and session("ddiduse")="" then
session("ddiduse")=nnoo(request("ddid"))
end if 
 set rs=server.createobject("adodb.recordset")
	  sql="SELECT kai,host,logo,gongsi,shopover2,shoprecord,bbskai,fakai,xshangzong,paimaikai,bbskainame,guang1,guang11,paimainame,yinkai,gengduo,xdizhi,xdizhi2,xjie,shopover  from ylmv_home "
	 rs.open sql,conn,1,3
	  vvhost=rs("host")
	  vshopover=rs("shopover2")
	  vbbskai=rs("bbskai")
	  vpaimaikai=rs("paimaikai")
	  vbbskainame=rs("bbskainame")
	  vguang1=rs("guang1")
	  vguang11=rs("guang11")
	  vpaimainame=rs("paimainame")
	  vvvyinkai=rs("yinkai")
	  vvvgengduo=rs("gengduo")
		vvvhost=rs("host")
		vvvxdizhi2=rs("xdizhi2")
		vvvxdizhi=rs("xdizhi")
		vvvshoprecord=rs("shoprecord")
		vvvxjie=rs("xjie")
		vvvxshangzong=rs("xshangzong")
		vvvkai=rs("kai")
		vvvfakai=rs("fakai")
		vlogo=rs("logo")
		vvgongsi=rs("gongsi")
	 if rs("shopover")=1 then
	  Response.Write "<script Language=Javascript>alert(' 对不起！影院正在维护中请稍候访问......');location.href = 'xxx.asp';</script>"
      response.end
	  end if
	  rs.close
	 %>

<% if vpaimaikai<>1 then
Response.Write "<script Language=Javascript>alert(' 对不起！本站暂停下载功能......');location.href = 'index.html';</script>"
      Response.end
	   end if %>
<%
Dim id,MusicArray,MusicNum,songpath,hits
id=request.QueryString("id")
If id="" Then
	Response.Write ("<SCRIPT language=JavaScript>alert('错误!\n\n您至少需要选择一首歌曲');javascript:window.close();</SCRIPT>")
	Response.end
End If

'创建排列顺序
MusicArray=Split(id, ",")
MusicNum = UBound(MusicArray)

set rs=server.createobject("adodb.recordset")

For i=0 To MusicNum
	sql="select Musicname,Wma,Singer,hits,song_path from [MusicList] where id ="&MusicArray(i)
	rs.open sql,conn,1,3
	If not rs.eof Then
		rs("hits")=rs("hits")+1
		rs.Update
		MusicName=rs("MusicName")
		Singer=rs("Singer")
		songpath=rs("song_path")
		If songpath="" or IsNull(songpath) Then
			songpath=1
		End If
		Select Case songpath
			Case 1
				song_path=song_path1
			Case 2
				song_path=song_path2
			Case 3
				song_path=song_path3
			Case 4
				song_path=song_path4
			Case 5
				song_path=song_path5
			Case else
				song_path=song_path1
		End Select
		song_path=song_path&rs("Wma")
%>
<%  
	End If
	rs.close
Next	
conn.close
set rs=nothing
%>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>下载歌曲：《<%=MusicName%>》</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<body topmargin="0" leftmargin="0">

<div align="center">
  <center>
  <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="300" height="310">
    <tr>
      <td width="100%" valign="top">
      <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="218">
        <tr>
          <td width="30%" height="12"><font color="#FF6600">
          <span style="font-size: 10.8pt; font-weight: 700">歌曲名称：</span></font></td>
          <td width="70%" height="12"><%=MusicName%></td>
        </tr>
        <tr>
          <td width="30%" height="12"><font color="#FF6600">
          <span style="font-size: 10.8pt; font-weight: 700">歌手姓名：</span></font></td>
          <td width="70%" height="12"><%=Singer%></td>
        </tr>
        <tr>
          <td width="100%" colspan="2" height="158" align="center">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="200" height="125">
            <tr>
              <td width="197" height="135">
              <A href="<%=song_path%>"><img border="0" src="images/musicdown1.gif"></A></td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%" colspan="2" height="12" bgcolor="#EEEEEE"><div align="center"><span class="style1">支持中国影音,杜绝翻版,从我做起!</span><br>
              <span class="style1">请购买正版</span><br>           
              <script src='http://s36.cnzz.com/stat.php?id=117753&web_id=117753&online=2' language='JavaScript' charset='gb2312'></script>
          </div></td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>