<%@LANGUAGE="VBSCRIPT"%> <% noCache() If Request.QueryString("p") = "" Then p = 1 Else p = CInt(Request.QueryString("p")) Set rootRs = Server.CreateObject("ADODB.RecordSet") rootRs.Open "SELECT * FROM LBJ_BLOG_BBS ORDER BY POST_DATE DESC", Conn, 1, 1 If rootRs.Bof Or rootRs.Eof Then totalPage = 1 Else rootRs.PageSize = 5 rootRs.CacheSize = 5 totalPage = Int(rootRs.PageCount) If p > totalPage Then p = totalPage If p < 1 Then p = 1 rootRs.AbsolutePage = p End If %>

告诉朋友     <%For index = 1 To 5%> <% If rootRs.Bof or rootRs.Eof Then AUTHOR = "" POSTDATE = "" CONTENT = "" Else AUTHOR = rootRs("AUTHOR") SOURCEDATE = rootRs("POST_DATE") POSTDATE = "Post at: " & Month(SOURCEDATE) & "/" & Day(SOURCEDATE) & "/" & Year(SOURCEDATE) & " " & Hour(SOURCEDATE) & ":" If Len(Minute(SOURCEDATE)) < 2 Then POSTDATE = POSTDATE & "0" POSTDATE = POSTDATE & Minute(SOURCEDATE) CONTENT = rootRs("CONTENT") rootRs.MoveNext End If %> <%Next%> <%If p > 1 Then%> <<上一页 <%Else%> <<上一页 <%End If%>   第: <%=p%> / <%=totalPage%> 页  <%If p < totalPage Then%> 下一页>> <%Else%> 下一页>> <%End If%> <%=index%> <%=AUTHOR%> <%=POSTDATE%>   <%=CONTENT%> <%If p > 1 Then%> <<上一页 <%Else%> <<上一页 <%End If%>   第: <%=p%> / <%=totalPage%> 页  <%If p < totalPage Then%> 下一页>> <%Else%> 下一页>> <%End If%> 你的名字:

<% rootRs.Close Conn.Close Set rootRs = nothing Set Conn = nothing %>