yourresultlist.asp

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

ASP
132 行
字号 
<!-- #include file="adoconn.asp" -->
<html>

<head>
<link rel="stylesheet" href="comCSS.css" >
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>评分结果显示</title>

<base target="rbottom">
<meta name="Microsoft Border" content="t, default">
</head>

<body ><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="left">　</p>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<% 
  call SearchTeacher(Request.form("T1"),Request.form("T2"))
%>  

   
<% 
Dim sql 
Dim reccount 
Dim fieldi,recordi 
Dim t1,t2

Certificate()  

t1=request("D1") & "至" & request("D2")  
t2=request("D3") 

sql="select TV.Tid,TV.Tname,TV.Tdepartment,TV.Tscore,SV.Sscore,DV.Dscore,TV.Tscore+SV.Sscore+DV.Dscore as sumscore from TscoreView TV,SscoreView SV,DscoreView DV "
sql=sql & "where TV.Tid=SV.Tid and TV.Yeartoyear=SV.Yeartoyear and TV.Term=SV.Term and "
sql=sql & "TV.Tid=DV.Tid and TV.Yeartoyear=DV.Yeartoyear and TV.Term=DV.Term and "
sql=sql & "TV.YeartoYear='" & t1 & "' AND TV.term='" & t2 & "' and "
sql=sql & "TV.Tid='" & session("uid") & "'" 

Set rs=GetRecordset(sql)
 
IF not rs.eof then  
   Reccount=rs.RecordCount 
else
%>
<script language="vbscript">
MsgBox "没有评分记录!"
history.back
</script>
<%
END IF 
%> 
 
<form method="post"> 
<table border=0 cellspacing="0" width="588"> 
<tr> 
<td width="584">
  <p align="center"><font face="华文行楷" size="2" color="#FF0000"><b><%=(t1&"学年")%><%=("第"&t2&"学期")%><%=(t3)%> 教师评分统计表&nbsp; </b></font> </p> 
 </td>              
</table>                                         
<div align="left">              
  <table border="1" width="593">            
  <tr bgcolor=#ccccc8>          
    <td width="37" align="center">            
        <font color="#FF0000">序号</font>        
    </td>             
    <td width="97" align="center">           
        <p align="center"><font color="#000080"><b>&nbsp; 教师编号</b></font>        
    </td>             
    <td width="64" align="center">           
        <p align="center"><font color="#000080"><b>姓名</b></font></p>           
    </td>             
    <td width="90" align="center">           
        <p align="center"><font color="#000080"><b>所在部门</b></font></p>           
    </td>             
    <td width="71" align="center">           
        <p align="center"><font color="#000080"><b>教师<br>
        打分值</b></font></p>           
    </td>    
    <td width="59" align="center"><font color="#000080"><b>学生<br>
    打分值</b></font></td>
    
    <td width="64" align="center"><font color="#000080"><b>室主任<br>
    打分值</b></font></td>
    
    <td width="59" align="center"><font color="#000080"><b>总评<br>
    分值</b></font></td>
   </tr>        
            
    <%for recordi=1 to Reccount           
      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 width="37" align="left">　<%=recordi%></td>                       
      <td width="97" align="left"><%= rs(0) %></td>             
      <td width="64" align="left"><% =rs(1) %></td>             
      <td width="90" align="left"><% =rs(2) %></td>      
      <td width="71" align="left"><% =left(cstr(rs(3)),5) %></td>                                 
      <td width="59" align="left"><% =left(cstr(rs(4)),5) %></td>
      <td width="59" align="left"><% =left(cstr(rs(5)),5) %></td>                  
      <td width="59" align="left"><% =left(cstr(rs(6)),5) %></td>                     

        
   <%response.write ("</tr>")%>             
    <% rs.movenext%>             
    <%next%>             
  </table>             
</div>             
<%         
  Set rs=nothing         
  Set Adoconn=nothing         
%>                    
                         
<p><a href="javascript:history.back(2)">返回</a>              
         
</p>             
             
</form>             

<!--msnavigation--></td></tr><!--msnavigation--></table></body>           
</html>

yourresultlist.asp - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 yourresultlist.asp 源码文件，采用 ASP 编程语言编写，共 132 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与动态相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?