<%dbs="../"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="uccook.asp"-->
<!--#include file="uc.asp"-->
<!--#include file="../inc/ListPager.asp"-->
<!--#include file="../inc/sub.asp"-->
<%
'判断 用户是否开通请客功能
if request("Submit")="删 除" then
id=replace(request("id")," ","")
id=split(id,",")
for i=0 to UBound(id)
conn.execute("delete from H_Bless where id="&id(i)&"")
next
response.Write "<script >alert('提示：\n\n删除成功,\n\n立即返回...');location.href='Bless_master.asp';</script>"
response.end 
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_Bless"
	.PrimaryKey = "ID" 
	.Fields = "ID,H_title,H_date,H_sort" '显示字段
	.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" height="105" border="0" cellpadding="0" cellspacing="0">
			<form action="Bless_master.asp?my=del" method="post" target="_self">
              <tr>
                <td width="49" height="25" align="left"><input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form)" style="border:0">全选</td>
                <td width="68" align="left" class="uc_huise">分类</td>
                <td width="525" align="left" class="uc_huise">祝福人</td>
                <td width="158" align="left">日期</td>
              </tr>
              <tr>
                <td height="1" colspan="4" bgcolor="#84BD00"></td>
              </tr>	<%
				if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
	%>
			  
              <tr>
                <td height="28" align="left"><input name="ID" type="checkbox" id="ID" value="<%=arrlist(0,i)%>"></td>
                <td align="left" class="uc_huise"><%call H_Bless(arrlist(3,i))%>
				</td>
                <td align="left" class="uc_huise"><%=arrlist(1,i)%>				</td>
                <td align="left"><%=arrlist(2,i)%></td>
              </tr>
              <tr>
                <td height="1" colspan="4" bgcolor="#F0F0F0"></td>
              </tr>
			      <%
					next
				end if
				%>		
              <tr>
                <td height="1" colspan="4" bgcolor="#84BD00">						</td>
              </tr>
              <tr>
                <td height="25" colspan="4" align="left"><input name="Submit" type="submit" class="biao" value="删 除">	</td>
              </tr>
              <tr>
                <td height="5" colspan="4"><%
					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>
			</form>  
            </table>
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
            

	        

		</td>
    </tr>
</table>
		  <%
Set myListPager = nothing
conn.close()
Set conn = nothing
%>
<!--#include file="end.asp"-->

</BODY></HTML>
