score.asp
来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 258 行
ASP
258 行
<!--#include file="inc.asp"-->
<!--#include file="inc/cnwyopen.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 bgcolor="#FFFFFF">
<td width="204"><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>
<%if request.cookies("cnwy")="" then%>
<form name=form1 action=CHECK.ASP
method=post>
<table width=0 border=0>
<tbody>
<tr>
<td width=83>
<div align=center> 准考证号：</div></td>
<td width=106><input id=zkz size=13
name=zkz></td>
</tr>
<tr>
<td width=83>
<div align=center>密码：</div></td>
<td width=106><input id=password type=password size=13
name=password></td>
</tr>
<tr>
<td width=83 height=21>
<div align=center>
<input type=submit value=登陆 name=Submit>
</div></td>
<td width=106>
<div align=center>
<input type=reset value=取消 name=Submit>
</div></td>
</tr>
</tbody>
</table>
</form>
<%else%>
<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")%>">我的资料修改</a></div>
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center"><a href="exit.asp">退出考试管理系统</a></div></td>
</tr>
</table>
<%end if%></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> </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=15> </td>
</tr>
</tbody>
</table></td>
<td width="7" background="IMG/sd.gif"> </td>
<td width="600"><table width="572" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="572" height="20" background="img/lmtop.gif">||<a href="score.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="score.asp?kemu=<%=rs2("name")%>"><%=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="25"><table width="566" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="419" height="23" rowspan="2"><form name="form2" method="get" action="score_query.asp">
具体搜索：
<select name="lx">
<option value="0">查找类型</option>
<option value="1">真实姓名</option>
<option value="2">准考证号</option>
<option value="3">所在班级</option>
</select>
<input name="tj" type="text" value="请输入你要查找的条件">
<input type="submit" name="Submit2" value="查找">
</form></td>
<td width="140" rowspan="2"> </td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="img/td.gif" width="572" height="4"></td>
</tr>
<tr>
<td><%
dim wyrs,wysql
kemu=trim(request.querystring("kemu"))
if kemu="" then
set wyrs=server.createobject("adodb.recordset")
wysql="select * from score order by id desc"
wyrs.open wysql,conn,1,1
url=""
else
set wyrs=server.createobject("adodb.recordset")
wysql="select * from score where kemu='"&kemu&"'order by id desc"
wyrs.open wysql,conn,1,1
url="kemu="&kemu
end if
pagesize=20
page=request.querystring("page")
if page<1 then
page=1
elseif page>wyrs.pagecount then
page=wyrs.pagecount
else
end if %>
<table width="0" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
<tr>
<td width="90" bgcolor="#FFFFFF"><div align="center">考生准考证</div></td>
<td width="72" bgcolor="#FFFFFF"><div align="center">考生姓名</div></td>
<td width="94" bgcolor="#FFFFFF"><div align="center">考生所在班级</div></td>
<td width="76" bgcolor="#FFFFFF"><div align="center">考试科目</div></td>
<td width="69" bgcolor="#FFFFFF"><div align="center">考试的分数</div></td>
<td width="109" bgcolor="#FFFFFF"><div align="center">参加考试的时间</div></td>
</tr>
<%if not wyrs.eof then
wyrs.movefirst
wyrs.absolutepage=page
for i=1 to pagesize%>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><%=wyrs("zkz")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href=javascript:cnwyopen('user_zl.asp?zkz=<%=wyrs("zkz")%>','吻宇考试管理系统','width=500,height=500')><%=wyrs("username")%></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=wyrs("class")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=wyrs("kemu")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=wyrs("score")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=wyrs("ksdate")%></div></td>
</tr> <%wyrs.movenext
if wyrs.eof then exit for end if
next
else
response.write"暂时没有任何数据"
end if
%>
</table>
</td>
</tr>
<tr>
<td><img src="img/td.gif" width="572" height="4"></td>
</tr>
<tr>
<td><table width="572" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="330"><div align="center">总考试信息数:<%=wyrs.recordcount%> 条 总页数:<%=wyrs.PageCount%>页 当前页数:<%=Page%>/<%=wyrs.pagecount%> 页 </div></td>
<td width="242"> <%if page=1 then%><div align=center> |第一页|上一页|<a href=score.asp?<%=url%>&Page=<%=Page+1%>>下一页</a>|<a href=score.asp?<%=url%>&Page=<%=wyrs.PageCount%>>最后一页</a>|</div></td>
<%elseif page=wyrs.pagecount then%>
<div align=center> |<a href=score.asp?<%=url%>&Page=1>第一页</a>|<a href=score.asp?<%=url%>&Page=<%=Page-1%>>上一页</a>|下一页|最后一页|</div></td>
<%else%>
<div align=center> |<a href=score.asp?<%=url%>&Page=1>第一页</a>|<a href=score.asp?<%=url%>&Page=<%=Page-1%>></a>上一页</a>|<a href=score.asp?<%=url%>&Page=<%=Page+1%>>下一页</a>|<a href=score.asp?<%=url%>&Page=<%=wyrs.PageCount%>>最后一页</a>|</div></td>
<%end if%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="4"><img src="img/td.gif" width="572" height="4"></td>
</tr>
</table></td>
</tr>
<tr background="IMG/topbg.gif">
<td colspan="3"><%call footer()%></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?