<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/count.asp"-->
<!--#include file="../count.asp"-->
<script language="JavaScript" Src="../qq/qq1.Js"></script>
<%
if isChkInteger(request("web_id")) then
web_id=request("web_id")
else
Response.Redirect ("../../index.asp")
end if
sql="select * from snsn_user where uflag=3 and id="&web_id
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<script language='javascript'>"
response.write "alert('没有此用户，请确认后或联系管理员再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
else
if session("skin")="" then
session("skin")=skin
end if
if request("html")="web" then
iform="web.asp?web_id="&web_id&""
webbj="web"
elseif request("html")="mini" then
iform="mini.asp?web_id="&web_id&""
webbj="mini"
elseif request("html")="user" then
iform="user.asp?web_id="&web_id&""
webbj="user"
elseif request("html")="photo" then
iform="photo.asp?web_id="&web_id&""
webbj="photo"
elseif request("html")="yd" then
iform="photo_m.asp?web_id="&web_id&""
webbj="photo"
elseif request("html")="sc" then
iform="sc.asp?web_id="&web_id&""
webbj="sc"
elseif request("html")="love" then
iform="love.asp?web_id="&web_id&""
webbj="love"
elseif request("html")="user" then
iform="user.asp?web_id="&web_id&""
webbj="user"
elseif request("html")="guestbook" then
iform="guestbook.asp?web_id="&web_id&""
webbj="guestbook"
elseif request("html")="bbs" then
iform="bbs.asp?web_id="&web_id&""
webbj="bbs"
elseif request("html")="xd" then
iform="xd.asp?web_id="&web_id&""
webbj="xd"
elseif request("html")="diary" then
iform="diary.asp?web_id="&web_id&""
webbj="diary"
elseif request("html")="yw" then
iform="yw.asp?web_id="&web_id&""
webbj="yw"
else
iform="web.asp?web_id="&web_id&""
webbj="web"
session("skin")=skin
end if
if request("skin")="skin" then
if request.QueryString("skin")="" then
session("skin")=1
elseif session("skin")=111 then
session("skin")=1
else
session("skin")=session("skin")+1
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("username")%>的迷你主页</title>
<link rel="stylesheet" href="css.css" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url();
}
.style3 {color: #FDF7FF}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body>
<style type="text/css">
#divUp   {position:absolute; left:195px; top:333px;}
#divDown {position:absolute; left:205px; top:333px;}
#divScrollTextCont {position:absolute; left:70px; top:270px; width:145px; height:60px; clip:rect(0px 145px 80px 0px); overflow:hidden; visibility:hidden;}
#divText {position:absolute; left:0px; top:0px;} 
</style>
<script language="JavaScript" type="text/javascript">
function lib_bwcheck(){ //Browsercheck (needed)
	this.ver=navigator.appVersion
	this.agent=navigator.userAgent
	this.dom=document.getElementById?1:0
	this.opera5=this.agent.indexOf("Opera 5")>-1
	this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom && !this.opera5)?1:0; 
	this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom && !this.opera5)?1:0;
	this.ie4=(document.all && !this.dom && !this.opera5)?1:0;
	this.ie=this.ie4||this.ie5||this.ie6
	this.mac=this.agent.indexOf("Mac")>-1
	this.ns6=(this.dom && parseInt(this.ver) >= 5) ?1:0; 
	this.ns4=(document.layers && !this.dom)?1:0;
	this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns6 || this.opera5)
	return this
}
var bw=new lib_bwcheck()
var speed = 30
var loop, timer
function makeObj(obj,nest){
    nest=(!nest) ? "":'document.'+nest+'.'
	this.el=bw.dom?document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+'document.'+obj):0;
  	this.css=bw.dom?document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+'document.'+obj):0;
	this.scrollHeight=bw.ns4?this.css.document.height:this.el.offsetHeight
	this.clipHeight=bw.ns4?this.css.clip.height:this.el.offsetHeight
	this.up=goUp;this.down=goDown;
	this.moveIt=moveIt; this.x=0; this.y=0;
    this.obj = obj + "Object"
    eval(this.obj + "=this")
    return this
}
var px = bw.ns4||window.opera?"":"px";

function moveIt(x,y){
	this.x = x
	this.y = y
	this.css.left = this.x+px
	this.css.top = this.y+px
}

function goDown(move){
	if (this.y>-this.scrollHeight+oCont.clipHeight){
		this.moveIt(0,this.y-move)
			if (loop) setTimeout(this.obj+".down("+move+")",speed)
	}
}
function goUp(move){
	if (this.y<0){
		this.moveIt(0,this.y-move)
		if (loop) setTimeout(this.obj+".up("+move+")",speed)
	}
}

function scroll(speed){
	if (scrolltextLoaded){
		loop = true;
		if (speed>0) oScroll.down(speed)
		else oScroll.up(speed)
	}
}

function noScroll(){
	loop = false
	if (timer) clearTimeout(timer)
}
var scrolltextLoaded = false
function scrolltextInit(){
	oCont = new makeObj('divScrollTextCont')
	oScroll = new makeObj('divText','divScrollTextCont')
	oScroll.moveIt(0,0)
	oCont.css.visibility = "visible"
	scrolltextLoaded = true
}
if (bw.bw) onload = scrolltextInit
</script>

<!--embed src="img/bj/1.swf" width="700" height="500" quality="high"wmode="transparent" align="right" style="position: absolute; left:120; top:1"></embed>
<!--embed src="img/bj/2.swf" width="600" height="400" quality="high"wmode="transparent" align="right" style="position: absolute; left:120; top:1"></embed-->
<!--div id="Layer1" style="position:absolute; left:6px; top:8px; width:61px; height:82px; z-index:1"><img src="../mi/mi_1.gif" width="50" height="78"></div>
<div id="Layer2" style="position:absolute; left:751px; top:282px; width:82px; height:178px; z-index:2"><img src="../mi/mi_2.gif" width="77" height="180"></div>
<div id="Layer3" style="position:absolute; left:-1px; top:483px; width:849px; height:53px; z-index:3"><img src="../mi/mi_8.gif" width="868" height="50"></div>
<div id="Layer4" style="position:absolute; left:845px; top:-2px; width:62px; height:163px; z-index:4"><img src="../mi/mi_4.gif" width="55" height="180"></div>
<div id="Layer5" style="position:absolute; left:833px; top:356px; width:81px; height:111px; z-index:5"><img src="../mi/mi_9.gif" width="92" height="178"></div-->
<table width="920" height="500"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="530" valign="top" background="img/bj/<%=session("skin")%>.gif"><br><br><br>
      <table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="23"><strong> </strong>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="25" rowspan="2"><%set ujilu=conn.execute("select name from online where name='"&rs("username")&"'")                                                                                      
if not ujilu.eof then%><img src="img/xw.gif" width="21" height="20" alt="用户在线，有事请发短信！"><%else%><img src="img/xw.gif" width="21" height="20" style="filter:gray" alt="主人不在，有事请留言！"><%end if%></td>
                <td height="4"></td>
              </tr>
              <tr>
                <td><strong><%=left(rs("homename"),18)%></strong></td>
              </tr>
            </table></td>
          <td height="23"><div align="right">
            <table width="90%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="64%"><div align="right">http://<%=rs("username")%>.snsn.net <%if rs("vip")=1 then%><img src="/img/vip.gif" width="27" height="15"><%end if%>&nbsp;</div></td>
                <td width="36%"><a href="?web_id=<%=web_id%>&html=<%=webbj%>&skin=skin"><img src="img/fg.gif" width="32" height="17" border="0"></a>&nbsp;<a href="guestbook_add.asp?web_id=<%=web_id%>" target="web"><img src="img/ly.gif" width="32" height="17" border="0"></a>&nbsp;<a href="sendfriend.asp?web_id=<%=web_id%>" target="web"><img src="img/tj.gif" width="32" height="17" border="0"></a>&nbsp;<a href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=rs("username")%>.snsn.net/');return(false);" style="behavior: url(#default#homepage)"><img src="img/sc.gif" width="32" height="17" border="0"></a>&nbsp;&nbsp;</td>
              </tr>
            </table>
             </div></td>
          <td height="23">&nbsp;</td>
        </tr>
        <tr>
          <td width="163" height="131" valign="top"><table width="157" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="11"></td>
            </tr>
            <tr>
              <td height="25" background="img/con_box.gif"><div align="center">
                  <table width="90%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="22"><div align="center"><strong><%=rs("username")%></strong></div></td>
                      <td height="22" valign="bottom"><div align="center">
                          <%if rs("ch")="先生" then%>
                          <img src="img/ico_m.gif" width="13" height="13">
                          <%else%>
                          <img src="img/ico_f.gif" width="13" height="13">
                          <%end if%>
                      </div></td>
                    </tr>
                  </table>
              </div></td>
            </tr>
            <tr>
              <td height="8"></td>
            </tr>
            <tr>
              <td height="130" align="center"><%if rs("h_face")<>"" then
				  show=showqq
				  if (show="") or isNull(show) then
				    response.write "<img src="&rs("h_face")&" width=150 height=130 border=0>"
				  Else
				  
                    Set re=new RegExp
                    re.IgnoreCase =true
                    re.Global=True
                    re.Pattern="\[qq@*([0-9]*)\]"
					  If nosql(request("xshow"))<>"ok" then
                        show=re.Replace(show,"<img src="&rs("h_face")&" width=145 height=130 border=0 alt='点击看我超酷表演'     onmouseover=ShowQQ('$1'); >")
                        response.write show
					 else
					    show=re.Replace(show,"<img src="&rs("h_face")&" width=145 height=130 border=0 alt='点击看我超酷表演' onload=setTimeout(""ShowQQ('$1')"",1000);  onmouseover=ShowQQ('$1'); style='cursor: hand;border:1px border-collapse: collapse; border-style: dotted;'>")
                        response.write show
					  End if
                   end if
				 else
				   if session("id")<>"" and session("id")=cint(web_id) then
				   response.write "<a href='/my/web/index.asp' target='_blank'><img src=img/sample_photo.gif  border=0 alt=手机照片直接发送主题X加照片到w@snsn.net即可></a>"
				   else
				   response.write "<img src=img/sample_photo.gif  border=0　 alt=手机照片直接发送主题X加照片到w@snsn.net即可>"
				   end if
                 end if%></td>
            </tr>
            <tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="190" valign="top">
                <table width="157" height="190"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="90"><table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td><div id="divUp"> <a href="#" onMouseOver="scroll(-1)" onMouseOut="noScroll()" onClick="return false"><img src="img/btn_m_up.gif" width="9" height="7" border="0"></a></div></td>
                      </tr>
                      <tr>
                        <td><div id="divScrollTextCont">
                            <div id="divText"> <%=rs("h_xxy")%></div>
                        </div></td>
                      </tr>
                      <tr>
                        <td><div id="divDown"> <a href="#" onMouseOver="scroll(1)" onMouseOut="noScroll()" onClick="return false"><img src="img/btn_m_down.gif" width="9" height="7" border="0"></a></div></td>
                      </tr>
                    </table></td>
                  </tr><tr>
                <td height="1" background="img/xbj3.gif"></td>
              </tr><tr>
                <td height="22" ><%
	set rs=conn.execute("select xq from snsn_user where id="&web_id)
	if isnull(rs("xq")) then
		sql="update snsn_user set xq='xqshow/1.gif' where id="&web_id
		conn.execute(sql)
		xq="xqshow/1.gif"
	else
		xq=rs("xq")
	end if
		dim xqpic(30),xqword(30)
		xqword(1)="爱心"
		xqword(2)="伤心"
		xqword(3)="郁闷"
		xqword(4)="开心"
		xqword(5)="乐观"
		xqword(6)="惊吓"
		xqword(7)="快乐"
		xqword(8)="愤怒"
		xqword(9)="灵光"
		xqword(10)="恐怖"
		xqword(11)="生气"
		xqword(12)="幸福"
		xqword(13)="心碎"
		xqword(14)="幸运"
		xqword(15)="疑问"
		xqword(16)="惊叹"
		xqword(17)="悠闲"
		xqword(18)="包容"
		xqword(19)="高兴"
		xqword(20)="爱慕"
		xqword(21)="烦恼"
		xqword(22)="孤独"
		xqword(23)="思念"
		xqword(24)="恶心"
		xqword(25)="疼痛"
		xqword(26)="忙碌"
		xqword(27)="无语"
		xqword(28)="轻松"
		xqword(29)="警惕"
		xqword(30)="遗忘"
		for i=1 to 30
			xqpic(i)="xqshow/"&i&".gif"
			if xqpic(i)=xq then
				word=xqword(i)
			end if
		next
%>
                  <div id="divc" style="position:absolute; z-index:100; left: 136px; top: 354px; visibility:hidden">
                    <table>
                      <tr>
                        <td align="right"><img onclick='divclose()' src='img/xq2.gif'>&nbsp;</td>
                      </tr>
                      <tr>
                        <td>
                          <IFRAME frameBorder=0 id=top name=top src="xinqi.asp" width="84" style="HEIGHT: 150;"></IFRAME></td>
                      </tr>
                    </table>
                  </div>
                  <table width="157" height="25" border="0" cellpadding="0" cellspacing="0" >
                    <tr>
                      <td align="center">今日心情</td>
                      <td align="center" id="content"><img src="<%=xq%>" align="absmiddle"> <%=word%></td>
                      <%if session("id")<>"" and session("id")=cint(web_id) then%>
                      <td align="center"><img src="img/xq1.gif" align="absmiddle" onClick="showdivc()" ></td>
                      <%else%>
                      <td align="center">&nbsp;</td>
                      <%end if%>
                    </tr>
                  </table></td>
              </tr><tr>
                <td height="1" background="img/xbj3.gif"></td>
              </tr>
                 
                  <tr>
                    <td height="60"><script language="javascript">
	function showdivc(){
		document.all.divc.style.visibility="visible"
	}
	function divclose(){
		document.all.divc.style.visibility="hidden"
		}
</script><table width="88%" height="48"  border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td height="23"> 最近登录：<%=FormatDate(logindate,2)%></td>
                      </tr>
                      <tr>
                        <td height="23">今日<font color="#FF0000"><%=dayhit%></font>,总访问<font color="#FF0000"><%=hit%></font> </td>
                      </tr>
                    </table></td>
                  </tr> <tr>
                    <td height="25"><div align="center">                      
                      <form name="form1">
                        <select name="menu1" onChange="MM_jumpMenu('parent',this,0)" class="go-wenbenkuang ">
                          <option value="index.asp?web_id=<%=web_id%>" selected>-我的社区好友连接-</option>
                          					  <%
					  set rsw=server.createobject("adodb.recordset")
                      rsw.open "select * from snsn_user where uflag=3 and id="&web_id,conn,1,1
                      if rsw.recordcount>0 then
                      username=rsw("username")
                      end if
                      rsw.close
					  sql2="select snsn_myfriend.username as MemUser,snsn_myfriend.friend_name,snsn_user.url as url,snsn_user.* from snsn_myfriend,snsn_user where snsn_myfriend.username='"&username&"' and snsn_user.username=snsn_myfriend.friend_name and snsn_myfriend.relation<>-1"
					set rs2=conn.execute(sql2)
					if rs2.eof or rs2.bof then 
					response.write""
					else 
					do while not rs2.eof 
                    response.write"<option value=""/web/"&rs2("url")&"/index.asp?web_id="&rs2("id")&""">"&left(rs2("homename"),10)&"</OPTION>"
					rs2.movenext
					loop
					end if
					rs2.close
					set rs2=nothing
					conn.close
                    set conn=nothing%>
                        </select></form>
                    </div></td>
                  </tr>
                </table>                </td>
            </tr>
          </table></td>
          <td width="493" valign="top">
          <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="8"></td>
            </tr>
          </table>
          <table width="470" height="380"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr><td width="31"></td>
              <td width="450" valign="top"><iframe name="web" scrolling="yes" align="top" marginheight="0" marginwidth="0" frameborder="0" width="450" height="380" src="<%=iform%>">取数据中。。。</iframe></td>
            </tr>
          </table>          </td>
          <td width="141" valign="top"><table width="58"  border="0" cellspacing="0" cellpadding="0">
           <%if home1=1 then%> <tr>
              <td height="28" align="center" background="img/<%if webbj="web" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=web"><%=home%></a></td>
            </tr>
			<%end if%>
			<%if mini1=1 then%>
			<tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="28" align="center" background="img/<%if webbj="mini" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=mini"><%=mini%></a><%if web_mini_datetime>=1 then%><img src="img/ico_new.gif" width="9" height="9"><%end if%></td>
            </tr><%end if%>
			<%if xx1=1 then%>
			<tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="28" align="center" background="img/<%if webbj="user" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=user"><%=xx%></a></td>
            </tr><%end if%>
			<%if xc1=1 then%>
			<tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="28" align="center" background="img/<%if webbj="photo" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=photo"><%=xc%></a><%if web_xc_datetime>=1 then%><img src="img/ico_new.gif" width="9" height="9"><%end if%></td>
            </tr>
			<%end if%>
			<%if sc1=1 then%>
			<tr>
              <td height="5"></td>
            </tr>
			<tr>
              <td height="28" align="center" background="img/<%if webbj="sc" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=sc"><%=sc%></a><%if web_sc_datetime>=1 then%><img src="img/ico_new.gif" width="9" height="9"><%end if%></td>
			</tr>
			<%end if%>
			<%if jy1=1 then%>
			<tr>
              <td height="5"></td>
            </tr>
			<tr>
              <td height="28" align="center" background="img/<%if webbj="love" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=love"><%=jy%></a></td>
			</tr>
			<%end if%>
			<%if xd1=1 then%>
			<tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="28" align="center" background="img/<%if webbj="xd" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=xd"><%=xd%></a><%if web_xd_datetime>=1 then%><img src="img/ico_new.gif" width="9" height="9"><%end if%></td>
            </tr>
			<%end if%>
			<%if rj1=1 then%>
            <tr>
              <td height="5"></td>
            </tr>
            <tr>
                            <td height="28" align="center" background="img/<%if webbj="diary" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=diary"><%=rj%></a><%if web_diary_datetime>=1 then%><img src="img/ico_new.gif" width="9" height="9"><%end if%></td>
            </tr>
<%end if%>
			<%if lt1=1 then%>
			<tr>
              <td height="5"></td>
            </tr>
			<tr>
              <td height="28" align="center" background="img/<%if webbj="bbs" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=bbs"><%=lt%></a><%if web_bbs_datetime>=1 then%><img src="img/ico_new.gif" width="9" height="9"><%end if%></td>
			</tr>
			<%end if%>
			<%if ly1=1 then%>
            <tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="28" align="center" background="img/<%if webbj="guestbook" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=guestbook"><%=ly%></a><%if web_guestbook_datetime>=1 then%><img src="img/ico_new.gif" width="9" height="9"><%end if%></td>
            </tr>
			<%end if%>
			 <tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="28" align="center"  background="img/<%if webbj="yw" then%>tab_on<%else%>tab_off<%end if%>.gif"><a href="home.asp?web_id=<%=web_id%>&html=yw">愿望</a></td>
            </tr>
						<%if session("id")<>"" and session("id")=cint(web_id) then%>
            <tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="28" align="center" background="img/tab_off.gif"><a href="/my/" target="_blank">管理</a></td>
            </tr>
			<%end if%>
            <tr>
              <td height="5"></td>
            </tr>
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<%set rs=nothing

end if%>