<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/count.asp"-->
<!--#include file="../page.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">
<!--
.style8 {color: #FF3300}
-->
</style>
</head>
<body>
<table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
  <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="web.asp?web_id=<%=web_id%>"><U><%=home%></U></a></FONT> -&gt; <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 height="6"></td>
  </tr>
  <tr>
    <td>
      <%
set rs=server.createobject("adodb.recordset") 
sql="select * from snsn_shoucang where u_id="&web_id&" and xs=0 order by id desc"
rs.open sql,conn,1,1 

%>      
      <%if rs.eof or rs.bof then 
response.write "<p align='center'>对不起，没有您要查询的信息</p>" 
else
rs.PageSize =5 '每页记录条数
		iCount=rs.RecordCount '记录总数
		iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")
    	per_page=rs.PageSize
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	For i=1 To x%>
      <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" rowspan="7" bgcolor="#CCCCCC"></td>
          <td height="25" bgcolor="f9f9f9">&nbsp;<%=rs("webname")%>
            <%if rs("adddate")>=date()-1 then%>
            <img src="img/new.gif" width="30" height="10">
          <%end if%></td>
          <td width="1" rowspan="7" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td height="1" bgcolor="#CCCCCC" ></td>
        </tr>
        <tr>
          <td height="25">&nbsp;时间：<%=rs("adddate")%></td>
        </tr>
        <tr>
          <td height="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td height="25">&nbsp;<a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td>
        </tr>
        <tr height="1" >
          <td height="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td><table width="99%"  border="0" align="center" cellpadding="3" cellspacing="0">
            <tr>
              <td><img src="img/bb_code.gif" width="22" height="20"> <%=rs("sm")%> </td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table>                  
      <table width="90%" height="5"  border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td></td>
                    </tr>
      </table>
                  <%
		  icolor=icolor+1
if icolor>1 then icolor=0
		RS.MoveNext
next%>
          <TABLE width="100%" 
        border=0 align="center" cellPadding=4 cellSpacing=0>
            <TBODY>
              <TR>
                <TD class=M noWrap align=middle><%
					call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>",per_page)
				  %></TD>
              </TR>
            </TBODY>
      </TABLE>
    </center></td>
  </tr>
</table>
<p>&nbsp;</p>
</body>
</html><%end if
end if%>
