<!--#include file="Config.asp" -->
<div class='menu'>&nbsp;查看 &gt; 祝福</div>
<%
eims = "Bless"
eTable = Prefix&eims
ListUrl = eims&"List.asp?eims="&eims
EditUrl = eims&"Edit.asp?eims="&eims
%>
<div class="title">
<form method='post' name='sForm' action="<%=ListUrl%>">
  <table width="100%" border="0" cellspacing="1" cellpAdding="1">    
    <tr>
      <td><a href="WedList.asp">【返回婚庆列表】</a>  
	  </td>
      <td align="right"><!-- Search Begin -->
        姓名<input type='text' name='UserName'>
        <input type='submit' value='搜索' name='submit'>
		<input type='submit' value='显示' name='submit'>
		<input type='submit' value='隐藏' name='submit'>		
		<input type='submit' value='删除' name='submit' onClick="return confirm('确定要删除吗？')">
		<input type="hidden" name="del" value="yes">
        <!-- Search end -->
      </td>
    </tr>
  </table>
</div>
<div class="content" align="center">
<table width="100%" border="0" cellspacing="1" cellpAdding="1">
  <tr bgcolor="#FFFFFF" align="center">    
	<td width='60'><div class='title'>ID</div></td>
	<td width='80'><div class='title'>姓名</div></td>
	<td><div class='title'>内容</div></td>
	<td width="150"><div class='title'>时间</div></td>
    <td width='35'><div class='title'>状态</div></td>
	<td width='35'><div class='title'><input type='checkbox' name='chkall' onClick='CheckAll(this.form)' value='ON'> </div></td>
  </tr>
<%
fField="ItemID,UserName,ItemNote,AddDate"
OrderBy="ItemID desc"

Condition="TypeID="&TypeID
If Trim(Request.Form("UserName"))<>"" Then Condition=Condition&" and UserName like '%"&Trim(Request.Form("UserName"))&"%'"

Sql="Select "&fField&" From ["&eTable&"] Where "&Condition&" Order By "&OrderBy&" "
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
totalnumber=rs.recordcount'总记录数
if not (rs.eof and rs.bof) then'有记录
rs.PageSize=pagenum
maxpage=rs.pageCount'总页数
page=cint(request("page"))'接收页面传来的参数
if page<1 then page=1
If page>maxpage then page=maxpage
rs.Absolutepage=Page
for i=1 to rs.PageSize
if rs.eof then exit for

ItemRec="显示"
if Int(Rs("ItemRec"))=0 then ItemRec="<span class=red>隐藏</span>"
%>
  <tr onMouseOver='trOver(this)' onMouseOut='trOut(this)' align="center">
	<td><%=Int(Rs(0))%></td>	
	<td><%=Trim(Rs(1))%></td>
    <td align="left"><%=Trim(Rs(2))%></td>
	<td><%=Trim(Rs(3))%></td>
    <td><%=ItemRec%></td>
	<td><input name='BoxID' type='checkbox' value='<%=Int(Rs(0))%>'></td>
  </tr>
<% 
Rs.MoveNext
next
end if
Rs.Close
Set Rs=nothing
%>
</table>
</form>
<div class="page"><%showpage Page,totalnumber,pagenum,ReUrl() %></div>
</div>
</body></html>
<%Call CloseConn()%>