<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/Conn_User.asp"-->
<%if Request.Cookies("asp163")("UserName")="" or request("UserID")="" then 
  response.Redirect "User_Login.asp"
  else
  end if%>
<html>
<head>
<title>管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="new/css.CSS" rel="stylesheet" type="text/css">
<style type=text/css>
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#E8E8E8; }
.menu_title  { }
.menu_title span  { position:relative;color:#333333; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; color:#333333; font-weight:bold; }
</style>

<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<SCRIPT language=javascript>

function ConfirmDel()
{
   if(confirm("确定要删除吗？一旦删除将不能恢复！"))
     return true;
   else
     return false;
	 
}

</SCRIPT>
<style type="text/css">
BODY {
	scrollbar-face-color:#DDDDDD;
	scrollbar-highlight-color: #cccccc;
	scrollbar-shadow-color: #CCCCCC;
	scrollbar-3dlight-color: #F5F5F5;
	scrollbar-darkshadow-color: #F5F5F5;
	scrollbar-track-color: #F0F0F0;
	scrollbar-arrow-color: #FFFFFF;
	margin-left: 10px;
	margin-top: 10px;
	margin-right: 10px;
	margin-bottom: 10px;
}
</style>
<link href="new/css.CSS" rel="stylesheet" type="text/css" />
</head>

<body >

  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="1" height="1"></td>
      <td height="1" bgcolor="#BCBCBC"></td>
      <td width="1" height="1"></td>
    </tr>
    <tr>
      <td bgcolor="#BCBCBC"></td>
      
    <td height="27" align="center" bgcolor="f6f6f6" id=menuTitle1 style="cursor:hand;" onClick="showsubmenu(1)" onmouseover=this.className='menuTitle1'; onmouseout=this.className='menuTitle1';> 
      <span><strong>---&nbsp;空间信息&nbsp;---</strong></span></td>
      <td bgcolor="#BCBCBC"></td>
    </tr>
  </table>
  <%
userid=request("userid")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where userid="&userid&" order by userid desc"
rs.open sql,Conn_User,1,3%>
  <table width="100%"  border="0" cellspacing="0" cellpadding="0"  style='display:' id='submenu1'>
  <form name="form1" method="post" action="managesave.asp">
    <tr>
      <td><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="bcbcbc">
    <tr bgcolor="ffffff">
      <td width="18%" align="center"><img src="user/head.gif" width="10" height="8"><strong>&nbsp;标题:</strong></td>
      <td width="260" align="center">
          <input name="title" type="text" id="title" value="<%=rs("title")%>" size="48" maxlength="30" class="ifd"/></td>
      <td><select name="TitleColor" id="TitleColor" class="ifd">
        <option value="">颜色</option>
        <option value="">默认</option>
        <option value="#000000" style="background-color:#000000" <%if rs("TitleColor")="#000000" then response.write " selected"%>></option>
        <option value="#FF00FF" style="background-color:#FF00FF" <%if rs("TitleColor")="#FF00FF" then response.write " selected"%>></option>
        <option value="#008000" style="background-color:#008000" <%if rs("TitleColor")="#008000" then response.write " selected"%>></option>
        <option value="#800000" style="background-color:#800000"<%if rs("TitleColor")="#800000" then response.write " selected"%>></option>
        <option value="#808000" style="background-color:#808000" <%if rs("TitleColor")="#808000" then response.write " selected"%>></option>
        <option value="#000080" style="background-color:#000080" <%if rs("TitleColor")="#000080" then response.write " selected"%>></option>
        <option value="#800080" style="background-color:#800080" <%if rs("TitleColor")="#800080" then response.write " selected"%>></option>
        <option value="#808080" style="background-color:#808080" <%if rs("TitleColor")="#808080" then response.write " selected"%>></option>
        <option value="#FF6130" style="background-color:#FF6130"  <%if rs("TitleColor")="#FF6130" then response.write " selected"%>></option>
        <option value="#99CCFF" style="background-color:#99CCFF" <%if rs("TitleColor")="#99CCFF" then response.write " selected"%>></option>
        <option value="#00FFFF" style="background-color:#00FFFF" <%if rs("TitleColor")="#00FFFF" then response.write " selected"%>></option>
        <option value="#09CDF0" style="background-color:#09CDF0" <%if rs("TitleColor")="#09CDF0" then response.write " selected"%>></option>
        <option value="#FF0000" style="background-color:#FF0000" <%if rs("TitleColor")="#FF0000" then response.write " selected"%>></option>
        <option value="#0000FF" style="background-color:#0000FF" <%if rs("TitleColor")="#0000FF" then response.write " selected"%>></option>
        <option value="#008080" style="background-color:#008080" <%if rs("TitleColor")="#008080" then response.write " selected"%>></option>
      </select></td>
    </tr>
    <tr bgcolor="ffffff">
      <td rowspan="2" align="center"><img src="user/head.gif" width="10" height="8"><strong>&nbsp;介绍:</strong></td>
      <td width="260" rowspan="2" align="center">
	  <textarea name="intor" id="intor2" cols="35" rows="3"  class="maninput"><%=rs("intor")%></textarea></td>
      <td><select name="intorcolor" id="intorcolor" class="ifd">
        <option value="#666666">颜色</option>
        <option value="#666666">默认</option>
        <option value="#000000" style="background-color:#000000" <%if rs("intorcolor")="#000000" then response.write " selected"%>></option>
        <option value="#FF00FF" style="background-color:#FF00FF" <%if rs("intorcolor")="#FF00FF" then response.write " selected"%>></option>
        <option value="#008000" style="background-color:#008000" <%if rs("intorcolor")="#008000" then response.write " selected"%>></option>
        <option value="#800000" style="background-color:#800000"<%if rs("intorcolor")="#800000" then response.write " selected"%>></option>
        <option value="#808000" style="background-color:#808000" <%if rs("intorcolor")="#808000" then response.write " selected"%>></option>
        <option value="#000080" style="background-color:#000080" <%if rs("intorcolor")="#000080" then response.write " selected"%>></option>
        <option value="#800080" style="background-color:#800080" <%if rs("intorcolor")="#800080" then response.write " selected"%>></option>
        <option value="#808080" style="background-color:#808080" <%if rs("intorcolor")="#808080" then response.write " selected"%>></option>
        <option value="#FF6130" style="background-color:#FF6130"  <%if rs("intorcolor")="#FF6130" then response.write " selected"%>></option>
        <option value="#99CCFF" style="background-color:#99CCFF" <%if rs("intorcolor")="#99CCFF" then response.write " selected"%>></option>
        <option value="#00FFFF" style="background-color:#00FFFF" <%if rs("intorcolor")="#00FFFF" then response.write " selected"%>></option>
        <option value="#09CDF0" style="background-color:#09CDF0" <%if rs("intorcolor")="#09CDF0" then response.write " selected"%>></option>
        <option value="#FF0000" style="background-color:#FF0000" <%if rs("intorcolor")="#FF0000" then response.write " selected"%>></option>
        <option value="#0000FF" style="background-color:#0000FF" <%if rs("intorcolor")="#0000FF" then response.write " selected"%>></option>
        <option value="#008080" style="background-color:#008080" <%if rs("intorcolor")="#008080" then response.write " selected"%>></option>
      </select></td>
    </tr>
    <tr bgcolor="ffffff">
      <td><select name="intorsize" size="1">
        <option value="12" <%if rs("intorsize")="12" then response.write " selected"%>>字号</option>
        <option value="13" <%if rs("intorsize")="13" then response.write " selected"%>>1号</option>
        <option value="14" <%if rs("intorsize")="14" then response.write " selected"%>>2号</option>
        <option value="15" <%if rs("intorsize")="15" then response.write " selected"%>>3号</option>
        <option value="16" <%if rs("intorsize")="16" then response.write " selected"%>>4号</option>
      </select>
      </td>
    </tr>
    <tr bgcolor="ffffff">
      <td align="center"><img src="user/head.gif" width="10" height="8"><strong>&nbsp;状态:</strong></td>
      <td colspan="2"><%if rs("love")=1 or rs("love")<=0 then%><input name="radiobutton" type="radio" value="1" checked>
	  <%else%><input name="radiobutton" type="radio" value="1"><%end if%>
        无语
          <%if rs("love")=2 then%><input name="radiobutton" type="radio" value="2" checked>
	  <%else%><input type="radio" name="radiobutton" value="2"> <%end if%>
          高兴
          <%if rs("love")=3 then%><input name="radiobutton" type="radio" value="3" checked>
	  <%else%><input type="radio" name="radiobutton" value="3"> <%end if%>
          郁闷
          <%if rs("love")=4 then%><input name="radiobutton" type="radio" value="4" checked>
	  <%else%><input type="radio" name="radiobutton" value="4"> <%end if%>
          忙碌
          <%if rs("love")=5 then%><input name="radiobutton" type="radio" value="5" checked>
	  <%else%><input type="radio" name="radiobutton" value="5"> <%end if%>
          疑问
          <%if rs("love")=6 then%><input name="radiobutton" type="radio" value="6" checked>
	  <%else%><input type="radio" name="radiobutton" value="6"> <%end if%>
          思念</td>
    </tr>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" >
    <tr>
      <td bgcolor="#BCBCBC"></td>
      <td height="27" align="center" bgcolor="fafafa"><input name="userid" type="hidden" id="userid" value="<%userid=Trim(Request("userid"))%><%=userid%>">
      <input name="imageField" type="image" src="user/sub.gif" width="40" height="14" border="0"></td>
      <td bgcolor="#BCBCBC"></td>
    </tr>
    <tr>
      <td width="1" height="1"></td>
      <td height="1" bgcolor="#BCBCBC"></td>
      <td width="1" height="1"></td>
    </tr>
  </table>
  <table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table></td>
    </tr></form>
	
  </table>
  <%
usernamed=Request.Cookies("asp163")("UserName")
set rs=server.createobject("adodb.recordset")
sql="select * from [bg] where username='"&usernamed&"' order by id desc"
rs.open sql,Conn_User,1,3%>

  <table width="100%" border="0" cellspacing="0" cellpadding="0">
   <tr>
      <td width="1" height="1"></td>
      <td height="1" bgcolor="#BCBCBC"></td>
      <td width="1" height="1"></td>
    </tr>
    <tr>
      <td bgcolor="#BCBCBC"></td>
      <td height="27" align="center" bgcolor="f6f6f6" id=menuTitle1 style="cursor:hand;" onClick="showsubmenu(2)" onmouseover=this.className='menu_title1'; onmouseout=this.className='menuTitle1';> <span><strong>---&nbsp;我的模版&nbsp;---</strong></span></td>
      <td bgcolor="#BCBCBC"></td>
    </tr>

  </table>
  <table width="100%"  border="0" cellspacing="0" cellpadding="0"  style="display:" id='submenu2'>
<tr>
      <td>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" >
      <tr>
      <td height="1" bgcolor="#BCBCBC"></td>
      <td height="1" align="center" bgcolor="#BCBCBC"></td>
      <td height="1" bgcolor="#BCBCBC"></td>
    </tr>
    <tr>
      <td bgcolor="#BCBCBC"></td>
      <td align="center" bgcolor="#FFFFFF"><table width="100%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table><%if rs.eof then%><br/> 暂时没有模版 <br/><br/><%else%>
        <table  border="0" cellpadding="6" cellspacing="0">
        <tr  bgcolor="#FFFFFF">
          <%i=0%>
          <%do while not rs.eof%>
          <td align="center"  bgcolor="#FFFFFF"><table width="70"  border="0" cellpadding="0" cellspacing="0" bgcolor="FFFFFFF">
                      <tr> 
                        <td width="70" height="70"  bgcolor="#FFFFFF" style="{background-image: URL(bg/<%=rs("bgid")%>s.gif);
background-position: center; 
background-repeat: no-repeat; 
background-attachment: fixed;}" ><a href="view.asp?bgid=<%=rs("bgid")%>" target="_blank"><img src="user/kong.gif"  width=70 height=70 border="0"></a></td>
                      </tr>
                      <tr> 
                        
                      <td height="22" align="center" valign="bottom" bgcolor="#FFFFFF"> 
                        <a href=mbsave.asp?bgid=<%=rs("bgid")%>&userid=<%=Trim(Request("userid"))%>><font class=no>使用</font></a>/<a href=mbdel.asp?bgid=<%=rs("bgid")%>&userid=<%=Trim(Request("userid"))%> onClick="return ConfirmDel();"><font class=no>删除</font></a> 
                      </td>
                      </tr>
                     
                    </table></td>
          <%i=i+1%>
          <%if i mod 5=0 then%>
        </Tr>
        <%else%>
        <%end if%>
        <%rs.movenext
		loop
		rs.close
		set rs=nothing%>
      </table>
	  <%end if%></td>
      <td bgcolor="#BCBCBC"></td>
    </tr>
    <tr>
      <td width="1" height="1" bgcolor="bcbcbc"></td>
      <td height="1"bgcolor="#BCBCBC"></td>
      <td width="1" height="1" bgcolor="bcbcbc"></td>
    </tr>
  </table>
  <table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table></td>
    </tr>
  </table>

  <%
usernamed=Request.Cookies("asp163")("UserName")
set rs=server.createobject("adodb.recordset")
sql="select * from [userg] where username='"&usernamed&"' order by id desc"
rs.open sql,Conn_User,1,3%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="1" height="1"></td>
      <td height="1" bgcolor="#BCBCBC"></td>
      <td width="1" height="1"></td>
    </tr>
    <tr>
      <td bgcolor="#BCBCBC"></td>
      <td height="27" align="center" bgcolor="f6f6f6" id=menuTitle1 style="cursor:hand;" onClick="showsubmenu(6)" onmouseover=this.className='menu_title1'; onmouseout=this.className='menuTitle1';><span><strong>---&nbsp;我的挂饰&nbsp;---</strong></span></td>
      <td bgcolor="#BCBCBC"></td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="0" cellpadding="0"  style="display:" id='submenu6'>

      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0" >
            <tr>
              <td height="1" bgcolor="#BCBCBC"></td>
              <td height="1" align="center" bgcolor="#BCBCBC"></td>
              <td height="1" bgcolor="#BCBCBC"></td>
            </tr>
            <tr>
              <td bgcolor="#BCBCBC"></td>
              <td align="center" bgcolor="#FFFFFF"><table width="100%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="5"></td>
                  </tr>
                </table><%if rs.eof then%><br/> 
                暂时没有挂饰 <br/>
                <br/><%else%>
                  <table  border="0" cellpadding="6" cellspacing="0">
                    <tr  bgcolor="#FFFFFF">
                      <%i=0%>
                      <%do while not rs.eof%>
                      <td align="center"  bgcolor="#FFFFFF"><table width="70"  border="0" cellpadding="0" cellspacing="0" bgcolor="FFFFFFF">
                          <tr>
                            <td width="70" height="70"  bgcolor="#FFFFFF" style="{background-image: URL(userg/<%=rs("gid")%>.gif);
background-position: center; 
background-repeat: no-repeat; 
background-attachment: fixed;}" ><a href="view.asp?usergid=<%=rs("gid")%>" target="_blank"><img src="user/kong.gif"  width=70 height=70 border="0"></a></td>
                          </tr>
                           <tr> 
                        
                      <td height="22" align="center" valign="bottom" bgcolor="#FFFFFF"> 
                        <a href=usergsave.asp?gid=<%=rs("gid")%>&userid=<%=Trim(Request("userid"))%>><font class=no>使用</font></a>/<a href=usergdel.asp?gid=<%=rs("gid")%>&userid=<%=Trim(Request("userid"))%> onClick="return ConfirmDel();"><font class=no>删除</font></a> 
                      </td>
                      </tr>
                      </table></td>
                      <%i=i+1%>
                      <%if i mod 5=0 then%>
                    </Tr>
                    <%else%>
                    <%end if%>
                    <%rs.movenext
		loop
		rs.close
		set rs=nothing%>
                </table><%end if%></td>
              <td bgcolor="#BCBCBC"></td>
            </tr>
            <tr>
              <td width="1" height="1" bgcolor="bcbcbc"></td>
              <td height="1"bgcolor="#BCBCBC"></td>
              <td width="1" height="1" bgcolor="bcbcbc"></td>
            </tr>
          </table>
            <table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
          </table></td>
      </tr>

  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">

    <tr>
      <td width="1" height="1"></td>
      <td height="1" bgcolor="#BCBCBC"></td>
      <td width="1" height="1"></td>
    </tr>
    <tr>
      <td bgcolor="#BCBCBC"></td>
      <td height="27" align="center" bgcolor="f6f6f6"  id=menuTitle3 style="cursor:hand;" onClick="showsubmenu(3)" onmouseover=this.className='menu_title3'; onmouseout=this.className='menuTitle1';> <span><strong>---&nbsp;我的好友&nbsp;---</strong></span></td>
      <td bgcolor="#BCBCBC"></td>
    </tr>
    <tr>
      <td height="1" bgcolor="#BCBCBC"></td>
      <td height="1" align="center" bgcolor="#BCBCBC"></td>
      <td height="1" bgcolor="#BCBCBC"></td>
    </tr>

</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0"  style="display:" id='submenu3'>
  <tr>
    <td>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" >
        <tr>		  <%
		usernamedd=Request.Cookies("asp163")("UserName")
set rsd=server.createobject("adodb.recordset")
sql="select * from [friend] where username='"&usernamedd&"' order by id desc"
rsd.open sql,Conn_User,1,1
%>
          <td bgcolor="#BCBCBC"></td>
          <td align="center" bgcolor="ffffff"><table width="100%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="5"></td>
            </tr>
          </table><%if rsd.eof then%><br/> 
          暂时没有好友 <br/>
          <br/><%else%>
          <table  border="0" cellpadding="6" cellspacing="0">
              <tr>
                <%i=0%>
                <%do while not rsd.eof%>
                <td align="center"  bgcolor="#FFFFFF">
				 <%
				useridf=rsd("fid")
set rst=server.createobject("adodb.recordset")
sql="select * from [user] where userid="&useridf&" order by userid desc"
rst.open sql,Conn_User,1,3%><%if rst.eof then%><%else%><table border="0" cellpadding="0" cellspacing="0">
				  <tr><td><a href=user.asp?userid=<%=rsd("fid")%>&mdid=indexd&htm=indexs.asp?userid=<%=rsd("fid")%> target="_blank">
				    <%if rst("userphoto")<>"" then%><img src=<%=rst("userphoto")%> width=70 height="70" border="0" alt="<%=rst("username")%>"><%else%><img src=images/nopic2.jpg border="0" width="70" height="70"><%end if%></a></td>
				 </tr><TR><td height="25" align="center">
				<a href=user.asp?userid=<%=rsd("fid")%>&mdid=indexd&htm=indexs.asp?userid=<%=rsd("fid")%> target="_blank"></a><a href="frienddel.asp?fid=<%=rsd("fid")%>&userid=<%userid=Trim(Request("userid"))%><%=userid%>"  onClick="return ConfirmDel();">删除</a>
				</td>
				 </TR></table><%end if%>
				</td>
               
              
           
             <%i=i+1%>
			  <%if i mod 5=0 then%></tr><%else%>
			   
              <%end if%>
			  <%rsd.movenext
		loop%>
          </table><%end if%></td>
          <td bgcolor="#BCBCBC"></td>
        </tr>
        <tr>
          <td width="1" height="1" bgcolor="bcbcbc"></td>
          <td height="1"bgcolor="#BCBCBC"></td>
          <td width="1" height="1" bgcolor="bcbcbc"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
