jsbjcjlr.asp

来自「学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁」· ASP 代码 · 共 40 行

ASP
40
字号
<%@ language=vbscript %>
<!--#include file="conn.asp"-->
<%  

dm=request("dm")


  if Session.Contents("dm")=dm then
zybj=request("zybj")
dm=request("dm")

bjbh=request("bjbh")
mc=request("mc")
sj=request("sj")
  set rs=server.createobject("adodb.recordset")
 sql="select * from zybjmc where zybj='" + zybj + "'"
 rs.open sql,conn,1,1

 set rs2=server.createobject("adodb.recordset")
 sql2="select * from js where zybj='" + zybj + "'"
 rs2.open sql2,conn,1,1
 
 set rs1=server.createobject("adodb.recordset")
 sql1="select * from xg where zybj='" + zybj + "'"
 rs1.open sql1,conn,1,1

 
  if dm=cstr(rs2(sj)) and rs1(sj)=1 then
  
   response.redirect("jsbjcjl.asp?bjbh="&bjbh&"&dm="&dm&"&zybj="&zybj&"&mc="&rs(sj)&"&sj="&sj&"")
  
else
%>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<p align="center">对不起,你不能修改这门课的成绩! </p>
<%
end if

end if
%>

⌨️ 快捷键说明

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