<%
if session("password")<>"" then
session("return")=request.ServerVariables("SCRIPT_NAME")
%>
<!-- #include file="inc/conn.asp" --> 
<!-- #include file="images/jav3.inc" -->
<!-- #include file="inc/top.asp"-->
<!-- #include file="inc/adminmenu.asp" -->


<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed1_rld">
  <tr>
    <td valign='top'>
      <!--#include file="inc/conn1.asp"-->
      <% 
    page = CLng(request("page"))                            '利用CLng函數把page值轉換為Long型
    judge=request("judge")
    judge2=request("judge2")
    judge3=0
    sqlcmd="select * from kcb Order By id desc"
    rs.Open sqlcmd,newconn,1,2
%>
      <form method="POST" id=form1 name=form1>
        <table width="768" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#F0F0F0" id=TabDocMain>
          <tr>
            <td width="42" height="25" align=center> 刪除框 </td>
            <td width="135" height="20" align=center>年代</td>
         
            <td width="136" height="20" align=center>月份</td>
        
            <td width="140" height="20" align=center>項目</td>
            <td width="124" height="20" align=center>類型</td>
            <td width="161" height="20" align=center>操作</td>
          </tr>
          <%
            if not (rs.EOF or rs.BOF) then
            rs.MoveFirst
            rs.PageSize = 12  '每頁顯示的條數  
            If page < 1 Then page = 1 
            If page > rs.PageCount Then page = rs.PageCount  
            rs.AbsolutePage = page
            For ipage = 1 To rs.PageSize
            %>
          <tr>
            <td height="25" align=center width="42">
            <input type="checkbox" name="answer" value="<%=rs("id")%>" id="Checkbox1">            </td>
            <td height="20" align=left width="135"><div align="center"><%=rs("bj")%></div></td>
            <td height="20" align=left width="136" nowrap><div align="center">
                <div align="center"><%=rs("xq")%></div>
                
              </div></td>
            <td height="20" align=left width="140"><div align="center"><%=rs("kc")%></div></td>
            <td height="20" align=left width="124"><div align="center"><%=rs("lx")%></div></td>
            <td width="161" height="20" align=center bgcolor="#A0A4AC"><a href="updata.asp?kind=kc&id=<%=rs("id")%>">修改</a></td>
          </tr>
          <%
                rs.MoveNext      
                If rs.EOF Then Exit For   
                Next   
      %>
          <tr>
            <td height="30" colspan="9">&nbsp;&nbsp;
              <input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2">
            選中所有的顯示課程&nbsp;&nbsp;
            <input type="button" name="btnDelete" value="刪除" style='font-family: 宋體; font-size: 9pt;' onClick="del()" id="Button1">&nbsp;<input type="reset" name="b" value="重置" style='font-family: 宋體; font-size: 9pt;' id="Button1">            </td>
             
          </tr>
        </table>
      </form>
      <table border="0" align="center" cellpadding="0" cellspacing="0" width="768">
        <tr bgcolor="#A0A4AC">
          <form onSubmit="return test();" method="get" action="admin_kcs.asp" id=form2 name=form2>
            <td width="220" height="25" >
            <%
                If page = 1 Then 
                   Response.Write "<font class='white'>第一頁　上一頁</font>" 
                End If
                If page <> 1 Then 
                   Response.Write "<a href=admin_kcs.asp?page=1 class='yellow'>第一頁</a>" 
                   Response.Write "　<a href=admin_kcs.asp?page=" & (page - 1) & " class='yellow'>上一頁</a>" 
                End If
                If page <> RS.PageCount Then 
                   Response.Write "　<a href=admin_kcs.asp?page=" & (page + 1) & " class='yellow'>下一頁</a>" 
                   Response.Write "　<a href=admin_kcs.asp?page=" & RS.PageCount & " class='yellow'>最后一頁</a>" 
                End If 
                If page = RS.PageCount Then 
                   Response.Write "　<font class='white'>下一頁　最后一頁</font>" 
                End If
              %></td>
            <td height="25" >GOTO頁數：
            <%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>"  '顯示輸入頁數框并將page,judge參數傳遞下去%></td>
          </form>
        </tr>
        <tr>
          <td class="white" colspan="2" height="25" >記錄總數：<%=rs.recordCount%>　總頁數：<%=rs.PageCount%>　當前頁次：<%=page%> </td>
        </tr>
      </table>      <table width="768" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><%else%></td>
          <td colspan=9><table border="0" cellpadding="0" cellspacing="0" >
              <td height="25" >對不起，還沒有記錄！</td>
          </table></td>
          <td><%end if%></td>
        </tr>
    </table></td>
  </tr>
</table>

<!--#include file="inc/copyright.asp"-->