<% Response.Expires=-1 Response.AddHeader "cache-control","private" if isbanip(Request.ServerVariables("REMOTE_ADDR"))=true or isbanip(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))=true then Response.Redirect "err.asp?number=1" Response.End elseif StatusOpen=false then Response.Redirect "err.asp?number=2" Response.End end if call addstat("view") %> <%=HomeName%> 留言本 onLoad="<%=framecheck%>"> <% Dim cn,rs set cn=server.CreateObject("ADODB.Connection") set rs=server.CreateObject("ADODB.Recordset") CreateConn cn,dbtype Dim WordsPerPage if GuestDisplayMode()="book" then WordsPerPage=ItemsPerPage elseif GuestDisplayMode()="forum" then WordsPerPage=TitlesPerPage end if 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,sql_pk_main,local_sql_count,local_sql_query,"parent_id INC,lastupdated DEC,id DEC",Request.QueryString("page"),WordsPerPage,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%>