基于WEB的学生综合测评系统(内含源代码)(5)

 

<%

rs.MoveNext if rs.EOF Then Exit For end if Next %>

选中所有的测评信息 

If currentpage = 1 Then

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

If currentpage <> 1 Then Response.Write \href=evaluationInfoManage.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%>

7、evaluateInfoSearch.asp:(学生测评信息查询) <%

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

---

<%

sqlString = \

if Request(\请选择查询方式\

sqlString = sqlString & \\Request(\

end if

if Request(\

sqlString = sqlString & \ end if

set rs=server.createobject(\ rs.Open sqlString,conn,1,2 if(not rs.eof) then rs.MoveFirst

rs.PageSize = 4 '设置每页查询的学生信息条数 pageCount = rs.PageCount For i = 1 To pageCount %>

条记录/共<%=rs.RecordCount%>条记录  当前第<%=i%>页/共<%=rs.PageCount%>页 <%

rs.AbsolutePage = i

for j=1 to rs.PageSize %>

学号: <%=rs(\ 姓名: <%=rs(\

专业: <%=rs(\

所评学期: <%=rs(\

综合素质分: <%=rs(\ <%

if rs(\ %>

对该生评价: <%=rs(\ <%

end if %>

<%

rs.MoveNext

if rs.EOF Then Exit For end if Next %>

<%

if i

%>

---

end if Next else

Response.Write \对不起，当前没有符合条件的测评信息供

\ end if %>

8、evaluationInfoUpdate.asp(学生信息维护) <%

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

马上注册会员

注：下载文档有可能“只有目录或者内容不全”等情况，请下载之前注意辨别，如果您已付费且无法下载或内容有问题，请联系我们协助你处理。
微信： QQ：