%
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")
%>
<%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%>