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