<!--#include file="conn/conn.asp"-->
<!--#include file="conn/config.asp"-->
<!--#include file="conn/nosql.asp"-->
<%
user1=nosql(request("user"))
act=nosql(request("act"))
ida=nosql(request("id"))
if instr(Application("snsnshenri"),user1)<=0 or user1="" then
response.write "<script language='javascript'>"
response.write "alert('对不起今天不是此用户的生日！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.End()
end if

if act="add" then
set shenri=server.CreateObject("adodb.recordset")
shenri.open"select  username from snsn_user where username='"&user1&"'",conn,1,1
if not shenri.eof then
conn.execute"insert into snsn_shenri(fromname,fdate,username,nr)values('"&session("user")&"',getdate(),'"&shenri("username")&"','"&nosql(request("nr"))&"')"
response.Write("<script>location.href='shenri.asp?user="&shenri("username")&"';</script>")
response.end()
else
response.write "<script language='javascript'>"
response.write "alert('对不起，没有找到您要找的用户！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.End()
end if
end if

if act="del" then 
if session("id")="" then
response.write "<script language='javascript'>"
response.write "alert('对不起，请登录后再访问本页！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.End()
end if
conn.execute"delete from snsn_shenri where id="&ida&" and username='"&session("user")&"'"
response.Write("<script>location.href='shenri.asp?user="&user1&"'</script>")
response.end()
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%></title>
<meta name="description" content="家园/社区/主页/免费主页/免费社区/免费家园/交友/好友/日记/论坛/心得/留言/游戏交易/装备交易/游戏心得/供求信息/ 商业公告板/">
<meta name="keywords" content="家园/社区/主页/免费主页/免费社区/免费家园/交友/好友/日记/论坛/心得/留言/游戏交易/装备交易/游戏心得/供求信息/ 商业公告板/">
<link href="css.css" REL="stylesheet" TYPE="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.unnamed10 {	font-size: 12px;
	line-height: 18px;
	font-weight: normal;
	color: #666467;
}
.style9 {color: #FF0000}
.style10 {
	color: #FF3300;
	font-weight: bold;
}
.style11 {color: #ffffff}
-->
</style>
<SCRIPT language=javascript>
//--检测登陆-->

	   function DoLogin() {

	      var UsernameGet = trim(document.loginForm.UsernameGet.value);
		  var PasswordGet = trim(document.loginForm.PasswordGet.value);
		  var Verifycode = trim(document.loginForm.Verifycode.value);

          if(UsernameGet == "") {
		    alert("请输入会员登录名！");
			document.loginForm.UsernameGet.focus();
		    return false;
		  } 
		  if(PasswordGet == "") {
		    alert("请输入您的会员密码！");
			document.loginForm.PasswordGet.focus();
		    return false;
		  } 
		  if(Verifycode == "") {
		    alert("请输入您的登录验证码！");
			document.loginForm.Verifycode.focus();
		    return false;
		  }  
		  
		  
		 }

           function trim(inputString) {
	   
              if (typeof inputString != "string") { return inputString; }
              var retValue = inputString;
              var ch = retValue.substring(0, 1);
              while (ch == " ") { 
	          //检查字符串开始部分的空格
                  retValue = retValue.substring(1, retValue.length);
                  ch = retValue.substring(0, 1);
              }
              ch = retValue.substring(retValue.length-1, retValue.length);
              while (ch == " ") {
                 //检查字符串结束部分的空格
                 retValue = retValue.substring(0, retValue.length-1);
                 ch = retValue.substring(retValue.length-1, retValue.length);
              }
              while (retValue.indexOf("  ") != -1) { 
	         //将文字中间多个相连的空格变为一个空格
                 retValue = retValue.substring(0, retValue.indexOf("  ")) + retValue.substring(retValue.indexOf("  ")+1, retValue.length); 
              }
              return retValue;
           } 

//-->
</SCRIPT>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>

<body><!--#include file="top.asp"-->
<br>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" valign="top"><!--#include file="left.asp"--></td>
    <td valign="top"><span class="style10">
      <%
set rs1=server.CreateObject("adodb.recordset")
rs1.open"select  * from snsn_user where username='"&user1&"'",conn,1,1
if not rs1.eof then
shen=split(rs1("shenri"),"-")
userid=rs1("id")
set rs4=server.CreateObject("adodb.recordset")
rs4.open"select * from snsn_zy where zy='"&rs1("zy")&"' and dj="&rs1("dj"),conn,1,1
%>
    </span>
      <table width="570" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="23" align="right"><div align="center"><span class="style10">
          少男少女社区携所有会员齐祝 <%=rs1("name")%> <%=rs1("ch")%> <%=year(date)-shen(0)%>岁 生日快乐</span> <a href="/shenrix.asp">查看往日过生日会员</a></div></td>
      </tr>
    </table>
      <table width="570" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
        <tr>
          <td colspan="2" rowspan="11" align="center" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="180" align="center">
                  <%set rs3=conn.execute("select * from snsn_uppic where username='"&rs1("username")&"' and mink=1")
		if rs3.eof or rs3.bof then%>
                  <img src="/web/1/img/sample_photo.gif" width="150" height="130"  id=aaa>
                  <%else%>
                  <img src="<%=rs3("uppic")%>"  id=aaa>
                  <%end if
		rs3.close
set rs3=nothing%>
                </td>
              </tr>
              <tr>
                <td height="21" align="center"><a href="/my/love/addfriend.asp?user=<%=rs1("username")%>" target="_blank">加入好友</a> <a href="/my/getprice/sendnewmessage.asp?selected_friend_id=<%=rs1("username")%>" target="_blank">发送信息</a> <a href="javascript:;" onClick="window.open('/web/1/index.asp?web_id=<%=rs1("id")%>','cheng','scrollbars=no,resizable=no,width=920,height=565,menubar=no,top=10,left=10')">查看主页</a> </td>
              </tr>
          </table></td>
          <td height="25" align="center" bgcolor="#FFFFFF">会员用户：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<%=rs1("username")%>&nbsp;(<%=rs4("djname")%>)</td>
        </tr>
        <tr>
          <td width="13%" height="25" align="center" bgcolor="#FFFFFF">会员姓名：</td>
          <td width="55%" height="25" bgcolor="#FFFFFF">&nbsp;<%=rs1("name")&"&nbsp;"&rs1("ch")%></td>
        </tr>
        <tr>
          <td height="25" align="center" bgcolor="#FFFFFF">会员生日：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<%=shen(0)&"-"&shen(1)&"-"&shen(2)&"&nbsp;"&year(date)-shen(0)&"岁"%>&nbsp;<img src="images/ico/
			<%	if shen(4)= "白羊座" then
			response.Write("01")
			end if
			if shen(4)= "水瓶座" then
			response.Write("02")
			end if
			if shen(4)= "双鱼座" then
			response.Write("03")
			end if
			if shen(4)= "摩羯座" then
			response.Write("04")
			end if
			if shen(4)= "金牛座" then
			response.Write("05")
			end if
			if shen(4)= "双子座" then
			response.Write("06")
			end if
			if shen(4)= "巨蟹座" then
			response.Write("07")
			end if
			if shen(4)= "狮子座" then
			response.Write("08")
			end if
			if shen(4)= "处女座" then
			response.Write("09")
			end if
			if shen(4)= "天秤座" then
			response.Write("10")
			end if
			if shen(4)= "天蝎座" then
			response.Write("11")
			end if
			if shen(4)= "射手座" then
			response.Write("12")
			end if
			
			
			
			%>.gif" alt="星座:<%=shen(4)%>" width="19" height="19" align="absmiddle"> </td>
        </tr>
        <tr>
          <td height="25" align="center" bgcolor="#FFFFFF">会员资产：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<%=rs1("jifen")%>&nbsp;两&nbsp;&nbsp;<%=rs1("jine")%>&nbsp;元</td>
        </tr>
        <tr>
          <td height="25" align="center" bgcolor="#FFFFFF">会员家园：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<a href="javascript:;" onClick="window.open('/web/1/index.asp?web_id=<%=rs1("id")%>','cheng','scrollbars=no,resizable=no,width=920,height=565,menubar=no,top=10,left=10')"><%=rs1("homename")%></a></td>
        </tr>
        <tr>
          <td height="25" align="center" bgcolor="#FFFFFF">会员城市：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<%=replace(rs1("szd"),",","&nbsp;")%></td>
        </tr>
        <tr>
          <td height="25" align="center" bgcolor="#FFFFFF">推荐会员：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<%=rs1("ztjr")%>&nbsp;人次</td>
        </tr>
        <tr>
          <td height="25" align="center" bgcolor="#FFFFFF">入会时间：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<%=rs1("idate")%></td>
        </tr>
        <tr>
          <td height="25" align="center" bgcolor="#FFFFFF">形&nbsp;象&nbsp;语：</td>
          <td height="25" bgcolor="#FFFFFF">&nbsp;<%=rs1("h_xxy")%></td>
        </tr>
      </table>
      <%end if
set rs2=server.CreateObject("adodb.recordset")
rs2.open"select  * from snsn_shenri where username='"&user1&" 'order by id desc",conn,1,1%>
      <br>
      <table width="570"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <form name="form1" method="post" action="?act=add&user=<%=user1%>" onSubmit="return ck1()">
          <tr>
            <td height="25" bgcolor="f9f9f9" onclick=javascript:hve_display(table1,image1)><table  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td>&nbsp;[留言-共<%=rs2.recordcount%>条]&nbsp;</td>
                  <td><img src="images/sr_j.gif" name="image1"> </td>
                </tr>
            </table></td>
          </tr>
          <TBODY id=table1 style="DISPLAY: none">
            <%	  do while not rs2.eof%>
            <tr>
              <td height="25" bgcolor="#FFFFFF" class="tmpstr">&nbsp;
                  <%if rs2("fromname")="" then
response.write("游客")
else%>
                  <a href="javascript:;" onClick="showmenuie5(<%=rs1("url")%>,<%=rs1("id")%>,'<%=rs1("username")%>')"><%=rs2("fromname")%></a>
                  <%end if%>
&nbsp;&nbsp;<font color=999999><%=rs2("fdate")%></font>&nbsp;&nbsp;<%=rs2("nr")%>&nbsp;&nbsp;&nbsp;
          <%if session("user")<>"" and session("user")=user1 then %>
          <a href=?act=del&id=<%=rs2("id")%>&user=<%=user1%> >删</a>
          <%end if%></td>
            </tr>
            <%
rs2.movenext
	  loop%>
          </tbody>
          <tr>
            <td height="25" bgcolor="#FFFFFF"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="5">
                <tr>
                  <td><input name="nr" type="text" id="nr2" size="90" maxlength="150"  class="wenbenkuang">
                      <input name="Submit" type="submit"   class="go-wenbenkuang" value="留言"></td>
                </tr>
            </table></td>
          </tr>
        </form>
      </table>
      <%
set rs=server.CreateObject("adodb.recordset")
rs.open"select snsn_user.username,mini_give.isto,mini_give.gotime,mini_give.from1,mini_give.huifu,mini_minilist.mininame,mini_minilist.minipic,mini_minilist.minilx,mini_minilist.minijg,mini_minilist.smllclassid,mini_minilist.bigclassid,mini_minilist.sydate,mini_give.id,mini_give.goodid,snsn_user.id as ida,snsn_user.url from snsn_user,mini_give,mini_minilist where mini_give.to1="&userid&" and mini_give.from1=snsn_user.id and datediff(d,gotime,getdate())=0 and mini_give.goodid=mini_minilist.id order by mini_give.gotime desc",conn,3,1
%>
      <br>
      <table width="570" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="cccccc">
        <tr>
          <td height="25" colspan="6" bgcolor="f9f9f9" onclick=javascript:hve_display(table2,image2)>
            <table border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td>&nbsp;[礼品-共<%=rs.recordcount%>件]&nbsp;</td>
                <td><img src="images/sr_j.gif" name="image2" ></td>
              </tr>
          </table></td>
        </tr>
        <TBODY id=table2 style="DISPLAY: none">
          <%do while not rs.eof %>
          <tr>
            <td width="146" height="25" align="center" bgcolor="#FFFFFF" class="tmpstr"> <a href="javascript:;" onClick="showmenuie5(<%=rs("url")%>,<%=rs("ida")%>,'<%=rs("username")%>')"><%=rs("username")%></a>&nbsp;</td>
            <td width="130" align="center" bgcolor="#FFFFFF" class="tmpstr"><%=rs("gotime")%>&nbsp;</td>
            <td width="178" align="center" bgcolor="#FFFFFF" class="tmpstr"><a href="javascript:;" onClick="window.open('/minishow/yulan.asp?action=yulan&yulan=<%=rs("goodid")%>','xidf','scrollbars=no,resizable=no,width=200,height=200,menubar=no,top=100,left=100')" class=over><%=rs("mininame")%></a>&nbsp;</td>
            <td width="76" align="center" bgcolor="#FFFFFF" class="tmpstr">
              <%if session("user")=user1 then%>
              <a href="javascript:;" onClick="window.open('/minishow/yulan.asp?action=cliuyan&cliuyan=<%=rs("id")%>&fname=<%=rs("username")%>','sdf','scrollbars=no,resizable=no,width=200,height=200,menubar=no,top=100,left=100')" class=over>查看留言</a>
              <%else%>
        查看留言
        <%end if%></td>
            <td width="63" align="center" bgcolor="#FFFFFF" class="tmpstr">
              <%if session("user")=user1 then
	  if rs("huifu")="" or isnull(rs("huifu")) then%>
              <a href="javascript:;" onClick="window.open('/minishow/yulan.asp?action=huifu&huifu=<%=rs("id")%>','cheng','scrollbars=no,resizable=no,width=200,height=200,menubar=no,top=100,left=100')" class=over>回复</a>
              <%else%>
        已回复
        <%end if
	  else%>
        回复
        <%end if%></td>
            <td width="120" align="center" bgcolor="#FFFFFF" class="tmpstr">
              <% if session("user")=user1 then
		if rs("isto")=0 then %>
              <a href="javascript:;" class=over style2 onClick="window.open('/minishow/yulan.asp?action=jieshou&jieshou=<%=rs("goodid")%>&jieshouid=<%=rs("id")%>&goodpath=<%=rs("minipic")%>&cate=<%=rs("smllclassid")%>&bigclassid=<%=rs("bigclassid")%>&sydate=<%=rs("sydate")%>&goodname=<%=rs("mininame")%>&minilx=<%=rs("minilx")%>&minijg=<%=rs("minijg")%>','cheng','scrollbars=no,resizable=no,width=200,height=200,menubar=no,top=100,left=100')"><font color="#FF0000">接受货物</font></a>
              <% elseif rs("isto")=1 then%>
        已经接受
        <% else %>
        已经拒绝
        <%end if%>
        <% if rs("isto")=0 then  %>
        <a href="javascript:;" class=over style3 onClick="window.open('/minishow/yulan.asp?action=jujue&jujue=<%=rs("goodid")%>&jujueid=<%=rs("id")%>&goodpath=<%=rs("minipic")%>&cate=<%=rs("smllclassid")%>&bigclassid=<%=rs("bigclassid")%>&sydate=<%=rs("sydate")%>&goodname=<%=rs("mininame")%>&minilx=<%=rs("minilx")%>&uid=<%=rs("from1")%>&minijg=<%=rs("minijg")%>','cheng','scrollbars=no,resizable=no,width=200,height=200,menubar=no,top=100,left=100')"><font color="#0000FF">拒收货物</font></a>
        <% elseif rs("isto")=1 then %>
        已接收
        <% elseif rs("isto")=-1 then %>
        已拒绝
        <% end if
					else
					response.write("接收 拒绝")
					end if
					 %>
            </td>
          </tr>
          <%
	rs.movenext
	loop%>
        </TBODY>
      </table>
      <table width="570" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="23"><iframe border="0" frameBorder="0" height="30"   noResize scrolling="no" width="100%" src="/shenri1.asp"></iframe></td>
          <td><div align="right"><a href="/minishow/minishop.asp" target="_blank" class="style9">进入物品商店给TA送礼吧。。。</a></div></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="90%" height="10"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
<map name="Map2">
  <area shape="rect" coords="336,7,393,21" href="minishow/">
</map>
<map name="Map">
  <area shape="rect" coords="344,5,394,20" href="bbs/">
</map>

</body>
</html>
<script language=javascript>
  function ck1(){
  if(form1.nr.value==""){
  alert("请输入评论内容")
  form1.nr.focus()
  return false
    } 
    }
function hve_display(t_id,i_id){//显示隐藏程序

	//var t_id;//表格id
	//var i_id;//图片id
	var on_img="on.gif";//打开时图片
	var off_img="off.gif";//隐藏时图片
		if (t_id.style.display == "none") {//如果为隐藏状态
		t_id.style.display="";//切换为显示状态
		i_id.src="images/sr_j2.gif";}//换图
	else{//否则
		t_id.style.display="none";//切换为隐藏状态
		i_id.src="images/sr_j.gif";}//换图
}
function cc(){
	var style1=document.all.aaa.width	
	if(style1>200){
	document.all.aaa.style.width="200px"
	}
}
cc()
      </script>
