📄 xsxgmm.asp

📁 学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁

💻 ASP

字号:

<!--#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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -