📄 yuejuan.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
</HEAD>
<body>
<%
dim i
if session("userID")="" or session("username")="" then
response.Write("<p align=center>非法用户，请通过<A href=" & "welcome.htm" & ">主页</A>登录")
response.End()
end if
dim myNow
dim myTime
myTime=session("myTime")
myNow=Now
session("myNow")=myNow
if DateDiff("n",CDate(myTime),CDate(myNow))<30 then
%>
<script language=javascript>
<!--
window.alert("您只能在考试30分钟以后交卷")
history.back(1)
-->
</script>
<%
response.End
end if
set conn=server.CreateObject("ADODB.Connection")
conn.ConnectionString=Application("str")
conn.Open
set rs=server.CreateObject("ADODB.Recordset")
rs.Open "select * from 成绩 where 学号='" & session("userID") & "' and 姓名='" & session("username") & "' and 试卷编号='" & session("sjbh") & "' and 考试时间='" & session("myDate") & "'",conn
if not rs.BOF and not rs.EOF then
response.Write("您已经参加了该科目今天的考试")
%>
<p><a href="kaoshi.asp">返回</a></p>
<%
response.End
end if
rs.Close
session("yd")=request.Form("hd1")
dim yd
yd=Split(session("yd"),"/")
dim d
d=Split(session("d"),"/")
dim read
dim right
right=0
read=100*right/session("i")
for i=0 to session("i")-1
if yd(i)=d(i) then
right=right+1
end if
next
%>
<P align="center"><EM><STRONG><FONT face="华文彩云" color="#ff0033" size="6">北大青鸟网上考试系统</FONT></STRONG></EM></P>
<P>
<DIV align="center">
<HR width="100%" SIZE="1">
</DIV>
<P align="center">
<TABLE id="Table2" border="0">
<TR>
<TD><FONT face="宋体">试卷编号：<%=session("sjbh")%> </FONT></TD>
<TD><FONT face="宋体">考试科目：<%=session("km")%> </FONT></TD>
<TD><FONT face="宋体">考试日期：<%=session("myDate")%></FONT></TD>
</TR>
<TR>
<TD><FONT face="宋体">学 号：<%=session("userID")%> </FONT></TD>
<TD><FONT face="宋体">姓 名：<%=session("username")%> </FONT></TD>
<TD><FONT face="宋体">成 绩：<%=read%>分</FONT></TD>
</TR>
</TABLE>
</P>
<P align="center">
<form action="xiangjie.asp" method="get" name="form1">
<TABLE id="Table1" cellSpacing="1" cellPadding="1" width="300" align="center" border="1">
<TR>
<TD><FONT face="宋体">考题编号</FONT></TD>
<TD><FONT face="宋体">是否正确</FONT></TD>
</TR>
<%
dim bh
bh=Split(session("bh"),"/")
dim th
for i=0 to session("i")-1
th=bh(i)
%>
<tr>
<td><%=i+1%></td>
<%
if yd(i)=d(i) then
%>
<td>√</td>
<%
else
%>
<td><a href="xiangjie.asp?tihao=<%=th%>">╳</a></td>
<%
end if%>
</tr>
<%
next
strSQL="insert into 成绩 values('" & session("userID") & "','" & session("username") & "','" & session("sjbh") & "','" & session("yd") & "','" & read & "','" & session("myDate") & "')"
conn.Execute(strSQL)
%>
</TABLE>
</form>
</P>
<P align="center"><FONT face="宋体" color="#ff0033" size="4"><a href="kaoshi.asp">返回</a></FONT></P>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -