showpage.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<script language="javascript">
     function viewPage(ipage){
        document.frm_page.me_page.value=ipage;
        document.frm_page.submit();        
     }
</script>
<%
sub showpage() '显示分页导航条
  n=total_page
  if n>1 then  
      k=current_Page  
      if k=1 then 
          response.write "  |  <font color='#999999'>首页</font>"
          response.write "  |  <font color='#999999'>上页</font>"
          response.write "  |  <a href='javascript:viewPage(" & cstr(k+1) &")' language='javascript'>下页</a>"
          response.write "  |  <a href='javascript:viewPage(" & cstr(n) & ")' language='javascript'>尾页</a>"
      elseif k=n then                 
          response.write "  |  <a href='javascript:viewPage(" & cstr(1) & ")' language='javascript'>首页</a>" 
          response.write "  |  <a href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
          response.write "  |  <font color='#999999'>下页</font>"
          response.write "  |  <font color='#999999'>尾页</font>"
      else 
          response.write "  |  <a href='javascript:viewPage(" & cstr(1) & ")' language ='javascript'>首页</a>"
          response.write "  |  <a href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
          response.write "  |  <a href='javascript:viewPage(" & cstr(k+1) &")' language ='javascript'>下页</a>"
          response.write "  |  <a href='javascript:viewPage(" & cstr(n) & ")' language ='javascript'>尾页</a>"
      end if 

  else            
      response.write "  |  <font color='#999999'>首页</font>"
      response.write "  |  <font color='#999999'>上页</font>"
      response.write "  |  <font color='#999999'>下页</font>"
      response.write "  |  <font color='#999999'>尾页</font>"
  end if  
end sub
%>