result.asp

吻宇考试管理系统源码 吻宇考试管理系统源码

<!--#include file="checkuser.asp"-->
<!--#include file="inc.asp"-->
<%call top()%>
<table width="781" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
  <tr background="IMG/topbg.gif">
    <td colspan="3"><%call head()%></td>
  </tr>
  <tr>
    <td width="204" height="207" rowspan="3"><table width="100%" border=0 cellpadding=1 cellspacing=1 bgcolor="#EFEFEF">
      <tbody>
        <tr bordercolor=#999999>
          <td valign=center bordercolor=#999999 align=middle bgcolor=#efefef 
            height=17><div align="center"><img src="img/user.gif" width="200" height="22"></div></td>
        </tr>
        <tr>
          <td valign=top bgcolor=#efefef>
            <table id=AutoNumber2 style="BORDER-COLLAPSE: collapse" 
            cellspacing=0 cellpadding=0 width="100%" border=0>
              <tbody>
                <tr>
                  <td align=middle><table width="0" border="0">
                    <%
			dim rs3,sql3
			set rs3=server.createobject("adodb.recordset")
			sql3="select * from user where name='"&request.cookies("name")&"'"
	                rs3.open sql3,conn,1,1
			%>
                    <tr>
                      <td colspan="2">欢迎<span class="style1"><%=rs3("name")%><span class="style2">同学来到吻宇考试系统</span></span></td>
                    </tr>
                    <tr>
                      <td colspan="2">我的准考证号：<%=rs3("zkz")%></td>
                    </tr>
                    <tr>
                      <td colspan="2">我的所在的班级：<%=rs3("class")%></td>
                    </tr>
                    <tr>
                      <td width="87" bgcolor="#efefef"><div align="center"><span class="style3"><a href="user_ks.asp?id=<%=RS3("id")%>" class="style3">我的考试信息</a></span></div></td>
                      <td width="99"><div align="right" class="style3">
                          <div align="center"><a href="user_xg.asp?id=<%=rs3("id")%>" class="style3">我的资料修改</a></div>
                      </div></td>
                    </tr>
                    <tr>
                      <td colspan="2"><div align="center"><a href="exit.asp">退出吻宇网络</a></div></td>
                    </tr>
                  </table></td>
                </tr>
              </tbody>
          </table></td>
        </tr>
        <tr bordercolor=#999999>
          <td bordercolor=#999999 align=left bgcolor=#efefef>     
        </tr>
        <tr bordercolor=#999999>
          <td align=middLe background=IMG/lljs.gif bgcolor=#efefef 
          height=18><div align="center"><img src="img/tj.gif" width="200" height="22"></div></td>
        </tr>
        <tr bordercolor=#999999>
          <td bgcolor=#efefef><font color=#000000>
            <script src=js.asp></script>
          </font></td>
        </tr>
        <tr bordercolor=#999999>
          <td valign=ceNter 
          bgcolor=#efefef height=18>
            <div align=center><img src="img/hezuo.gif" width="200" height="22"></div></td>
        </tr>
        <tr bordercolor=#999999>
          <td valign=cEnter bgcolor=#efefef height=10>
            <table width=0 align=center border=0>
              <tbody>
                <tr>
                  <td width=87>&nbsp;</td>
                </tr>
                <tr>
                  <td><a href="http://www.e0b.com/"><img height=31 
                  src="IMG/tclogo.gif" width=88 
              border=0></a></td>
                </tr>
              </tbody>
            </table>
            <p align=center><font color=#000000><br>
          </font></p></td>
        </tr>
        <tr bordercolor=#999999>
          <td valign=cenTer bgcolor=#efefef 
      height=16>&nbsp;</td>
        </tr>
      </tbody>
    </table></td>
    <td width="7" rowspan="3" background="IMG/sd.gif">&nbsp;</td>
    <td width="603">
	</td>
  </tr>
  <tr>
    <td width="575" height="215"><table width="409" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#d2ebff" class="Xsmall">
      <tr bgcolor="#FFFFFF">
        <td height="14" colspan="2"><div align="center" class="style3 style1" style="color: #FF0000"><strong>
            <%
dim wyrs,wysql,wyrs1,wysql1
dxfs=session("dxfs")
sxfs=session("sxfs")
kemu=session("kemu")
dxzf=0
sxzf=0
i=0
cnwy=0
set wyrs=server.CreateObject("adodb.recordset")
wysql="select * from "&session("mdb")&" where kemu='"&kemu&"' and type='1'"
wyrs.open wysql,conn,1,1
do while not wyrs.eof
i=i+1
if request.Form(i)=wyrs("answer") then
   dxzf=dxzf+dxfs
   end if
wyrs.movenext
loop
set wyrs1=server.CreateObject("adodb.recordset")
wysql1="select * from "&session("mdb")&" where kemu='"&kemu&"' and type='2'"
wyrs1.open wysql1,conn,1,1
do while not wyrs1.eof
cnwy=cnwy+1
sxaws=request.Form("anw"&cnwy)
sxaw=replace(replace(sxaws,",","")," ","")
sxas=trim(wyrs1("answer"))
if sxaw=sxas then   
   sxzf=sxzf+sxfs
end if
wyrs1.movenext
loop
zf=sxzf+dxzf
if zf<session("passfs") then
response.write"很抱歉您没有通过考试~!"
wytype="不及格"
else
wytype="优秀"
response.write"恭喜你通过了考试~!"
end if
set wzrs=server.createobject("adodb.recordset")
wzsql="select * from score"
wzrs.open wzsql,conn,2,3
wzrs.addnew
wzrs("username")=request.cookies("name")
wzrs("kemu")=kemu
wzrs("score")=zf
wzrs("ksdate")=now()
wzrs("type")=wytype
wzrs("zkz")=request.cookies("zkz")
wzrs("class")=request.cookies("class")
wzrs.update
wzrs.close
set wzrs=nothing
%>
        </strong></div></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="106" height="3" class="style3">您的单选题得分：</td>
        <td width="292"><%=dxzf%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="7" class="style3">您的双选题得分：</td>
        <td height="7"><%=sxzf%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="21"><div align="left" class="style3">您这次考试总分：</div></td>
        <td height="21"><%=zf%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="7" class="style3">本门的通过分数：</td>
        <td height="7"><%=session("passfs")%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="15" colspan="2">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td></td>
  </tr>
  <tr background="IMG/topbg.gif">
    <td colspan="3"><%call footer()%></td>
  </tr>
</table>
</body>
</html>