<%dbs="../"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="uccook.asp"-->
<!--#include file="uc.asp"-->
<!--#include file="../inc/ListPager.asp"-->
<%
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from H_Domain where H_UI=1 and  UID="&UID&""
	rs.open sql,conn,1,1
	if rs.eof then
	response.Write "<script >alert('提示：\n\n 我们检测到您没有开通博客功能了\n\n我们将帮助您返回开通页...');location.href='Home_temp_add.asp';</script>"
	response.End()	
	end if
 act=request("act")
 
 if act="del" then
 call H_deldate("H_pic","H_PIC",id(i),1,"id")
 response.Write "<script >alert('提示：\n\n恭喜,删除成功\n\n立即返回...');location.href='pic_master.asp';</script>"
 end if
 
 
 if act="picindextj" then
 conn.execute("Update H_pic set H_IX=1 where id="&request("id"))
 end if
  if act="picindexqx" then
 conn.execute("Update H_pic set H_IX=0 where id="&request("id"))
 end if
 
%>

<%
'千万条数据分页调用。支持 900万条数据系统
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_pic"
	.PrimaryKey = "ID" 
	.Fields = "ID,H_pic,H_name,H_key" '显示字段
	.PageSize = 15
	.AddOrder "ID"," desc"
'	.AddWhere "SMT_key =1"
	.AddWhere "UID ="&UID&""	
	.Cache = 10	
	.Init()
end with
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<title><%=W_title%>,会员中心</title>

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript src="images/jquery.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript src="images/function.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript type=text/javascript>
<!--


/*
function AddnewType()
*/
-->
</SCRIPT>
<script>
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>
<META content="MSHTML 6.00.3790.4426" name=GENERATOR>
</HEAD>
<BODY><!--用户中心头部-->
<!--#include file="top.asp"-->
<table width="960" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td width="150" valign="top"><!--#include file="left.asp"--></td>
        <td width="810" align="right" valign="top"><table width="800" border="0" cellpadding="0" cellspacing="0">
            <tr>
                <td width="20" align="center"><img src="images/ico_4.gif" width="12" height="12"></td>
                <td height="30" align="left"><a href="index.asp" target="_self">用户中心</a> <span class="uc_huise">&gt; 管理照片</span></td>
            </tr>
            <tr>
                <td height="1" colspan="2" bgcolor="#EEEEEE"></td>
          </tr>
        </table>
            <table width="600" height="5" border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td></td>
                </tr>
            </table>
			
			
            <table width="800" border="0" cellpadding="0" cellspacing="1" bgcolor="#EEEEEE">
    <tr>
        <td width="794" height="28" bgcolor="#FFFFFF" class="uc_huise">管理照片</td>
		 
    <tr>

     <td height="28" align="center" bgcolor="#FFFFFF"style="padding-top:5px;" >
	 <table width="200" border="0" cellpadding="0" cellspacing="0" >
  <tr>
  
  	<%
				if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					n=n+1
	%>
    <td style="padding-top:10px; padding-right:20px;"><table width="120" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="100"><img src="../UpLoadUC/<%=arrlist(1,i)%>" border="0" onload='javascript:if(this.width>98){this.width=98}'></td>
  </tr>
  <tr>
    <td height="20" class="uc_huise"><%if arrlist(3,i)=0 then%><a href="?act=picindextj&id=<%=arrlist(0,i)%>" target="_self">推荐</a><%else%><a href="?act=picindexqx&id=<%=arrlist(0,i)%>" target="_self"><font color="#FF0000">取消</font></a><%end if%> <a href="?act=del&id=<%=arrlist(0,i)%>">删除</a> <a href="pic_Edit.asp?id=<%=arrlist(0,i)%>" target="_self">修改</a> </td>
  </tr>
  <tr>
    <td height="20"><%=left(arrlist(2,i),4)%></td>
  </tr>
</table></td>
	  <%
	  
	 if n mod 5 = 0 then response.Write "</tr><tr>"
					next
				end if
				%>		
  </tr>
</table>	 </td>
    </tr>
  
    <tr>
      <td height="28" align="center" bgcolor="#FFFFFF">
	  
	  
	  	<%
					with myListPager
					
							Response.Write("<script type=""text/javascript"" src=""../inc/styles/ListStyle.js""></script>")
							Response.Write("<script type=""text/javascript"">pageTurn(" & .RecordCount & ", " & .PageSize & ", " & .PageCount & ", " & .CurrentPage & ", """ & .QueryString & """);</script>")
					end with
					%></td>
    </tr>
</table>


	        
			
			
		</td>
    </tr>
</table>
<!--#include file="end.asp"-->

</BODY></HTML>
