<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/count.asp"-->
<!--#include file="../count.asp"-->
<%
if isChkInteger(request("web_id")) then
web_id=request("web_id")
else
Response.Redirect ("../../index.asp")
end if
sql="select * from snsn_user where 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
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link rel="stylesheet" href="css.css" type="text/css">
<style type="text/css">
<!--
.style2 {
	color: #FE6D02;
	font-weight: bold;
}
.style7 {color: #FFFFFF; font-weight: bold; }
.tmpstr {word-break:break-all}
.tmpstr1 {word-break:break-all}
-->
</style>
</head>
<body>
<table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
  <%if mini2=1 then%><tr>
    <td height="22">      <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#E1E1E1"><div align="center"><span class="M"><IMG 
                              src="img/icon_04.gif" 
                              name=image1754891 width="16" height="13" border=0></span></div></td>
          <td height="25" bgcolor="#E1E1E1"><span class="M"><FONT 
                              color=#000000><a href="mini.asp?web_id=<%=web_id%>"><U><%=mini%></U></a></FONT></span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="220"><div align="center">免费版暂无此功能</div></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr><tr>
    <td height="10"></td>
  </tr>
  <%end if%> <%if xc2=1 then%><%
  	set rs1=server.CreateObject("adodb.recordset")
	rs1.open"select  top 3 * from snsn_uppic where username='"&rs("username")&"'  order by id desc",conn,1,1
if not rs1.eof then%><tr>
    <td height="22">      <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#E1E1E1"><div align="center"><span class="M"><IMG 
                              src="img/icon_04.gif" 
                              name=image1754891 width="16" height="13" border=0></span></div></td>
          <td height="25" bgcolor="#E1E1E1"><span class="M"><FONT 
                              color=#000000><a href="photo.asp?web_id=<%=web_id%>"><U><%=xc%></U></a></FONT></span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td><div align="center">
      <table border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="#FFFFFF">
        <%
 do while not rs1.eof  
  iiii=0%>
        <tr align="center">
          <%do while not rs1.eof and iiii<4
  iiii=iiii+1%>
          <td width="120" height="146">
            <table border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="img/newpage_main_003.gif" width="115" height="12"></td>
              </tr>
              <tr>
                <td height="85" background="img/newpage_main_004.gif"><table width="100" height="75" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                    <tr>
                      <td align="center" bgcolor="#FFFFFF"><a href="pic.asp?web_id=<%=web_id%>&id=<%=rs1("id")%>"><img src="<%=rs1("uppic")%>" alt="<%=rs1("bt")%>" width="100" height="75" border="0"></a></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td background="img/newpage_main_004.gif">&nbsp;&nbsp;<b><%if rs1("mink")=1 then%>
                  <font color="#FF0000"><%=cutstr(rs1("bt"),12)%></font>
                  <%else%>
                  <%=cutstr(rs1("bt"),12)%>
                  <%end if%></b></td>
              </tr>
              <tr>
                <td><img src="img/newpage_main_005.gif" width="115" height="7"></td>
              </tr>
            </table>            
            </td>
          <%rs1.movenext	
	loop
	%>
        </tr>
        <%	
	loop%>
      </table><%end if%>
    </div></td>
  </tr><%end if%><%if lt2=1 then%><%
set rs=server.createobject("adodb.recordset") 
sql="select top 6 * from snsn_bbs where userid="&web_id&" and replyid=0 order by id desc"
rs.open sql,conn,1,1 
if not rs.eof then
%><tr>
    <td height="22">      <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#E1E1E1"><div align="center"><span class="M"><IMG 
                              src="img/icon_03.gif" 
                              name=image1754891 width="14" height="14" border=0></span></div></td>
          <td height="25" bgcolor="#E1E1E1"><span class="M"><FONT 
                              color=#000000><a href="bbs.asp?web_id=<%=web_id%>"><U><%=lt%></U></a></FONT> </span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
    </tr>
  <tr>
    <td align="center">
      <CENTER>
        <TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" 退定文件夹中。\	???毎??style="border-collapse: collapse">
          <%do while not rs.eof%>
         <tr onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
<td height="23"><img src="img/icon_c1.gif" width="10" height="12"> <a class="text" href="view.asp?web_id=<%=web_id%>&id=<%=rs("id")%>&s=<%=s/20%>"><%=left(rs("title"),18)%></a> <%if rs("hits")>=50 then%> <img src=img/icon4.gif><%end if%><%if rs("reply")>=10 then%> <img src=img/icon3.gif><%end if%>  <%=rs("username")%> (<font color="#0000FF"><%=rs("hits")%></font>/<font color="#FF0000"><%=rs("reply")%></font>) 
  <%if rs("ldate")>=date()-1 then%>
  <img src=img/new.gif>
  <%end if%></td>
</tr><tr background="img/xbj3.gif" height="1"><td height="1" background="img/xbj3.gif"></td>
  </tr> 
          <%
rs.movenext
loop
%>
        </TABLE>
        <%end if%>
    </center></td>
  </tr><%end if%><%if ly2=1 then%><%
set rs=server.createobject("adodb.recordset") 
sql="select top 6 * from snsn_guestbook where userid="&web_id&" order by id desc"
rs.open sql,conn,1,1 
if not rs.eof then
%><tr>
    <td height="10"></td>
  </tr><tr>
    <td height="22">
      <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#E1E1E1"><div align="center"><span class="M"><IMG 
                              src="img/vote_u.gif" 
                              name=image1754891 width="15" height="15" border=0></span></div></td>
          <td height="25" bgcolor="#E1E1E1"><span class="M"><FONT 
                              color=#000000><a href="guestbook.asp?web_id=<%=web_id%>"><U><%=ly%></U></a></FONT> </span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
    </tr><tr>
    <td height="6"></td>
  </tr>
  <tr>
    <td align="center">     
      <CENTER>
          <TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" 退定文件夹中。\	???毎??style="border-collapse: collapse">
            <%do while not rs.eof%>
            <TR height="20" onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
              <TD height="22"><img src="img/icon_c1.gif" width="10" height="12"> <a title="<%=rs("adddate")%>" href="guestbook.asp?web_id=<%=web_id%>&#part<%=rs("id")%>"><%=left(rs("title"),16)%></a> <span class="tmpstr1">
              <%set rs_user=conn.execute("select * from [snsn_user] where username='"&rs("name")&"'")
			if rs_user.eof or rs_user.bof then
response.write rs("name")
else
response.write "<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>"&rs("name")&"</a>"
end if
rs_user.close
set rs_user=nothing%>
              </span> <span class="tmpstr">(<font color=999999><%=FormatDate(rs("adddate"),2)%></font>)</span>
                <%if rs("adddate")>=date()-1 then%>
                <img src="img/new.gif" width="30" height="10">
              <%end if%></td>
            </TR>
            <TR bgcolor="#ffffff">
			  <td height="1" background="img/xbj3.gif"></td>
            </TR>
            <%
rs.movenext
loop
%>
          </TABLE>
          <%end if%>
    </center></td>
  </tr><%end if%><tr>
    <td height="10"></td>
  </tr><tr>
    <td height="22">        <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#E1E1E1"><div align="center"><span class="M"><IMG 
                              src="img/icon.gif" 
                              name=image1754891 width="15" height="15" border=0></span></div></td>
          <td height="25" bgcolor="#E1E1E1"><span class="M"><FONT 
                              color=#000000><a href="diary.asp?web_id=<%=web_id%>"><U><%=rj%></U></a></FONT></span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
      </tr> <tr>
    <td align="center">
      <CENTER>
      </center></td>
  </tr><tr>
    <td height="10"></td>
  </tr><tr>
    <td height="22">        <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#E1E1E1"><div align="center"><span class="M"><IMG 
                              src="img/icon.gif" 
                              name=image1754891 width="15" height="15" border=0></span></div></td>
          <td height="25" bgcolor="#E1E1E1"><span class="M"><FONT 
                              color=#000000><a href="xd.asp?web_id=<%=web_id%>"><U><%=xd%></U></a></FONT></span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
      </tr><tr>
    <td align="center">
      <span class="style2"> </span>
      <CENTER>
      </center></td>
  </tr>
  <%if sc2=1 then%><%
set rs=server.createobject("adodb.recordset") 
sql="select top 6 * from snsn_shoucang where u_id="&web_id&" order by id desc"
rs.open sql,conn,1,1 
if not rs.eof then
%><tr>
    <td height="10"></td>
  </tr><tr>
    <td height="22">        <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#E1E1E1"><div align="center"><span class="M"><IMG 
                              src="img/vote_u.gif" 
                              name=image1754891 width="15" height="15" border=0></span></div></td>
          <td height="25" bgcolor="#E1E1E1"><span class="M"><FONT 
                              color=#000000><a href="sc.asp?web_id=<%=web_id%>"><U><%=sc%></U></a></FONT></span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
      </tr><tr>
    <td align="center">
      <span class="style2"> </span>
      <CENTER>
        <TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
          <%do while not rs.eof%>
          <TR height="20" onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
            <TD height="22"><img src="img/icon_c3.gif" width="10" height="12"> <a title="<%=rs("adddate")%>" href="sc.asp?web_id=<%=web_id%>"><%=rs("webname")%></a> (<font color=999999><%=FormatDate(rs("adddate"),2)%></font>) 
              <%if rs("adddate")>=date()-1 then%>
              <img src="img/new.gif" width="30" height="10">
            <%end if%></td>
          </TR>
          <TR bgcolor="#ffffff">
            <td height="1" background="img/xbj3.gif"></td>
          </TR>
          <%
rs.movenext
loop
%><%end if%>

        </TABLE>
        
        <%end if%>
      </center></td>
  </tr><%end if%>
</table>
<p>&nbsp;</p>
</body>
</html>
<%function cutStr(str,strlen)
	dim l,t,c
	l=len(str)
	t=0
	for i=1 to l
	c=Abs(Asc(Mid(str,i,1)))
	if c>255 then
	t=t+2
	else
	t=t+1
	end if
	if t>=strlen then
	cutStr=left(str,i)&".."
	exit for
	else
	cutStr=str
	end if
	next
	cutStr=replace(cutStr,chr(10),"")
end function %>