网站建设·网页设计·网站设计·网站策划·北京网站建设

<% SelectFaq = "Select * From faq Where IsValid = 1 Order By LastUpdatetime Desc,Replytime" set Rs = Server.CreateObject("Adodb.RecordSet") Rs.open SelectFaq, conn, 1, 1 %>

<% if not rs.eof or not rs.bof then intPageSize = 5 rs.PageSize = intPageSize intPageCount = rs.PageCount '检验页号 intPageNo = Request("PageNo") intPageNo = AdjustPageNo(intPageNo, intPageCount) rs.AbsolutePage = intPageNo for i = 1 to intPageSize %> <%If Rs("FaqReply") <> "" Then%> <% else end if %>

标题

<%=Left(Rs("FaqTitle"),35)%>

<%=Left(Rs("FaqAuthor"),10)%>
<%=Rs("LastUpdateTime")%>

<%=convertToHtml(Rs("FaqContent"))%>

管理员回复
<%=Rs("ReplyTime")%>

<%=convertToHtml(Rs("FaqReply"))%>

<% Rs.MoveNext if (rs.eof) then exit for end if next strPageNavigation = GetPageNavigation(intPageNo, intPageCount,"index.asp") %>

<%=strPageNavigation%>

<%Else%>

暂时没有留言

<%End If%>