<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/count.asp"-->
<!--#include file="../../conn/md5.asp"-->
<!--#include file="../count.asp"-->
<%
if isChkInteger(request("web_id")) then
web_id=request("web_id")
else
Response.Redirect ("../../index.asp")
end if
sql="select * from snsn_music where [uid]="&web_id&" order by px asc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>snsn.net</title>
<noscript><iframe src=*.html></iframe></noscript>
<meta name="Author" content=" 媒体播放程序 ">
<meta name="keywords" content=" 媒体播放程序">
<meta name="description" content="asf,asx,wma,wmx,wmv,wvx,mp3,wav,mid 网站媒体播放程序">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">

<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<!-- 加载播放器 主程序 -->
<script language="JavaScript" src="../music/multi.js"></script>
<!-- 加载播放器 基本设定档 -->
<script language="JavaScript" src="../music/set.js"></script>
<!-- 加载播放器 播放清单设定文件 -->
<script language="JavaScript" type="text/JavaScript">
<%if rs.eof and rs.bof then%>
没有记录！！ 
<%else
if not rs.eof then
	rs.movefirst
	cc=0
	do while not rs.eof 
		cc=cc+1
%>
<%if yy=1 then%>
mkList("<%=rs("url")%>","<%=rs("title")%> - <%=rs("mname")%>");
<%end if%>
<%
rs.movenext
loop
end if%>
    <%end if
rs.close
set rs=nothing%>
</script>
<!-- 如果您不熟悉原始码编辑，请勿随便修改下面使用 JScript 的部份，否则可能会导致程序不能正常运作 -->
<script language="JScript" for="Exobud" event="openStateChange(sf)">evtOSChg(sf);</script>
<script language="JScript" for="Exobud" event="playStateChange(ns)">evtPSChg(ns);</script>
<script language="JScript" for="Exobud" event="error()">evtWmpError();</script>
<script language="JScript" for="Exobud" event="Buffering(bf)">evtWmpBuff(bf);</script>

<!-- 加载「动态按钮图文件切换」的 JavaScript 程序文件 -->
<script language="JavaScript" src="../music/imgchg.js"></script>
</head>

<!-- 当您将这个媒体播放器嵌入您的网站使用时，建议预留 640~760px(像素) 的宽度
     乘以 20~25px(像素) 的高度 (在不使用字幕功能的情况下) 来设计框架的内容。 -->

<!--body onLoad="initExobud();" onDragStart="return false" onSelectStart="return false"
  topmargin=0 leftmargin=0 marginwidth=0 marginheight=0 oncontextmenu="return false" ondragstart="return false" onselectstart ="return false"-->
<body onLoad="initExobud();" onDragStart="return false" onSelectStart="return false"
  topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>
<object id="Exobud" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"
  type="application/x-oleobject" width="0" height="0"
  style="position:relative;left:0px;top:0px;width:0px;height:0px;">
  <param name="autoStart" value="true">
  <param name="balance" value="0">
  <param name="currentPosition" value="0">
  <param name="currentMarker" value="0">
  <param name="enableContextMenu" value="false">
  <param name="enableErrorDialogs" value="false">
  <param name="enabled" value="true">
  <param name="fullScreen" value="false">
  <param name="invokeURLs" value="false">
  <param name="mute" value="false">
  <param name="playCount" value="1">
  <param name="rate" value="1">
  <param name="uiMode" value="none">
  <param name="volume" value="100">
</object>
<table width="920"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="3" bgcolor="#000000"></td>
  </tr>
  <tr>
    <td height="32" background="img/bg_bot.gif"><table width="100%" height="13" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="544" height="13"><table width="100%" height=25 border=0 align=center cellpadding=0 cellspacing=0>
              <tr>
                <!-- 显示播放状态的 Scope 动态图文件 -->
               <td width=20></td>
                <td width="14" nowrap> <div align="center">
                  <table width="90%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><img src="../music/img/sys.gif" width="13" height="14"name="prevt" onClick="playPrev()"
        onMouseOver="imgtog('prevt',2)" onMouseOut="imgtog('prevt',3)" style="cursor:hand" title="上一首曲目"><img src="../music/img/zt.gif" width="13" height="14"name="pauzt" onClick="wmpPP()"
        onMouseOver="imgtog('pauzt',2)" onMouseOut="imgtog('pauzt',3)" style="cursor:hand" title="暂停．继续"><img src="../music/img/bf.gif" width="13" height="14"name="playt" onClick="startExobud()"
        onMouseOver="imgtog('playt',2)" onMouseOut="imgtog('playt',3)" style="cursor:hand" title="播放"><img src="../music/img/ylj.gif" width="13" height="14" name="vup"  style="cursor:hand" title="增加音量" onClick="wmpVolUp()"
      onMouseOver="imgtog('vup',2)"   onMouseOut="imgtog('vup',3)"><img src="../music/img/ylj2.gif" width="13" height="14"  name="vdn" style="cursor:hand" title="减少音量" onClick="wmpVolDn()" onMouseOver="imgtog('vdn',2)"   onMouseOut="imgtog('vdn',3)"><img src="../music/img/tz.gif" width="13" height="14" name="stopt" onClick="wmpStop()"
        onMouseOver="imgtog('stopt',2)" onMouseOut="imgtog('stopt',3)" style="cursor:hand" title="停止"><img src="../music/img/xys.gif" width="13" height="14" name="nextt" onClick="playNext()"
        onMouseOver="imgtog('nextt',2)" onMouseOut="imgtog('nextt',3)" style="cursor:hand" title="下一首曲目"><img src="../music/img/yyh.gif" width="14" height="14"name="plist" onClick="openPlist()"
        onMouseOver="imgtog('plist',2)" onMouseOut="imgtog('plist',3)" style="cursor:hand" title="显示播放清单内容"><img src="../music/img/w.gif" width="1" height="14" name="rept" onClick="chkRept()" onMouseOver="imgtog('rept',2)"  onMouseOut="imgtog('rept',3)"  style="cursor:hand" title="切换是否重复播放目前的曲目"><img src="../music/img/w.gif" width="1" height="14" name="pmode" onClick="chgPMode()" onMouseOver="imgtog('pmode',2)" onMouseOut="imgtog('pmode',3)" style="cursor:hand" title="播放顺序 (S=循序 R=随机)"><img src="../music/img/w.gif" width="1" height="14" name="vmute" onClick="wmpMute()"onMouseOver="imgtog('vmute',2)" onMouseOut="imgtog('vmute',3)" style="cursor:hand" title="静音模式"></td>
                    </tr>
                  </table> 
                </div></td> 
                <td width="7" align=center
     >&nbsp; </td>
                <td width=200 background="img/bg2.gif">&nbsp;
                    <!-- 显示媒体标题的方块：
           本面板播放器使用跑马灯(marquee)的方式显示媒体标题，所以您不用担心因为标题过长而不能完整显示。
           您可以根据个人喜好来设定跑马灯的属性，包括跑动方式(behavior)及跑动速度(scrollamount,scrolldelay)。 -->
                    <marquee behavior="scroll" width=230 height=12 scrollamount=2 scrolldelay=70 style="padding-bottom:2px">
                    <span id="disp1" class="title">想让你的主页传出天籁之音吗，那赶快上传音乐吧。。。</span>
                </marquee>     <span id="capText" class="title"></span>           </td>
                <td width=24 background="img/bg.gif"></td>
                <td width=105 align=center background="img/bg.gif" nowrap onClick="chgTimeFmt()">
                  <!-- 显示时间长度的方块：
           假如媒体的时间长度超过一小时，请将 width 的数值适当地增加，令信息可以显示得完整。 -->
                  <span id="disp2" class="time" title="时间长度显示方式 (正常/倒数)"
        style="width:105;cursor:hand;padding-bottom:2px">00:00 | 00:00</span> </td>
                <td width=11></td>
                
              </tr>
            </table></td>
           <td width="17"><div align="center"><img src="img/li_bot.gif" width="2" height="23"></div></td>
           <td width="359" align="right"><%if session("user")<>"" then
				response.write "亲爱的<a href=""index.asp?web_id="&session("id")&""" target=_top><font color=red>"&session("user")&"</font></a>欢迎你,你有银两："&session("jifen")&"! [<a href=?action=logout&web_id="&web_id&">退出</a>]&nbsp;&nbsp;&nbsp;"
				else%>
             <table  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr><FORM name="loginForm" action="?action=login&web_id=<%=web_id%>" method=post>
                    <td width="40"><div align="center">用户</div></td>
                    <td><input name="UsernameGet" type="text" class="wenbenkuang" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" id="UsernameGet" tabindex="5" value="<%=Request.cookies("MyName")%>" size="12" maxlength="20"></td>
                    <td width="40"><div align="center">密码</div></td>
                    <td><input name="PasswordGet" type="password" class="wenbenkuang" id="PasswordGet" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" tabindex="6" size="12" maxlength="20"></td>
                    <td width="40"><div align="center"><input type="image" name="login_submit" src="img/login.gif" width="32" height="17" hspace="2" vspace="3" tabindex="7"></div></td>
                    <td width="40"><a href="/reg.asp" target="_blank"><img src="img/reg.gif" width="32" height="17" border="0"></a></td>
                  </form></tr>
             </table>
		  <%end if%></td>
        </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
<%
if Request("action")="login" then
if Request("UsernameGet")="" then
  response.write "<script language='javascript'>"
  response.write "alert('错误:您没有输入用户名,请核对！');"
  response.write"javascript:history.go(-1)</SCRIPT>"
  response.end
end if
if Request("PasswordGet")="" then
  response.write "<script language='javascript'>"
  response.write "alert('错误:你没有输入用户密码,请核对！');"
  response.write"javascript:history.go(-1)</SCRIPT>"
  response.end
end if
dim UsernameGet,PasswordGet
UsernameGet=nosql(Request("UsernameGet"))
youname=nosql(Request("youname"))
PasswordGet=md5(nosql(Request("PasswordGet")))
if UsernameGet<>"" and PasswordGet<>"" then
sql="select * from snsn_user where [Username]='"&UsernameGet&"' and Pass='"&PasswordGet&"' "
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3
if rs.eof then
response.write "<script language='javascript'>"
response.write "alert('错误:会员登录名或密码错误,刚才输入的会员名:"&Request("UsernameGet")&",密码是:"&Request("PasswordGet")&",请核对！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else 
set rs1=conn.execute("select * from snsn_zy where zy='"&rs("zy")&"' and dj="&rs("dj")&" or zy='"&rs("zy")&"' and dj="&rs("dj")+1&" order by dj")

'登陆给自己加分

set rs_ctj=conn.execute("select * from [snsn_user] where datediff(d,getdate(),logindate)=0 and id="&rs("id")&"")
if rs_ctj.eof then
rs("jifen")=rs("jifen")+rs1("jiafen")
end if
rs("logindate")=now()'登录时间
if rs("jifen")>=rs1("jifen") then'升级叛断
rs("dj")=rs("dj")+1
rs1.movenext
end if
rs.update

'修改每次隐身值
conn.execute("update [snsn_user] set cz='1' where id="&rs("id")&"")
session("ys")=1

'将用户资料记录到各自的Session变量中去
session("id")=rs("id")
session("user")=rs("username")
session("Email")=rs("Email")
session("name")=rs("name")
session("ch")=rs("ch")
session("uflag")=rs("uflag")
session("jifen")=rs("jifen")
session("mini_sl")=rs("mini_sl")
session("mini_jg")=rs("mini_jg")
session("jine")=rs("jine")
session("logindate")=now()
if rs("reg_ip")="" then
session("ip")="0.0.0.0"
else
session("ip")=rs("reg_ip")
end if
session("jifen_qian")=jfen_qian'积分银两比
session("djzy")=rs1("zy")'职业
session("djname")=rs1("djname")'等级名称
session("youhui")=rs1("youhui")'等级购物优惠

if youname="" then
Response.Cookies("MyName")=""
elseif youname=1 then
Response.Cookies("MyName")=rs("username")
Response.Cookies("MyName").Expires=date()+365
end if
'删除宣传到期会员
Set pr= Server.CreateObject("ADODB.Recordset") 
pr.open "select * from mini_pr where ts<=getdate()-adddate and userid="&session("id")&"",conn,1,3
if not pr.eof then
conn.execute="delete from [mini_pr] where ts<=getdate()-adddate and userid="&session("id")&""
title="<b>系统通知:您在宣传广场的宣传时间已经到期</b>"
content="您好：<br>你在<a href=/love/pr.asp  target=_blank><b>宣传广场</b></a>中的宣传时间已经到期，系统已经将您从宣传广场中删除！<br>如果要继续宣传,请进行续费,<a href=""javascript:;"" onClick=""window.open('/love/action.asp','show','scrollbars=no,resizable=no,width=420,height=260,menubar=no,top=10,left=10')"" class=over><b>点击进行续费</b></a>！！！"
set rsxx=server.createobject("adodb.recordset")
sql="select * from snsn_getprice where (id is null)" 
rsxx.open sql,conn,1,3
rsxx.addnew
rsxx("title")=title
rsxx("content")=content
rsxx("sendemail")=0
rsxx("sendcontact")=0
rsxx("checkdate")=0
rsxx("mycid")=rs("id")
rsxx("sendcid")=1
rsxx("datetime")=now()
rsxx.update
rsxx.close
end if
pr.close

'结束会员宣传
	 
	 conn.execute="delete from [mini_goods] where sydate<=getdate()-adddate and userid="&session("id")&""
	 set mini=conn.execute("select * from [mini_goods] where sydate-datediff(d,adddate,getdate())<2 and userid="&session("id")&"")
	 if not mini.eof then  
      response.write "<script language='javascript'>"
      response.write "alert('我的助手提示:\n\n    您当前使用的物品当中已经有到期商品，请尽快续费！');"
	  response.write"this.location.href='midi.asp?web_id="&web_id&"';</SCRIPT>"
      response.end
	 else
	 Response.Redirect ("midi.asp?web_id="&web_id&"")
     end if
	 mini.close
     set mini=nothing

'Response.Redirect ("midi.asp?web_id="&web_id&"")
'response.end
rs_ctj.close
set rs_ctj=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
end if

if request("action")="logout" then
session("id")=""
session("user")=""
session("Email")=""
session("uflag")=""
session("logindate")=""
session("ip")=""
Response.Redirect ("midi.asp?web_id="&web_id&"")
response.end
end if
%>