kcquery1.asp

实训的小作品 关于后台SQL知识的 简单制作！

<!--#include file="../data/const.asp"-->
<%
xsh=trim(request.querystring("xsh"))

str="Select * From 课程信息表视图 "
str=str&"where 院系编号='"&xsh&"'"
set rs=server.createobject("adodb.recordset")
rs.open str,dbconn,1,1
if rs.eof or rs.bof then
%>
  <script language=vbscript>
    msgbox "没有该系开设的课程信息"
	  history.back
  </script>
<%
  response.end
end if
xsm=rs("学院简称") & rs("系部名称")
rs.movefirst
rs.pagesize=20
if not Isempty(request("Topage")) then
  if not isnumeric(request.querystring("topage")) then
%>
    <script language=vbscript>
      msgbox "输入了非法页号"
	    history.back
    </script>
<%  response.end
  end if
  topage=CLng(request.querystring("topage"))
  if topage>rs.pagecount then
     rs.absolutepage=rs.pagecount
  elseif topage<=0 then
     rs.absolutepage=1
  else
     rs.absolutepage=topage	  
  end if
end if
intcurpage=rs.absolutepage
%>

<!--#include virtual="../header.asp" -->
<br>
<table border="0" align="center" width="98%">
  <tr>
    <td>您当前的位置：公共信息->课程设置</td>
  </tr>
</table>
  
<table cellspacing="0" bordercolor="#cccccc" bordercolordark="#FFFFFF" align="center" border="1" id="mytable">
<caption><strong><%=xsm%>开设课程一览表</strong><br>
<br>
<%
if intcurpage>1 then
%>	    
  <a href=kcquery1.asp?xsh=<%=xsh%>&topage=<%=1%>>第一页</a>&nbsp;&nbsp;		
  <a href=kcquery1.asp?xsh=<%=xsh%>&topage=<%=intcurpage-1%>>上一页</a>&nbsp;&nbsp;
<%
end if
if intcurpage<rs.pagecount then
 %>
   <a href=kcquery1.asp?xsh=<%=xsh%>&topage=<%=intcurpage+1%>>下一页</a>&nbsp;&nbsp; 
   <a href=kcquery1.asp?xsh=<%=xsh%>&topage=<%=rs.pagecount%>>最后一页</a>&nbsp;&nbsp; 
<%
end if
%>
第<font color=red><%=intcurpage%></font >页/共<font color=red><%=rs.pagecount%></font >页(共<%=rs.recordcount%>门课程)
</caption> 
  <tr> 
    <th width="15%"><div align="center">课程号</div></th>
    <th width="40%"><div align="center">课程名</div></th>
    <th width="10%"><div align="center">学时</div></th>
	  <th width="10%"><div align="center">学分</div></th>
	  <th width="10%"><div align="center">课程类别</div></th>
	  <th width="10%"><div align="center">考试类型</div></th>
  </tr>
<%
for i=1 to rs.pagesize
  if rs.eof then
    exit for
  end if
%>
  <tr> 
    <td div align="center"><%=rs("编号")%>&nbsp;</td>
    <td div align="center"><%=rs("名称")%>&nbsp;</td>
    <td div align="center"><%=rs("学时")%>&nbsp;</td>
  	<td div align="center"><%=rs("学分")%>&nbsp;</td>
	  <td div align="center"><%=rs("类别")%>&nbsp;</td>
	  <td div align="center"><%=rs("考试类型")%>&nbsp;</td>
  </tr>
  <% rs.MoveNext 
   next
%>
</table>
<br>
<!--#include virtual="../footer.asp" -->