<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<!--#include file="connpic.asp"-->
<%
dim page
page=request.querystring("page")
PageSize = 9
   set buys=server.createobject("adodb.recordset")    

If Session("zhbg_grade")>=10  then
    buys.open "Select * From pic Order by id DESC",conn,3,3
else
    buys.open "Select * From pic where 批准=1 Order by id DESC",conn,3,3
end if
    buys.PageSize = PageSize
    pgnum=buys.Pagecount
    if page="" or clng(page)<1 then page=1
    if clng(page) > pgnum then page=pgnum
    if pgnum>0 then buys.AbsolutePage=page
%>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>网友照片</title>
<link href="../../css.css" rel="stylesheet" type="text/css">
<!--#include file="../../Center/top_index.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../../gif/a1-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../../gif/a1.js"></SCRIPT>
<% end if %>
<br>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" >
  <!--DWLayoutTable-->
 <tr>
    <td width="7" height="32"></td>
    <td width="247" rowspan="2" valign="top"><table width="247"  border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="246" valign="top">
<% if zhbg_name<>"" then %>
<!--#include file="../../man.asp"-->
<% else %>
<!--#include file="../../denglu.asp"-->
<% end if %>
</td>
        </tr>
		<tr><td height="21" valign="top" ><!--DWLayoutEmptyCell-->&nbsp;</td>
		</tr>
    </table></td>
    <td width="23" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    <td width="471" align="center"><font color="#FF9900" size="3"><b>网友照片</b></font> </td>
    <td width="27" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <tr>
    <td></td>
    <td valign="top">
            <table width="100%" border="0" style=font-size:9pt>
              <tr> 
                <td><a href="javascript:this.location.reload()" >【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a>  
				<% if zhbg_name<>"" then %>
/ <a href="sendphoto.asp">上传照片</a>  /
<% else %>
<% end if %></td> 
              </tr>
            </table>
            <table border="0" cellspacing="2" cellpadding="3" width="100%" align="center" >
              <% 
count=0 
do while not (buys.eof or buys.bof) and count<buys.PageSize 
%>
              <%if (count+3) mod 3 =0 then%>
              <tr> 
                <%end if%>
                <td width="10%" align=center> 
                  <table border="0" cellspacing="0" cellpadding="0" bordercolor="#006531" style=font-size:9pt>
                    <tr> 
                      <td bgcolor="#007cd0"> 
                        <div align="center"> <a href=display1.asp?id=<%=buys("id")%> target="_blank"><img border="1" width=150 height=100 src='display1.asp?id=<%=buys("id")%>'></a></td></tr>
                          <tr><td bgcolor="#007cd0" height=20 align=center><font color="#ffffff"><%=buys("name")%></font>　<%If Session("zhbg_grade")>=10 or  Session("zhbg_name")=buys("name") Then%>
<a href=del.asp?id=<%=buys("id")%>><font color="#ffffff">删除</font></a><%if buys("批准")=0 then%> <a href=pz.asp?id=<%=buys("id")%>><font color="#ffffff">批准</font></a><%end if
end if%></div>
                      </td>
                    </tr>
                  </table>
                </td>
                <%if (count+4) mod 3 =0 then%>
              </tr><tr><td height=24>



</td></tr>
              <%end if%>
              <%
buys.movenext
count=count+1
loop%>
            </table>
            <table border="0" cellspacing="0" cellpadding="2" width="500" align="center" style=font-size:9pt>
              <tr> 
                <td align=left> 
                  <div align="right">[<a href="photo.asp?page=<%=page-1%>">上一页</a>][第<%=page%>页][共<%=pgnum%>页][<a href="photo.asp?page=<%=page+1%>">下一页</a>]</div>
                </td>
              </tr>
            </table>
</td>
  </tr>
</table>
<br>
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../../gif/a2-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../../gif/a2.js"></SCRIPT>
<% end if %>
<br>

</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
function musers()   
dim tmprs   
    tmprs=conn.execute("Select count(*) As lar_id from larchives")   
    musers=tmprs("name")   
	set tmprs=nothing   
	if isnull(musers) then musers=0   
end function   
%>
