基于WEB的学生综合测评系统（内含源代码） - 图文(9)

来源：网络收集时间：2026-08-25

导读： } return true; } dim sqlString,rscount,lastpage,currentpage,nextpage,pagesize,frontpage,i'skipcount; pagesize = 8 sqlString = \查询总的学生信息记录数 if Request(\请选择查询方式\ sqlString = sqlString

}

return true; }

dim sqlString,rscount,lastpage,currentpage,nextpage,pagesize,frontpage,i'skipcount; pagesize = 8

sqlString = \查询总的学生信息记录数 if Request(\请选择查询方式\

sqlString = sqlString & \'%\& \ end if

set rs = conn.Execute(sqlString) rscount = CInt(rs(\

if (0=(rscount mod pagesize)) then lastpage = rscount \\ pagesize else

lastpage = rscount \\ pagesize + 1 end if

currentpage = Request(\ if currentpage = \ currentpage = 1 else

currentpage = CInt(currentpage) end if

if (currentpage < 1 or currentpage > lastpage) then currentpage = 1 end if

if currentpage = 1 then frontpage = 1 else

frontpage = currentpage - 1 end if

if currentpage = lastpage then nextpage = lastpage else

nextpage = currentpage + 1 end if

'skipcount = pagesize * (currentpage - 1) 'do while skipcount>0 ' rs.movenext

'skipcount = skipcount - 1 'if rs.eof then ' Exit do ' end if 'Loop

If currentpage = 1 Then

Response.Write \第一页上一页\ End If

If currentpage <> 1 Then Response.Write \href=studentInfoManage.asp?searchWay=\& Request(\& \第一页\ Response.Write \ 上一页\ End If

If currentpage <> RS.PageCount Then Response.Write \ 下一页\

Response.Write \ 最后一页\ End If

If currentpage = RS.PageCount Then

Response.Write \下一页最后一页\ End If %>

<%Response.Write \显示输入页数框并将pageno参数传递下去%>

第<%=currentpage%>页/共<%=rs.PageCount%>页总记录:<%=rs.recordCount%>

信息查询:

关键字:

<%else%>

<%end if%>

16、studentInfoSearch.asp:(学生信息查询) <%

if session(\ Response.Redirect \ end if %>

查询条件设置:

关键字: