学生选课系统 毕业设计

<% dim mysql,myobj,totalnum,teacher_code,teacher_name,teacher_password totalnum=0 mysql="select * from 教师表 " set myobj=getsqlrecordset(mysql,"毕业设计.mdb") do while not myobj.eof totalnum=totalnum+1 myobj.movenext loop myobj.movefirst myobj.pagesize=5 pagecounts=round(totalnum/myobj.pagesize) curpage=request.QueryString("curpage") if curpage="" then curpage=0 myobj.movefirst else myobj.move curpage*(myobj.pagesize) end if do while not myobj.eof and currecord<myobj.pagesize teacher_code=myobj("教师代号") teacher_name=myobj("教师姓名") teacher_password=myobj("密码") %> <table width="800" border="1" cellspacing="0" cellpadding="0" align="center" bgcolor="<%=session("outcolor")%>"> <tr> <td height="31"><% if curpage>0 then%> <a href="admin_addteacher.asp?curpage=<%=(curpage-1)%>">上一页</a> &nbsp;&nbsp;&nbsp;&nbsp; <%else 'if curpage<myobj.pagecount+1 then%> <a href="admin_addteacher.asp?curpage=<%=(curpage+1)%>">下一页</a> <%end if set myobj=nothing set objconn=nothing %> <% for i=0 to pagecounts-1%> <a href="admin_addteacher.asp?curpage=<%=i%>"> <%response.Write i&" "%> &nbsp;&nbsp;</a> <%next %> 共<%=pagecounts%>页 共有:<%=totalnum%>部电影</td> </tr> </table>