xsxgmm.asp
来自「学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁」· ASP 代码 · 共 39 行
ASP
39 行
<!--#include file="conn.asp"-->
<%
dim rs,rs2
dim sql,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from cjgk where bh=2"
rs2.open sql2,conn,1,1
cjgk=rs2("cjgk")
set rs=server.createobject("adodb.recordset")
sql="select * from cxb where xh='" + xh + "'"
rs.open sql,conn,1,1
if cjgk="否" then
%>
<body topmargin=0 leftmargin=0 rightmargin=0 bgcolor="#FFFFFF" background="BG01.gif">
<p><center>
.................................................
<P>
<div align=center><font align=center class=my4><b>【对不起,学校不准修改密码】</b></font></div>
<P>
<%
rs.close
set rs=nothing
rs2.close
set rs2=nothing
conn.close
set conn=nothing
else
Server.Execute("xsfbxgmm.asp")
end if
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?