onLoad="<%=framecheck%>" topmargin="0">
<%
Dim cn,rs
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype
Dim ItemsCount,PagesCount,CurrentItemsCount,ipage
dim local_sql_count,local_sql_query
local_sql_count=sql_index_words_count & GetHiddenWordCondition()
local_sql_query=sql_index_words_query & GetHiddenWordCondition()
get_divided_page cn,rs,local_sql_count,local_sql_query,"parent_id INC,lastupdated DEC,id DEC",Request.QueryString("page"),ItemsPerPage,ItemsCount,PagesCount,CurrentItemsCount,ipage
%>
<%if ShowTitle=true then show_book_title 2,""%>
<%RPage="index.asp"%>
<%if PagesCount>1 and ShowTopPageList then show_page_list ipage,PagesCount,"index.asp","[留言分页]","center",""%>
<%if ItemsCount>0 and StatusSearch and ShowTopSearchBox then%><%end if%>
<%
if ItemsCount=0 then
Response.Write "
目前尚无留言，请点击“签写留言”。
"
else
dim pagename
pagename="index"
if GuestDisplayMode()="book" then
%><%
elseif GuestDisplayMode()="forum" then
%><%
end if
rs.Close
end if
cn.Close : set rs=nothing : set cn=nothing%>
<%if PagesCount>1 and ShowBottomPageList then show_page_list ipage,PagesCount,"index.asp","[留言分页]","center",""%>
<%if ItemsCount>0 and StatusSearch and ShowBottomSearchBox then%><%end if%>