📄 sturusinadd.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>红笛软件</title>
<STYLE TYPE="text/css">
<!--

.style21 {
	color: #FFFFFF;
	font-weight: bold;
	font-size: 12px;
}
body,td,th {
	font-size: 12px;
}
body {
	background-image: url(../Image/bg.gif);
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.B A:link {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.STYLE22 {color: #000000; font-weight: bold; font-size: 12px; }
-->
</STYLE>
</head>
<body>
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
  </tr>
  <tr>
    <td height="28" align="center" valign="middle" background="../Image/bg01a.jpg"><span class="STYLE9"><div class="b"> <a href="index.asp">导入成绩</a> | <a href="index2.asp">直接录入</a> | <a href="index3.asp">成绩审核</a> | <a href="index4.asp">生成登分表 </a></div>
    </span></td>
  </tr>
  <tr>
    <td height="600" align="center" valign="top" bgcolor="#3399fd"><p>&nbsp;</p>
    <table width="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  
        <tr><td height="25" align="center" background="../Image/bg01.jpg" bgcolor="#003399" class="STYLE22">提交的学号分数列表</td>
        </tr>
      <tr> <td height="30" align="left">
        <%


Cla=request.QueryString("Cla")
XQ=request.QueryString("XQ")
Kc=request.QueryString("Kc")
Teach=request.QueryString("teach")
RusNam=request.form("La")
kcID=request.QueryString("ID")
QQ=Session("QQ")


for k=1 to QQ
IDs="L"& k

F="F"& k

StuID=request.form(IDs)
Fs=request.form(F)
Fs=Fs*1


Set rs=Server.Createobject("Adodb.RecordSet")
sql = "Select * From [StuRus] where a="& StuID &" and d='"& Kc &"' and g='"& RusNam &"'"
rs.Open sql,Connkaa,1,3
if rs.Eof then
rs.addNew
rs("a") = StuID'学号
rs("b") = Cla '班级
rs("c") = XQ '学期
rs("d") = Kc  '课程
rs("e") = Teach   '教师
rs("f") = Fs   '分数
rs("g") =  RusNam '成绩名
rs("h") = "未审核"
rs("i") = kcID
rs("nam") = Session("AdminUser")
rs("tim") = now()
rs.Update
response.write "　　　学生:"
call stuNam(StuID)
response.write "　　分数:"& Fs &"　成功录入。<br>" 
else
response.write "****　学生:"
call stuNam(StuID)
response.write "　　分数:"& Fs &"　以前已经录入过了，不能重复录入。<br>" 
end if
rs.Close
Set rs=Nothing

next


sub stuNam(ID)
ID=ID*1
Set ro=Server.Createobject("Adodb.RecordSet")
sqlo = "Select * From [Student] where ID=" & ID
ro.Open sqlo,Connkaa,1,3
roc=ro("c")
response.write roc
ro.Close
Set ro=Nothing
end sub
%>

    
    
     </td></tr><tr> <td height="25" align="left" background="../Image/bg01.jpg" bgcolor="#003399">&nbsp;</td> 
     </tr> </table>
   
</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" bgcolor="#3399FD">&nbsp;</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
</table>

</body>
</html>
⌨️ 快捷键说明

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