ksindex.asp

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

<!--#include file="checkuser.asp"-->
<!--#include file="inc.asp"-->
<%call top()%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
  <tr background="IMG/topbg.gif"> 
    <td colspan="3"><%call head()%></td>
  </tr>
  <tr> 
    <td width="210" rowspan="4" bgcolor="#efefef"><table cellspacing=1 cellpadding=1 width="100%" border=0>
      <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 
          height=17 align=middLe bgcolor=#efefef><div align="center"><img src="img/kemu.gif" width="200" height="22"></div></td>
        </tr>
        <tr bordercolor=#999999>
          <td align=middLe bgcolor=#efefef 
          height=19>
            <script src=kemuzt.asp></script>
          </td>
        </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 height="40" bgcolor=#efefef><font color=#000000>
            <script src=js.asp></script>
          </font></td>
        </tr>
      </tbody>
    </table></td>
    <td width="1" rowspan="4" background="IMG/sd.gif">&nbsp;</td>
    <td width="571" height="4"><img src="img/td.gif" width="567" height="4"></td>
  </tr>
  <tr>
    <td height="20" bordercolor="#000000" background="IMG/topbg.gif" broder=1><span class="top">||</span><a href="ksindex.asp">考试首页</a>
      <%
dim rs2,sql2
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from kemu order by id ASC"
rs2.open sql2,conn,1,1
if not rs2.eof then
rs2.movefirst
do while not rs2.eof
id=trim(rs2("id"))%>
      <span class="top">||</span><a href="ks.asp?id=<%=rs2("id")%>"><%=rs2("name")%></a>
      <%rs2.movenext
	  loop
	  else
          response.write"暂时没有任何数据"
	  end if
	  rs2.close
	  set rs2=nothing
	  %>
      <span class="top">||</span></td>
  </tr>
  <tr>
    <td height="56"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="570" height="189">
      <param name="movie" value="img/cnwy.swf">
      <param name="quality" value="high">
      <param name="BGCOLOR" value="#000000">
      <embed src="img/cnwy.swf" width="570" height="189" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" bgcolor="#000000"></embed>
    </object></td>
  </tr>
  
  <tr> 
    <td height="74" bgcolor="#FFFFFF"><table cellspacing="0" cellpadding="0">
      <tr background="img/tdtop.gif">
        <td width="569" height="4"><img src="img/td.gif" width="567" height="4"></td>
      </tr>
      <tr>
        <td><table width="569" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#d2ebff" class="Xsmall">
          <tr bgcolor="#FFFFFF">
            <td height="30" colspan="8">
              <div align="center">考试科目内容介绍</div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="80" height="20">
              <div align="center">科目名称 </div></td>
            <td width="65"><div align="center">单选题数</div></td>
            <td width="65"><div align="center">单选分数</div></td>
            <td width="65"><div align="center">双选题数</div></td>
            <td width="65"><div align="center">双选分数</div></td>
            <td width="65"><div align="center">总分数</div></td>
            <td width="65"><div align="center">通过分数</div></td>
            <td width="58"><div align="center">限制时间</div></td>
          </tr>
          <%
dim cnwyrs,cnwysql
set cnwyrs=server.CreateObject("adodb.recordset")
cnwysql="select * from kemu order by id DESC"
cnwyrs.open cnwysql,conn,1,1
if not cnwyrs.eof then
cnwyrs.movefirst
do while not cnwyrs.eof
%>
          <tr bgcolor="#FFFFFF">
            <td height="15"><div align="center"><%=cnwyrs("name")%></div></td>
            <td height="15"><div align="center"><%=cnwyrs("dxts")%></div></td>
            <td height="15"><div align="center"><%=cnwyrs("dxfs")%></div></td>
            <td height="15"><div align="center"><%=cnwyrs("sxts")%></div></td>
            <td height="15"><div align="center"><%=cnwyrs("sxfs")%></div></td>
            <td height="15"><div align="center"><%=cnwyrs("zongf")%></div></td>
            <td height="15"><div align="center"><%=cnwyrs("passfs")%></div></td>
            <td height="15"><div align="center"><%=cnwyrs("xztime")%></div></td>
          </tr>
          <%
				cnwyrs.MoveNext
                Loop
			else
			response.Write"暂时没有数据"
			end if 
			cnwyrs.close
			set cnwyrs=nothing
			%>
        </table></td>
      </tr>
    </table></td>
  </tr>
  <tr background="IMG/topbg.gif"> 
    <td colspan="3"><%call footer()%></td>
  </tr>
</table>
</body>
</html>