<%@ Language=VBScript %>

<%if Session("weight")=0 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<html>
<head>
<!--#include file="const.asp" -->
<title><%=rs("title")%>---<%=rs("lovetitle")%></title>
<link rel="stylesheet" href="../images/css.css" type="text/css">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0"><SCRIPT LANGUAGE=javascript>
//<!--
	function sss(URL)
	{
		newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
		if(document.all){
		newwin.moveTo(200,40 )
		newwin.resizeTo(400,400 );
		}
		newwin.location=URL
		newwin.focus();
	}

	
//-->
</SCRIPT>
<script language="javascript">
function mysubmit(theform)
{
    if(theform.big.value=="")
    {
    alert("请点击浏览按钮，选择您要上传的jpg或gif文件!")
    theform.big.focus;
    return (false);
    }
    else
    {
    str= theform.big.value;
    strs=str.toLowerCase();
    lens=strs.length;
    extname=strs.substring(lens-4,lens);
    if(extname!=".jpg" && extname!=".gif")
    {
    alert("请选择jpg或gif文件!");
    return (false);
    }
    }
    return (true);
}
</script>
<script language="javascript">
function mysubmit2(theform)
{
    if(theform.big.value=="")
    {
    alert("请点击浏览按钮，选择您要上传的wav或mp3文件!")
    theform.big.focus;
    return (false);
    }
    else
    {
    str= theform.big.value;
    strs=str.toLowerCase();
    lens=strs.length;
    extname=strs.substring(lens-4,lens);
    if(extname!=".wav"&&extname!=".mp3" )
    {
    alert("请选择wav或mp3文件!");
    return (false);
    }
    }
    return (true);
}
</script><object runat="server" id="conn1" progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock%>
<object runat="server" id="connpic" progid="adodb.connection"></object>
<%application.Lock
connpic.Open Application("p_pic")
Application.UnLock
%>
<div align="center">
  <center>
<table cellpadding="0" cellspacing="0" width="716" style="border-collapse: collapse" bordercolor="#111111">
    <tr>
        <td width="770" align="center">
            <div align="center">
              <center>
            <table cellpadding="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#111111">
                <tr>
                    <td width="769"><!--#include file="top.asp" --></td>
                </tr>
                
                
    <tr> 
      <td width="769"> 
        <table width="778" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="115" valign="top"> 
              <table id="Table_01" width="150" height="192" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td rowspan="3"> <img src="../image/love_image/images/left_top_01.gif" width="6" height="192" alt=""></td>
                  <td> <img src="../image/love_image/images/left_top_02.gif" width="164" height="7" alt=""></td>
                  <td rowspan="3"> <img src="../image/love_image/images/left_top_03.gif" width="7" height="192" alt=""></td>
                </tr>
                <tr> 
                  <td background="../image/love_image/images/left_top_04.gif" width="164" height="23"> 
                    <table width="98%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td width="16%" align="center"> 
                          <div align="center"><b> 
                            <%set rs_t=server.CreateObject ("ADODB.recordset")
  
   sql="select * from user where user_name='"&session("Current_user")&"'"
   rs_t.Open sql,conn1,3,2
  if rs_t.RecordCount<>0 then
   nickname=rs_t("nickname")
   sex=rs_t("sex")
   
   if rs_t("weight")=1 then
	 user_type="普通会员"
	else
		 user_type="VIP会员"
	end if 
end if	
	set rs_online=server.CreateObject ("ADODB.recordset")
  
   sql="select count(*) as online_num from online"
   rs_online.Open sql,conn1,3,2
   
   online_num=rs_online("online_num")
  
  %>
                            <b></b><b><font color="#666666"> 
                            <%if rs_t("sex")="男" then 
response.write "<img src=../image/boy.gif width=14 height=10 border=0></a></div>"
else%>
                            <img src=../image/girl.gif width=14 height=10 border=0> 
                            <%end if%>
                            </font></b> </b></div>
                        </td>
                        <td width="84%"> 您好，<%=nickname%>！ 
                          <%
 set rs2=server.CreateObject ("ADODB.recordset")
 sql="select * from user where user_name='"&session("Current_user")&"'"
 rs2.Open sql,conn1,3
 charisma=rs2("charisma")
 if charisma<101 then
	rank="自由天使"
 elseif charisma>100 and charisma<301 then
	rank="梦幻天使"
 elseif charisma>300 and charisma<1001 then
	rank="星梦天使"
 elseif charisma>1000 and charisma<10001 then
	rank="寻梦天使"
 elseif charisma>100 and charisma<50001 then
	rank="追梦天使"
 elseif charisma>100 and charisma<150001 then
	rank="缘梦天使"
 elseif charisma>100 and charisma<500001 then
	rank="浪漫天使"
 elseif charisma>500000  then
	rank="守护天使"
end if
 %>
                          　 </td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <tr> 
                  <td background="../image/love_image/images/left_top_05.gif" width="164" height="162"> 
                    <table border="0" height="2" cellspacing="0" cellpadding="2" width="98%" style="border-collapse: collapse" bordercolor="#111111" align="center">
                      <tr> 
                        <td height="16" >&nbsp;&nbsp;&nbsp;会员类别：<font  color=red><%=user_type%></font></td>
                      </tr>
                      <tr> 
                        <td height="16" >&nbsp;&nbsp;&nbsp;天使级别：<font  color=red><%=rank%></font></td>
                      </tr>
                      <tr> 
                        <td height="16" >&nbsp;&nbsp;&nbsp;魅力积分：<font  color=red><%=charisma%></font>分</td>
                      </tr>
                      <tr> 
                        <td height="16" >&nbsp;&nbsp;&nbsp;上站次数：<font  color=red><%=rs2("counter")%></font>次</td>
                      </tr>
                      <tr> 
                        <td height="16" >&nbsp;&nbsp;&nbsp;档案浏览：<font  color=red><%=rs2("visited_counter")%></font>次</td>
                      </tr>
                      <tr> 
                        <td height="16" >&nbsp;&nbsp;&nbsp;入会日期：<font  color=red><%=formatdatetime(rs2("reg_date"),vblongdate)%></font></td>
                      </tr>
                      <tr> 
                        <td height="16" >&nbsp;&nbsp;&nbsp;最新访问：<font  color=red><%=formatdatetime(rs2("last_time"),vblongdate)%></font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
              <div align="center"> 
                <center>
                </center>
              </div>
              <!--#include file="left.asp"-->
            </td>
            <td width="663" valign="top"> 
              <table id="Table_01" width="602" height="744" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td colspan="10"> <img src="../image/love_image/images/yingyin_01.gif" width="601" height="5" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="5" alt=""></td>
                </tr>
                <tr> 
                  <td> <img src="../image/love_image/images/yingyin_02.gif" width="18" height="27" alt=""></td>
                  <td colspan="2"> <img src="../image/love_image/images/yingyin_03.gif" width="24" height="27" alt=""></td>
                  <td> <img src="../image/love_image/images/yingyin_04.gif" width="58" height="27" alt=""></td>
                  <td colspan="5" background="../image/love_image/images/yingyin_05.gif" height="27"> 
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
                      <tr> 
                        <td height=23 width="508"> <marquee direction=center onMouseOver="this.stop()" onMouseOut="this.start()" scrollamount="3"><%=Application("quick_note")%></marquee></td>
                      </tr>
                    </table>
                  </td>
                  <td> <img src="../image/love_image/images/yingyin_06.gif" width="12" height="27" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="27" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="10"> <img src="../image/love_image/images/yingyin_07.gif" width="601" height="11" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="11" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="5" rowspan="5"> <img src="../image/love_image/images/yingyin_08.gif" width="186" height="148" alt=""></td>
                  <td> <img src="../image/love_image/images/yingyin_09.gif" width="36" height="46" alt=""></td>
                  <td rowspan="2"> <img src="../image/love_image/images/yingyin_10.gif" width="67" height="79" alt=""></td>
                  <td rowspan="2"> <img src="../image/love_image/images/yingyin_11.gif" width="159" height="79" alt=""></td>
                  <td colspan="2"> <a href="my_notebook.asp"><img src="../image/love_image/images/yingyin_12.gif" width="153" height="46" alt="" border="0"></a></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="46" alt=""></td>
                </tr>
                <tr> 
                  <td rowspan="4"> <img src="../image/love_image/images/yingyin_13.gif" width="36" height="102" alt=""></td>
                  <td colspan="2" rowspan="2"> <a href="friend_list.asp"><img src="../image/love_image/images/yingyin_14.gif" width="153" height="52" alt="" border="0"></a></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="33" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="2" rowspan="2"> <img src="../image/love_image/images/yingyin_15.gif" width="226" height="55" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="19" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="2" rowspan="2"> <a href="join_vip.asp"><img src="../image/love_image/images/yingyin_16.gif" width="153" height="50" alt="" border="0"></a></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="36" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="2"> <img src="../image/love_image/images/yingyin_17.gif" width="226" height="14" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="14" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="2"> <img src="../image/love_image/images/yingyin_18.gif" width="35" height="30" alt=""></td>
                  <td colspan="8" background="../image/love_image/images/yingyin_19.gif" height="30"><b><font color="#CC3300">　我的个人影音集</font></b> 
                  </td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="30" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="10"> <img src="../image/love_image/images/yingyin_20.gif" width="601" height="8" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="8" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="2"> <img src="../image/love_image/images/yingyin_21.gif" width="35" height="33" alt=""></td>
                  <td colspan="8" background="../image/love_image/images/yingyin_22.gif" height="33"><b><font color="#CC3300">　<font color="#666666">个人相册</font></font></b> 
                  </td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="33" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="10" background="../image/love_image/images/yingyin_23.gif" height="240"> 
                    <table class="border_yellow1" cellpadding="2" cellspacing="0" width="98%" style="border-collapse: collapse" bordercolor="#111111" align="center">
                      <tr valign="top"> 
                        <td width="568" height="150"> 
                          <script language=javascript>
<!--
function open_pic(id)
		{
		
	
		srcIMG="displaypic1.asp?id="+id;
		var newWin=window.open(srcIMG,"_blank","fullscreen=1,status=no,scrollbars=0,resizable=1,width=800,height=600");
		}
	 
//-->
                                            </script>
                          <table class="color_5" cellpadding="5" cellspacing="0" width="98%" align="center">
                            <tbody> 
                            <tr> 
                              <td colspan="2" height="35" width="98%9" valign="top"><b><span class="abody">注意：</span></b><span class="abody"><br>
                                &nbsp;&nbsp;&nbsp;&nbsp; 您相册里的照片每幅大小不能超过200K,总数最多2幅，简介要求在2-15个字符之内，只能上传jpg或gif文件</span></td>
                            </tr>
                            <form name="form111" enctype="multipart/form-data" action="addpic.asp" method="post" onSubmit="return mysubmit(this)">
                              <tr> 
                                <td align="middle" noWrap width="76"><b>选择照片：</b></td>
                                <td width="383"> 
                                  <input class="myinput2" name="big2" size="28" type="file">
                                  <input class="myinput2" name="loveupload2" type="hidden" value="确定上传">
                                  <input class="myinput2" align="absMiddle" border="0" height="18" name="loveupload2" src="images/btn_upload.gif" type="image" value="确定上传" width="59">
                                </td>
                              </tr>
                              <!--          <tr>                                              <td align="middle" noWrap><b>照片简介：</b></td>                            <td><input class=myinput2 maxLength="40" name="ptitle" size="28"> </td></tr>     -->
                            </form>
                            </tbody> 
                          </table>
                          <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from pic where user_name='" &session("Current_user")&"'"
rs.open sql,connpic,3,2

%>
                          <table  bordercolorlight="#cccccc" bordercolordark="#FFFFFF"　class=color_1 cellpadding="1" cellspacing="1" width="98%" align="center" border="1" bordercolor="#000000">
                            <tbody> 
                           
                            <%if rs.recordcount<>0 then
      
      for i=1 to rs.recordcount
			if  i mod 2 then
      
      %>
                            <tr bgcolor="#FFF3C7"> 
                              <td class="p1" align="center" width="72" bgcolor="#F5F5F5"> 
                                <b>编号</b></td>
                              <td align="center" width="180" bgcolor="#F5F5F5"><b>设置为身份照片</b></td>
                              <td align="center" width="180" bgcolor="#F5F5F5"><b>操作</b></td>
                            </tr>
                            <tr bgcolor="#FFF3C7"> 
                              <td class="p1" align="center" width="72" bgcolor="#F7F7F7"> 
                                <a href=javascript:open_pic(<%=rs("id")%>); >第<%=i%>张</a></td>
                              <% if rs("selected")=1 then%>
                              <td align="center" width="180" bgcolor="#F7F7F7"><font color=#333333>已被设置为身份照片</font></td>
                              <%else%>
                              <td align="center" width="180" bgcolor="#F7F7F7"><a href="set_photo.asp?user_name=<%=session("Current_user")%>&amp;id=<%=rs("id")%>">设置为身份照片</a></td>
                              <%end if%>
                              <td class="p1" align="center" width="35" bgcolor="#FFFFFF"> 
                                <div align="center"><a href="delphoto.asp?id=<%=rs("id")%>">删除</a></div>
                              </td>
                            </tr>
                            <%else%>
                            <tr bgcolor="#FFF8E1"> 
                              <td class="p1" align="center" width="72" bgcolor="#F7F7F7"> 
                                <a href=javascript:open_pic(<%=rs("id")%>); >第<%=i%>张</a></td>
                              <% if rs("selected")=1 then%>
                              <td align="center" width="180" bgcolor="#F7F7F7"><font color=#333333>已被设置为身份照片</font></td>
                              <%else%>
                              <td align="center" width="180" bgcolor="#F7F7F7"><a href="set_photo.asp?user_name=<%=session("Current_user")%>&amp;id=<%=rs("id")%>">设置为身份照片</a></td>
                              <%end if%>
                              <td class="p1" align="center" width="35" bgcolor="#FFFFFF"> 
                                <div align="center"><a href="delphoto.asp?id=<%=rs("id")%>">删除</a></div>
                              </td>
                            </tr>
                            <%end if %>
                            <%
     rs.movenext
       next
  else
  
       
       %>
                            <tr bgcolor="#FFF3C7"> 
                              <td class="p1" colspan="3" align="center" bgcolor="#F7F7F7">&nbsp; 
                                没有照片 </td>
                              <td width="35" bgcolor="#FFFFFF"> 
                                <p align="center"> 
                                  <%'=session("Current_user")%>
                              </td>
                            </tr>
                            <%end if%>
                            <tr bgcolor="#FFF3C7"> 
                              <td class="p1" width="72" bgcolor="#F7F7F7">&nbsp; </td>
                              <td colspan="2" bgcolor="#F7F7F7"></td>
                            </tr>
                            </tbody> 
                          </table>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="240" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="2"> <img src="../image/love_image/images/yingyin_24.gif" width="35" height="28" alt=""></td>
                  <td colspan="8" background="../image/love_image/images/yingyin_25.gif" height="28"><b><font color="#CC3300">　<font color="#666666">个人声音</font></font></b> 
                  </td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="28" alt=""></td>
                </tr>
                <tr> 
                  <td colspan="10" background="../image/love_image/images/yingyin_26.gif" height="213"> 
                    <table cellpadding="0" cellspacing="0" width="98%" align="center">
                      <tr valign="top"> 
                        <td width="568" height="171"> 
                          <%
Set rs = Server.CreateObject("ADODB.Recordset")
'sql="select * from sound where user_name='www'"
sql="select * from sound where user_name='" &session("Current_user")&"'"
rs.open sql,connpic,3,2
%>
                          <table class="color_5" cellpadding="5" cellspacing="0" width="98%" align="center">
                            <tbody> 
                            <tr> 
                              <td colspan="2" height="35" width="98%"><b>注意：</b><br>
                                &nbsp;&nbsp;&nbsp;&nbsp; 您可以上传大小一个不能超过400K的WAV或MP3文件,要上传第二个请先删除原有的！</td>
                            </tr>
                            <tr> 
                              <td align="middle" noWrap width="67"><b>选择声音：</b></td>
                              <td width="385"> 
                                <%if Session("weight")=1 then %>
                                <form>
                                  <input class="myinput2" name="big" size="28" type="file">
                                  <input class="myinput2" name="loveupload" type="hidden" value="确定上传">
                                  <input class="myinput2" align="absMiddle" border="0" height="18" name="loveupload" src="images/btn_upload.gif" type="image" value="确定上传" width="59" onClick="javascript:alert(&quo" " 对不起！这是VIP会员专有的服务！&quot;);">
                                </form>
                                <%else%>
                                <form enctype="multipart/form-data" action="addsound.asp" method="post" id="form2" name="form3" onSubmit="return mysubmit2(this)">
                                  <input class="myinput2" name="big" size="28" type="file">
                                  <input class="myinput2" name="loveupload" type="hidden" value="确定上传">
                                  <input class="myinput2" align="absMiddle" border="0" height="18" name="loveupload" src="images/btn_upload.gif" type="image" value="确定上传" width="59">
                                </form>
                                <%end if%>
                              </td>
                            </tr>
                            </tbody> 
                          </table>
                          <table  bordercolorlight="#cccccc" bordercolordark="#FFFFFF"　　class=color_1 cellpadding="1" cellspacing="1" width="98%" align="center" border="1">
                            <tbody> 
                            <tr bgcolor="#EBEBEB"> 
                              <td align="center" class="sp" width="68"><b>编号</b></td>
                              <td align="center" class="sp" width="295"><b>声音试听</b></td>
                              <td align="middle" class="sp" width="96"><b>操作</b></td>
                            </tr>
                            <%if rs.recordcount<>0 then
      
      for i=1 to rs.recordcount
		Response.Write "<SCRIPT LANGUAGE=javascript>"&vbcr
		Response.Write "function openwindow(){"&vbcr
		Response.Write "var url;"&vbcr
		Response.Write "url=""show_mysound.asp?id="&rs("id")&""";"&vbcr
		Response.Write "newwin=window.open("""",""ssss"",""fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0"");"&vbcr
		'Response.Write "if(document.all){"&vbcr
		Response.Write "newwin.moveTo(0,0 );"&vbcr
		Response.Write "newwin.resizeTo(400,300 );"&vbcr
		'Response.Write "}"&vbcr
		'Response.Write ""&vbcr
	
		Response.Write "newwin.location=url;"&vbcr
		Response.Write "newwin.focus();"&vbcr
	    Response.Write "}"&vbcr
		Response.Write "</SCRIPT>"&vbcr
      
      %>
                            <tr bgcolor="#F3F3F3"> 
                              <td class="p1" align="center" width="68"> <font color=#333333>第<%=i%>张</font></td>
                              <td align="center" width="295"><a href="javascript:openwindow()">请您试听声音</a> 
                                <%'Response.Write "url=""show_mysound.asp?id="&rs("id")&""";"%>
                              </td>
                              <td class="p1" align="center" width="96"><a href="delsound.asp?id=<%=rs("id")%>">删除</a></td>
                            </tr>
                            <%
     rs.movenext
       next
  else
  
       
       %>
                            <tr bgcolor="#F3F3F3"> 
                              <td class="p1" colspan="3" align="center" width="473">&nbsp; 
                                没有上传声音文件 </td>
                            </tr>
                            <%end if%>
                            <tr bgcolor="#F3F3F3"> 
                              <td class="p1" width="68">&nbsp; 
                                <%'=session("Current_user")%>
                              </td>
                              <td width="295"></td>
                              <td width="96"></td>
                            </tr>
                            </tbody> 
                          </table>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="1" height="213" alt=""></td>
                </tr>
                <tr> 
                  <td> <img src="../image/love_image/images/spacer.gif" width="18" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="17" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="7" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="58" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="86" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="36" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="67" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="159" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="141" height="1" alt=""></td>
                  <td> <img src="../image/love_image/images/spacer.gif" width="12" height="1" alt=""></td>
                  <td></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        
      </td>
                </tr>
                <tr>
                    <td width="769">                        <p align="center"><!--#include file="../copyright.asp" --></td>
                </tr>
            </table>
              </center>
            </div>
        </td>
    </tr>
</table>
  </center>
</div>
</body>
</html>