enterscore.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 269 行

ASP
269 行
字号 
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" type="text/css" href="css.css">
</head>
<script language="javascript">
function userinfo(userid)
{ 
  page="userinfo.asp?userid="+userid
  window.open (page,'查看用户信息','width=300,height=300')
}

function saveit(myform)
{

  if (confirm("是提交？提交后数据不能修改！！！"))
  {
    myform.action="uscoreSave.asp";
    myform.submit();
  }
 
  return false
 
  
}

</script>
<body>
<%
v_testid  = request("radioPaperID")


sql = "select * from score_tand where Paper_ID = "&v_testid
set sr = server.CreateObject("adodb.recordset")

sr.open sql,conn,3.2
if not sr.eof then
v_usualrate = sr("UsualScoreRate")
else
v_usualrate = 0
end if
sr.close
set sr = nothing
%>

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
  <tr>
    <td width="100%">当前位置：<a href="news.asp">系统管理</a> <a href="adminremarkpaper.asp">评卷管理</a>&gt;平时成绩录入/修改</td>
  </tr>
</table>
<form  name="uform"ACTION="" METHOD="post">
<input name="radioPaperID" type="hidden" value="<%=v_testid%>">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%">
  
<div align="right"></div>
    <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
  <tr>
    <td height="20" colspan="7" align="center" bgcolor="#E1E1E1">平时成绩占总成绩比例
    
      <input name="markstand" type="text" value="<%=v_usualrate%>" size="2" maxlength="2" 
	   <% if v_usualrate <>0 then%>
	    readonly="readonly" <%end if%>>
	  <input name="paperID" type="hidden" value="<%=v_testid%>">
      %
    </td>
    </tr>
  <tr>
    <td width="46" align="center" bgcolor="#E1E1E1" height="20">　序号</td>
    <td width="65" align="center" bgcolor="#E1E1E1"><strong><font size="2">账号</font></strong></td>
    <td width="86" align="left" bgcolor="#E1E1E1"><div align="center"><font size="2"><b>考生姓名</b></font></div></td>
    <td width="162" align="left" bgcolor="#E1E1E1"><div align="center"><font size="2"><strong>所在学校</strong></font></div></td>
    <td width="142" align="left" bgcolor="#E1E1E1"><div align="center"><font size="2"><strong>所在院系</strong></font></div></td>
    <td width="119" align="left" bgcolor="#E1E1E1"><div align="center"><font size="2"><strong>所在班级</strong></font></div></td>
    <td width="90" align="left" bgcolor="#E1E1E1"><div align="center"><font size="2"><strong>平时成绩</strong></font></div></td>
    </tr>
  <% 



sql = "select * from test_user where Paper_ID like '%"&v_testid&"%'"
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
while not rs.eof
	PageCount=PageCount+1
	rs.movenext
wend
rs.close
set rs = nothing


set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
PageSize = 10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
'分页显示
If not Page >1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize
if  not rs.eof then

v_uid = rs("User_ID")
v_isTest = rs("isTest")

' to searach usually score of student from table student_score
 ussql = "select * from student_score where Paper_ID = "&v_testid&" and User_ID = "&v_uid&""
set usc = server.CreateObject("adodb.recordset")
usc.open ussql,conn,3,2

 v_uscore = usc("UsaScore")

 usc.close
 set usc = nothing
 
usql = "select * from user_info where UserID = "&v_uid
set urs = server.CreateObject("adodb.recordset")
urs.open usql,conn,3,2
if urs.eof then
v_account = "xxxxx"
v_userName= "xxxxx"
else
v_account = urs("UserAccount")
v_userName= urs("UserRname")
v_classID = urs("Class_ID")
v_depID = urs("Dep_ID")
v_collegeID = urs("College_ID")
end if
if v_isTest = 0 then
v_isTest = "未参加考试"
else
v_isTest = "已参加考试"
end if

urs.close
set urs = nothing
'根据class_ID 查找 班级
csql = "select * from class_info where ClassID = "&v_classID
set crs = server.CreateObject("adodb.recordset")
crs.open csql,conn,3,2
if crs.eof then
v_className ="xxxxx"
else
v_className = crs("ClassName")
end if
crs.close
set crs = nothing

' to serarch dep_name by v_depid from table department_info

dsql = "select * from department_info where DepID ="&v_depID
set drs = server.CreateObject("adodb.recordset")
drs.open dsql,conn,3,2
if drs.eof then
v_depName = "xxxxx"
else
v_depName = drs("DepName")
end if
drs.close
set drs = nothing

'to  serarch collegeName from table college_info by v_collegeID
usql = "select * from college_info where CollegeID ="&v_collegeID
set urs = server.CreateObject("adodb.recordset")
urs.open usql,conn,3,2
if urs.eof then
v_collegeName = "xxxxx"
else
v_collegeName = urs("CollegeName")
end if
urs.close
set urs = nothing


%>
  <tr>
    <td align="center" bgcolor="#E1E1E1"><%=i%></td>
    <td align="center"><a href="javascript:userinfo(<%=v_uid%>)"><%=v_account%>　</td>
    <td align="center"><%=v_userName%></td>
    <td align="center"><%=v_collegeName%></td>
    <td align="center"><%=v_depName%></td>
    <td align="center"><%=v_className%></td>
    <td align="center">
	
<input type="text" name="uscore" size="5" value="<%=v_uscore%>" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal" <% if v_uscore <>0 or v_uscore <>"" then%>
	    readonly="readonly" <%end if%>>
<input name="uid" type="hidden" value="<%=v_uid%>" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal">

	</td>
    </tr>
  <% 
  end if
rs.MoveNext
If rs.EOF Then Exit For

i=i+1
Next
%>
</table>
<%
sql = "select * from paper_info where PaperID = "&v_testid
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
v_psub = "yyyyy"
else
v_psub = rs("Sub_ID")
end if
rs.close
set rs = nothing

sql = "select * from teacher_subject where Teacher_ID = "&request.Cookies("userid")
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
v_usub = "xxxxx"
else
v_usub = rs("Sub_ID")
end if
rs.close
set rs = nothing

%>
<div align="right">
<% if v_psub = v_usub then %>
  <input name="submit" type="submit" id="submit"  onClick="saveit(this.form)" value="提  交" class="s02" >
  <%end if%>
</div>
</form>
<div ALIGN="right">
  <table>
    <form ACTION="<%=Myself%>?radioPaperID=<%=v_testid%>" METHOD="POST">
      <tr>
	          <td>
          <p ALIGN="right">
            <%If Page <> 1 AND Page <> 0 Then ' 如果不是位于第一页%>          
            <a href="<%=Myself%>?Page=1&radioPaperID=<%=v_testid%>">
          第一页</a>
          <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&radioPaperID=<%=v_testid%>">
          上一页</a>
		 
          <%                                      
End If                                         
If Page <> PageCount Then ' 如果不是位于最后一页                                         
%> <a HREF="<%=Myself%>?radioPaperID=<%=v_testid%>&Page=<%=(Page+1)%>">
          下一页</a>
          <a HREF="<%=Myself%>?Page=<%=PageCount%>&radioPaperID=<%=v_testid%>">
          最后一页</a> <% End If %> <font SIZE="2">输入页次:</font> <input NAME="Page" SIZE="3" CLASS="s01" >
          <font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=PageCount%></font></p>
        <p></td>
      </tr>
    </form>
  </table>
  <p align="left">注：点击帐 号查看该用户的详细信息</p>
</div>
</div>
</td>
</tr>

<%conn.close
set conn = nothing%>
</body>

</html>

enterscore.asp - 源码说明

本页面展示了「网络考试系统最终备份」中的 enterscore.asp 源码文件，采用 ASP 编程语言编写，共 269 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络考试系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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