<!--#include file="../conn/conn.asp"-->
<!--#include file="../conn/config.asp"-->
<!--#include file="../conn/nosql.asp"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>迷你主页首页-<%=webname%></title>
<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}
.style6 {font-size: 14px}
.style10 {color: #FF3300;
	font-weight: bold;
}
.style11 {color: #7C179C}
-->
</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"-->
<table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" rowspan="2" valign="top"><!--#include file="../left.asp"--></td><td width="5" rowspan="2"></td><td colspan="2" valign="top">
  <!--#include file="../tlpic.asp"-->
  <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table></td>
  </tr>
  <tr>
    <td valign="top"><table width="367" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="32" background="../images/top_367_0.gif">
          <table width="350" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="309" height="27"><img src="../images/top_xjhy.gif" width="102" height="19"></td>
              <td width="41"><a href="new.asp"><img src="../images/more.gif" width="35" height="11" border="0"></a></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td background="../images/top_367_1.gif"><table border="0" align="center" cellpadding="5" cellspacing="0">
            <tr>
              <%i=0
			sql="select * from snsn_user where h_face<>'' and ( not h_xxy LIKE '欢迎来我的主页做客！') order by id desc"
set rs_user=conn.execute(sql)
if not rs_user.eof then
do while not rs_user.eof and i<2
nr=left(htmltotext(replace(rs_user("h_xxy"),"http://www.cyworld.com.cn","")),42)
if len(nr)>18 then
i=i+1 

%>
              <td width="60"><table width="60" height="60"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr background="/images/jrhybj.gif">
                    <td background="/images/jrhybj.gif"><div align="center"><img src="<%=rs_user("h_face")%>" width="50" height="50"></div></td>
                  </tr>
              </table></td>
              <td width="100" valign="top">
                <table cellspacing="0" cellpadding="0" width="100">
                  <tr>
                    <td colspan="2"></td>
                  </tr>
                  <tr>
                    <td valign="top" colspan="2"><strong><a href="javascript:;" onClick="showmenuie5(<%=rs_user("url")%>,<%=rs_user("id")%>,'<%=rs_user("username")%>')" ></a><span class="link_redblank"> </span></strong>
                        <table border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td valign="bottom"><strong><span class="link_redblank">
                              <%if rs_user("ch")="先生" then%>
                              <img src="../ico/ico_man.gif" width="11" height="12">
                              <%else%>
                              <img src="../ico/ico_women.gif" width="11" height="12">
                              <%end if%>
                            </span></strong></td>
                            <td><strong>&nbsp;<a href="javascript:;" onClick="showmenuie5(<%=rs_user("url")%>,<%=rs_user("id")%>,'<%=rs_user("username")%>')" ><span class="style11"><%=rs_user("name")%></span></a></strong></td>
                          </tr>
                      </table></td>
                  </tr>
                  <tr>
                    <td valign="top" colspan="2"><a href="javascript:;" onClick="window.open('/web/<%=rs_user("url")%>/index.asp?web_id=<%=rs_user("id")%>','cheng','scrollbars=no,resizable=no,width=920,height=565,menubar=no,top=10,left=10')" class=over><%=left(nr,16)%></a></td>
                  </tr>
              </table></td>
              <%end if
			rs_user.MoveNext
			loop
			end if
				  rs_user.close
set rs_user=nothing%>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="../images/top_367_2.gif" width="367" height="9"></td>
      </tr>
    </table>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <a href="/home/zjhome.asp"><img src="../images/top_zjfj.gif" width="367" height="100" border="0"></a>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <table width="367" height="32" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center" background="../images/top_32.gif"><%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select * from snsn_home_class",conn,1,1
		  do while not rs.eof%>
              <a href="class.asp?id=<%=rs("id")%>"><%=trim(rs("h_class"))%></a>
              <%
           classsl=conn.execute("Select count(*)from snsn_user where h_classid="&rs("id")&"")(0)
		   response.write "( <font color=#ff0000>"&classsl&"</font> )"%>
              <%
			rs.movenext
			loop
			rs.close
			set rs=nothing%></td>
        </tr>
      </table>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <table width="367" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="32" background="../images/top_367_0.gif">
            <table width="350" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="309" height="27"><img src="../images/home_rjgx.gif" width="102" height="19"></td>
                <td width="41"><a href="newuser.asp"><img src="../images/more.gif" width="35" height="11" border="0"></a></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td background="../images/top_367_1.gif">
            <% r=1
			set rs3=server.CreateObject("adodb.recordset")
			  rs3.open "select top 4 * from snsn_user where uflag=3 and datediff(d,inewdate,getdate())=0 order by inew desc",conn,1,1
			if rs3.eof then
			%>
            <table width="140" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="7"></td>
              </tr>
              <tr>
                <td height="23">暂无今日更新</td>
              </tr>
              <tr>
                <td background="/images/bj_efefef.gif" height="1"></td>
              </tr>
            </table>
            <%else
			do while not rs3.eof

			%>
            <table border="0" align="center" cellpadding="5" cellspacing="0">
              <tr>
                <td width="60"><table width="60" height="60"  border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr background="/images/jrhybj.gif">
                      <td background="/images/jrhybj.gif"><div align="center"><img src="<%=rs3("h_face")%>" width="50" height="50"></div></td>
                    </tr>
                </table></td>
                <td width="280" valign="top">
                  <table cellspacing="0" cellpadding="0" width="280">
                    <tr>
                      <td colspan="2"></td>
                    </tr>
                    <tr>
                      <td valign="top" colspan="2">
                        <table border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td valign="bottom"><strong><span class="link_redblank">
                              <%if rs3("ch")="先生" then%>
                              <img src="../ico/ico_man.gif" width="11" height="12">
                              <%else%>
                              <img src="../ico/ico_women.gif" width="11" height="12">
                              <%end if%>
                            </span></strong></td>
                            <td><strong>&nbsp;<a href="javascript:;" onClick="showmenuie5(<%=rs3("url")%>,<%=rs3("id")%>,'<%=rs3("username")%>')" ><span class="style11"><%=rs3("name")%></span></a></strong> (<%=rs3("idate")%>)</td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td valign="top" colspan="2"><a href="javascript:;" onClick="window.open('/web/<%=rs3("url")%>/index.asp?web_id=<%=rs3("id")%>','cheng','scrollbars=no,resizable=no,width=920,height=565,menubar=no,top=10,left=10')" class=over><%=left(rs3("h_xxy"),40)%></a></td>
                    </tr>
                </table></td>
              </tr>
            </table>
            <table width="340" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="1" background="/images/bj_x.gif"></td>
              </tr>
            </table>
            <%r=r+1
		rs3.movenext
			loop
			end if%></td>
        </tr>
        <tr>
          <td><img src="../images/top_367_2.gif" width="367" height="9"></td>
        </tr>
      </table>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table></td>
    <td width="200" valign="top"><table border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="32" valign="bottom" background="/images/bj_200_0.gif">
          <table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="139" height="27"><img src="../images/home_xcgc.gif" width="102" height="19"></td>
              <td width="41"><a href="pr.asp"><img src="/images/more.gif" width="35" height="11" border="0"></a></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td background="/images/bj_200_1.gif"><%i=0
			sql="select * from mini_pr order by xctj desc,id desc" 
set rs_user=conn.execute(sql)
if not rs_user.eof then
do while not rs_user.eof and i<12
i=i+1 
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from snsn_user where id="&rs_user("userid")&" and uflag=3",conn,1,1
%>
            <table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="22"><table border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td valign="bottom"><strong><span class="link_redblank">
                        <%if rs3("ch")="先生" then%>
                        <img src="../ico/ico_man.gif" width="11" height="12">
                        <%else%>
                        <img src="../ico/ico_women.gif" width="11" height="12">
                        <%end if%>
                      </span></strong></td>
                      <td><strong>&nbsp;<a href="javascript:;" onClick="showmenuie5(<%=rs3("url")%>,<%=rs3("id")%>,'<%=rs3("username")%>')" ><font color= color="#FF6600"><%=rs3("name")%></font></a> <%=left(rs_user("xcnr"),20)%></strong></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td height="1" background="/images/bj_x.gif"></td>
              </tr>
            </table>
            <%
			rs_user.MoveNext
			loop
			end if
				  rs_user.close
set rs_user=nothing%></td>
      </tr>
      <tr>
        <td><img src="/images/bj_200_2.gif" width="200" height="7"></td>
      </tr>
    </table>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <table border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="32" valign="bottom" background="/images/bj_200_0.gif">
            <table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="139" height="27"><img src="../images/home_sjtj.gif" width="102" height="19"></td>
                <td width="41">&nbsp;</td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td background="/images/bj_200_1.gif"><% r=1
Set dayhit= Server.CreateObject("ADODB.Recordset") 
sql="select top 6 * from snsn_count order by dayhit desc" 
dayhit.open sql,conn,1,1
if dayhit.eof then
			%>
              <table width="140" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="7"></td>
                </tr>
                <tr>
                  <td height="23">暂无</td>
                </tr>
                <tr>
                  <td background="/images/bj_efefef.gif" height="1"></td>
                </tr>
              </table>
              <%else
			do while not dayhit.eof
			  set rs3=server.CreateObject("adodb.recordset")
			  rs3.open "select * from snsn_user where id="&dayhit("userid")&" and uflag=3",conn,1,1
			  if not rs3.eof then
			%>
              <table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
                  <td width="20"><img src="/images/t<%=r%>.gif"></td>
                  <td height="22"><a href="javascript:;" onclick="showmenuie5(<%=rs3("url")%>,<%=rs3("id")%>,'<%=rs3("username")%>')" ><%=cutstr(rs3("homename"),22)%></a></td>
                </tr>
                <tr>
                  <td height="1" colspan="2"  background="../images/bj_x.gif"></td>
                </tr>
              </table>
              <%r=r+1
			end if
		dayhit.movenext
			loop
			end if%></td>
        </tr>
        <tr>
          <td><img src="/images/bj_200_2.gif" width="200" height="7"></td>
        </tr>
      </table>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></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"-->
</body>
</html>