留言中心

<% id=ad if not isnumeric(id) then Response.Write "" Response.End() end if set rs=server.createobject("adodb.recordset") exec="select top "&config("lyclass")&" * 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=request("page") 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 end if %> <% dim i i=1 do while not rs.eof %>

<%=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 %>

<% if i mod 1 =0 then response.Write "" end if i=i+1 rs.movenext loop %>