onload="<%=framecheck%>">
<%
Dim cn,rs
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype
Dim ItemsCount,PagesCount,CurrentItemsCount,ipage
get_divided_page cn,rs,"SELECT COUNT(id) FROM main WHERE parent_id=0","SELECT * FROM main WHERE parent_id=0","lastupdated,id",Request.QueryString("page"),ItemsPerPage,ItemsCount,PagesCount,CurrentItemsCount,ipage
%>
<%if ShowTitle=true then show_book_title 2,""%>
<%
if ItemsCount=0 then
Response.Write "
目前尚无留言，请点击“签写留言”。
"
else
dim pagename
pagename="index"%>
<%rs.Close%>
<%end if%>
<%cn.Close : set rs=nothing : set cn=nothing%>
<%if PagesCount>1 then show_page_list ipage,PagesCount,"index.asp","[留言分页]","center",""%>
<%if StatusSearch=true and ItemsCount>0 then%>
<%end if%>