<!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">

<!--#include file="mycartconn/conn.asp" -->
<!--#include file="mycartconn/Function.asp"-->
<!--#include file="mycartconn/page.asp"-->
<%
If request.Cookies(my_url)("huiyuan")="" or request.Cookies(my_url)("hypwd")="" Then
	response.redirect "login.asp"
	response.end
End If

sqlt="select nickname,rank_allow,comment_allow,img,k,g,userid from huiyuan where huiyuan='"&replace(Request.Cookies(my_url)("huiyuan"),"'","")&"'"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sqlt,conn,1,3
If Not (rst.bof And rst.eof) Then
	If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
		If request("nickname")<>"" Then rst("nickname")=Replace(Trim(request("nickname")),"'","")
		If request("rank_allow")<>"" Then rst("rank_allow")=request("rank_allow")
		If request("comment_allow")<>"" Then rst("comment_allow")=request("comment_allow")
		rst.update
		rst.close
		Set rst=Nothing
		response.redirect "mymolihe.asp"
		response.end
	End if
Else
	response.redirect "login.asp"
	response.end
End If


FirstDing=""
FirstNickname=""
myding=""
sql="select ding from A_ding where userid="&Replace(request.Cookies(my_url)("userid"),"'","")&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If Not (rs.bof And rs.eof) Then
	myding=rs("ding")
	If InStr(myding,"|")>0 Then 
		FirstDing=Split(myding,"|")(0)
		FirstNickname=conn.execute("select nickname from huiyuan where userid="&CLng(FirstDing)&"")(0)
	ElseIf myding<>"" Then
		FirstDing=myding
		FirstNickname=conn.execute("select nickname from huiyuan where userid="&CLng(FirstDing)&"")(0)
	End If
End If
page1("20")
rs.CacheSize = 20
i=1


%>

<html xmlns="http://www.w3.org/1999/xhtml" lang="zh-cn">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="content-language" content="zh-cn" />
<meta content="all" name="robots" />
<meta name="copyright" content="localhost,版权所有" />
<meta name="description" content="<%=my_name%>" />
<meta content="<%=my_name%>,网店推广" name="keywords" />
<title>我的订阅——<%=my_url%></title>
<script type="text/javascript" src="js/get_config.asp"></script>
<script src="js/flash_no.js" type="text/javascript"></script>
<script language="javascript" src="js/ajax.js"></script>
<script language="javascript" src="js/register.js"></script>
<script language="javascript" src="js/event.js"></script>
<script language="javascript" src="js/molihe.js"></script>
<link href="common/css/main_xiu.css" rel="stylesheet" type="text/css" media="all" />
<link href="common/css/moliheMy.css" rel="stylesheet" type="text/css" />

<script language="javascript">
function copy(str){
	window.clipboardData.setData("Text",str);
	alert("复制成功！");
}

window.onload = function(){
	et = new events();
	reg = new reg();
	<%if FirstDing<>"" then%>
	et.displayfriendslide('<%=FirstDing%>','<%=FirstNickname%>');
	<%end if%>

}
</script>

</head>

<body>
<!-- 头部begin -->
<script type="text/javascript" id="loginOrnot"></script>
<script type="text/javascript" src="js/login.js"></script>
<div class="headerWarp">
	<!--#include file="mycartconn/conn.asp" -->
</div>
<div class="infoWarp">
	<div id="info">
    	<img src="images/index_radiate.gif" style="position:absolute; top:0; left:0;" />
        <div class="call_board">
			<script type="text/javascript" src="js/call_board_msg.js"></script>
            <script type="text/javascript" src="js/call_board.js"></script>
    	</div>
        <div class="loginWarp" id="newuser"><script type="text/javascript">login_register();</script></div>
    </div>
</div><!-- 头部end -->

<!-- 正文begin -->
<div id="main_960_02">
	<!-- 左侧begin -->
	<div class="xiu_21 f0">
		<a href="makemolihe.asp"><img src="images/x_12.gif" width="206px" height="112px" class="margin_bottom_5" /></a><br /><br /><br />
	<div class="mygg">
      <div class="myggbt">公&nbsp;&nbsp;&nbsp;&nbsp;告</div>
      <div id="myggnr" class="myggnr">&nbsp;&nbsp;&nbsp;&nbsp;<script language="javascript1.2" type="text/javascript" src="js/bg_board_msg.js"></script>
	  <script language="javascript1.2" type="text/javascript" src="js/static_board.js"> </script></div>
	</div>
		
	</div>
	<!-- 左侧end -->
	<!-- 右侧begin -->
	<div class="xiu_22">
	  <div class="margin_bottom_20">
      <div class="xiu_23" style="width:550px;"> 

		<img src="tp/userface/<%=rst("img")%>" width="<%=rst("k")%>" height="<%=rst("g")%>" onerror="this.src='tp/userface/face/mofahe.jpg';"/>
        <ul style="width:400px;">
          <li class="f130 fff6600 fweight">
		  <%=rst("nickname")%>
		  </li>
          <li><a href="javascript:et.modface('<%=rst("userid")%>');">修改头像</a> | <a href="javascript:et.moduserset(' <%=rst("nickname")%> ','<%=rst("rank_allow")%>','<%=rst("comment_allow")%>');">修改设置</a> | <a href="html.asp?tmp=modpass.asp" target="_blank">修改密码</a></li>
          <li id="mylink"><a href="user.asp?huiyuan=<%=rst("userid")%>">查看我的公开<%=my_name%>作品集</a>&nbsp;&nbsp;&nbsp;[<a href="javascript:copy(document.getElementById('mylink').getElementsByTagName('a')[0].href);">复制地址分享给我的朋友</a>]</li>
        </ul>
      </div>
						<div class="clear"></div>
		</div>
		<div>
			<div class="xiu_16">
				<ul class="xiu_17_1">
						<li><a href="mymolihe.asp">我作品秀</a></li>
						
						<li class="xiu_18"><a href="myfriend.asp">我的订阅</a></li>
				</ul>
			</div>
			<div class="xiu_19">
				<div style="padding:10px;">
					<div class="xiu_29">
						<div class="border_05 bg_D5C591 padding_5 fweight fffffff">我的订阅列表</div>
						<div class="border_05 border_top_0 padding_5 align_center bg_FFFBD6" style="overflow:auto; height:438px; width:118px;">
						<%
						If InStr(myding,"|")>0 Then
							idArr=split(myding,"|")
							for i = 0 to ubound(idArr)
								sqlm="select nickname,img from huiyuan where userid="&CLng(idarr(i))&""
								Set rsm= Server.CreateObject("ADODB.Recordset")
								rsm.open sqlm,conn,1,1
								If Not (rsm.bof And rsm.eof) Then
									anickname=rsm("nickname")
									aimg=rsm("img")
								End If
								rsm.close
								Set rsm=nothing
						%>
						      <div class="margin_bottom"><a href="javascript:et.displayfriendslide('<%=idarr(i)%>','<%=anickname%>');" class="a_hei_2"><img src="tp/userface/<%=aimg%>" width="100px" height="125px" class="margin_bottom_5" /><br /><%=anickname%></a>&nbsp;&nbsp;<a href="javascript:et.delfriend('<%=idarr(i)%>','<%=anickname%>');">[移除]</a></div>
						<%
							Next
						ElseIf myding<>"" Then
								sqlm="select nickname,img from huiyuan where userid="&CLng(myding)&""
								Set rsm= Server.CreateObject("ADODB.Recordset")
								rsm.open sqlm,conn,1,1
								If Not (rsm.bof And rsm.eof) Then
									anickname=rsm("nickname")
									aimg=rsm("img")
								End If
								rsm.close
								Set rsm=nothing
						%>
						      <div class="margin_bottom"><a href="javascript:et.displayfriendslide('<%=myding%>','<%=anickname%>');" class="a_hei_2"><img src="tp/userface/<%=aimg%>" width="100px" height="125px" class="margin_bottom_5" /><br /><%=anickname%></a>&nbsp;&nbsp;<a href="javascript:et.delfriend('<%=myding%>','<%=anickname%>');">[移除]</a></div>
						<%
						Else
							response.write "暂无订阅"
						end if%>
						</div>
					</div>
					<div class="xiu_30" id="friendlist">
					<div class="align_center">
					  <%If myding="" then%>
						您暂时还没有订阅其他用户的作品。&nbsp;&nbsp;<a href="html.asp?tmp=help/guanzhu.asp">什么是订阅？</a>&nbsp;&nbsp;<a href="html.asp?tmp=help/guanzhu.asp">如何订阅？</a>
					  <%End if%>
					</div>
						
					</div>
					<div class="clear"></div>
				</div>
			</div>
		</div>
	</div>
	<!-- 右侧end -->
	<div class="clear"></div>
</div>
<!-- 正文end -->
<!--#include file="Foot.asp" -->
</body>
</html>
<%
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%>