evaluating.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 153 行

<!-- #include file="adoconn.asp" -->
<Script Language="VBScript" for="B2" event="Onclick">
      HISTORY.go(-1)     '回退上页
</Script>

<%
Dim sqls
Dim ri,rp,inscore,rulescore
Dim temprs
Dim ErrorFlag
Dim ParaArray
Redim ParaArray(20)

IF request.form("B1")="保存" then 
   ri=1           '置循环计数初值
   ErrorFlag=0   '置出错标志，0代表无错，1代表出错。
   for each item in request("Selected")    
       inscore=request.form("score" & cstr(ri)) '取每一项的输入评分值
       sqls="select * from TestRules where Category='" & item & "' AND Yeartoyear='" + Session("Termyear") + "' AND Term='" + Session("Term") + "' AND kind='" & session("Kind") & "'"       
       Set temprs=GetRecordset(sqls)   '取对应项的标准分值
       Category=Item                      '评分条目项类别
       Content=temprs("Content")        '评分条目项内容
       ruleScore=temprs("Score")        '评分条目项满分值
       Weight=temprs(4)                   '评分条目项权重
       Kind=temprs(5)                     '评分规则适合对象（教师或学生）
       Yeartoyear=Session("Termyear")  '评分规则适合的学年
       Term=Session("term")              '评分规则适合的学期
           
       Set temprs=Nothing
       Set Adoconn=Nothing
 
       If not IsNumeric(inscore) Then   '输入非数字值
          ErrorFlag=1       
       %>
          <Script language="vbscript"> 
           Msgbox "输入框不能为空和字符，请重新输入！"
           history.back
          </script>
       <% 
       ElseIf (cint(inscore) <= 0) or (cint(inscore) > cint(rulescore)) then
       %>
          <Script language="vbscript"> 
           Msgbox "输入的数值应当是大于零和小于该项满分值的数字，请重新输入！"
           history.back
          </script>
       <%
           ErrorFlag=1
           Exit for
       End if 
       '将输入的评分值保存到表中
       sqls="Insert into ScoreInfo(OperatorID,OperatorName,Tid,Tname,Tdepartment,Category,Content,FullScore,Weight,Score,Kind,Yeartoyear,Term) "
       sqls=sqls & "Values('" & Session("uid") & "','" & Session("uname") & "','" & session("Tid") & "','" & session("Tname") & "','" & session("Tdepartment") & "','" & Category & "','"
       sqls=sqls &  Content & "'," & cstr(ruleScore) & "," & cstr(weight) & "," & cstr(inscore) & ",'" & kind & "','" & Yeartoyear & "','" & Term & "')"
       '保存当前SQL语句
       ParaArray(ri)=sqls    
       ri=ri+1
   next
   '如果输入正确，则执行以上SQL命令
   If ErrorFlag = 0 Then
      Adoconnection()
      for rp=1 to ri - 1
          Adoconn.Execute ParaArray(rp)
      next     
      set Adoconn=nothing         
   End If
%>
<Script Language="VBScript"> 
      HISTORY.go(-2)
</Script>
<% 
ELSE
Certificate()  
 
Session("Tid")=request("TeacherID")    '保存教师编号
Session("Tname")=request("Tname")       '保存教师姓名
Session("Tdepartment")=request("Tdepartment")   '保存教师部门

Dim sql  
Dim reccount  
Dim fieldi,recordi  
Dim t1,t2,t3,r1,r2  
Dim ps,mypagesize,ys,mypage  
Dim maxcount 

'以下命令测试是否已经对该教师完成评分，避免重复打分
sql="select * from scoreinfo where OperatorID='" & session("uid") & "' AND Tid='" & session("Tid") & "' AND Yeartoyear='" & Session("Termyear") & "' AND Term='" & Session("Term") & "' and Kind='" & Session("Kind") & "'"
Set rs1=GetRecordset(sql) 
If not rs1.eof then
   Set Adoconn=nothing
   Set rs1=nothing
%>
<script language="vbscript"> 
   MsgBox "您已经为该老师打过分，请选择其他老师。"
   history.back
</script>
<% 
  Set Adoconn=nothing
  Set rs1=nothing
End if

'调出评分规则表
sql="select * from TestRules where Kind='" + session("Kind") + "' AND Yeartoyear='" + Session("Termyear") + "' AND Term='" + Session("Term") + "'" 
sql=sql & " order by CategoryID"
 
Set rs=GetRecordset(sql)  
%>  

<div align="center">  
<form method="post">  
<b>                                                                       
<font face="华文行楷" size="5" color="#000080" ><p align="center"><%=(session("Tname") & " 老师 教学评价表")%></p></font>                                                                           
</b>     
                          
  <table border="1" width="581" >                          
  <tr bgcolor=#ccccc7>                              
    <td width="121" align="center"><font color="#000080"><b>评价项目</b></font></td>                      
    <td width="263" align="center"><font color="#000080"><b>评价标准</b></font></td>                      
    <td width="56" align="center"><font color="#000080"><b>满分值</b></font></td>                      
    <td width="45" align="center"><font color="#000080"><b>权重</b></font></td>                      
    <td width="64" align="center"><font color="#000080"><b>打分值</b></font></td>                      
  </tr>                  
                      
    <%for recordi=1 to rs.recordcount                     
      if rs.Eof then Exit for                     
      if recordi mod 2=0 then                  
         color="#ddddd7"                  
      else                  
         color="#eeeeef"                  
      end if                  
                      
      response.write ("<tr bgcolor=" + color +">")                  
    %>                       
      <td align="left">
	  <!--webbot bot="Validation" s-data-type="Number" s-number-separators="x." --><input type="hidden" name="Selected"  checked value=<%=rs(1)%>><% =rs(1) %></td>                                  
      <td align="left"><% =rs(2)%></td>                       
      <td align="left"><% =rs(3)%>　</td>                       
      <td align="left"><% =rs(4)%>　</td>                       
      <td align="left"><input type="input" name="score<%=cstr(recordi)%>" size="8"></td>                
    <% response.write ("</tr>")%>                       
    <% rs.movenext%>                       
    <%next%>                       
  </table>                       
                    
<%                   
  Set rs=nothing                   
  Set Adoconn=nothing                   
%>                              
<input type="submit" value="保存" name="B1">        
<input type="button" value="返回" name="B2">     
</form> 
</div>                                                      
<%END IF%>