📄 gwslyckxs.asp

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

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
 xsm=request("xsm")
 xh=request("xh")
 zybj=request("zybj")

 
  dim rs,rs1,rs2
 dim sql,sql1,sql2
 
 
  set rs2=server.createobject("adodb.recordset")
 sql2="select * from cjgk  where bh=1"
 rs2.open sql2,conn,1,1
 cjgk=rs2("cjgk")



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

 
  bjbh=rs1("bjbh")
bjbh="b"+cstr(bjbh)

  
    set rs=server.createobject("adodb.recordset")
    sql="select * from "&bjbh&" where xh='" + xh + "'"

  
  
  
  
 rs.open sql,conn,1,1

  if cjgk="否" then
  if xsm<>rs("xsmm") then

   rs.close
 set rs=nothing
   rs1.close
 set rs1=nothing
  rs2.close
 set rs2=nothing
 conn.close
 set conn=nothing
 
  %>
   <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor="#fef4d9">
  <p>
<form action=gwslyckxs.asp?xh=<%=xh%>&zybj=<%=zybj%> method=post>
  <div align=center><font align=center class=my4><b>【请输入密码】</b></font></div><p>

  <table width=243 border=0 bgcolor=#8800cc align=center cellspacing=1 cellpadding=4>
      <tr bgcolor=#FFcccc>
    <td width="81"> 
    <p align="center">密  　码
    <td width=114>
      <center><input type=password name="xsm" value="" size=16></center>
  </table>
    <p>
       <center><input type=submit value="提交" align=center></center>
  </form>
  <%
  else
   Server.Execute("gwslyck.asp")

  end if

else
   Server.Execute("gwslyck.asp")

 
 
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -