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 + -
显示快捷键?