<%=TD_home%> > 首页 > 留言中心
留言中心

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

所有类别
联系我们
电话:
传真:
电子邮件: <%=TD_mail%>