留言中心

当前位置：首页 → 留言中心
    <% id=ad if not isnumeric(id) then Response.Write "" Response.End() end if set rs=server.createobject("adodb.recordset") exec="select * from ly where sh=1 order by id desc" rs.open exec,conn,1,1 if rs.eof then response.Write "
    暂无记录！
    " else rs.PageSize =""&TD_lyclass&"" iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=b 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 %>
    <%=i5808(rs("title"),100)%>
    		 姓名：<%=rs("name")%> <%=rs("data")%>
        <%=InterceptString(DelHtml(rs("body")),200)%>...
    管理员回复： <% if IsNull(rs("hf")) or trim(rs("hf")&"")="" then response.Write("此留言暂未回复！") else response.Write(""&rs("hf")&"") end if %>
    <% rs.movenext next end if %>
<%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing %>