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

sqlString = sqlString & integrateScore & \ sqlString = sqlString & evaluation & \ conn.Execute(sqlString) end if

if (err.number<>0 and errMessage<>\

Response.Write \信息添加时发生了错误!')\ elseif (err.number=0 and errMessage=\

Response.Write \测评信息添加成功!')\ end if end if %>

<%

sqlString = \

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 = pagesize

rs.AbsolutePage = currentpage For i = 1 To rs.PageSize %>