基于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 %>

@import url(\-->

  *

  

<%

sql = \

set termInfoRs = conn.Execute(sql) while not termInfoRs.eof

Response.Write \value='\& termInfoRs(\& \& termInfoRs(\ termInfoRs.MoveNext wend %>

  分(满分100分)

  分(满分100分)

  分(满分100分)

  分(满分100分)   分(满分100分)

5、evaluateInfoDel.asp:(学生测评信息删除) <%

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

<%

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 %>