gwslyckxs.asp

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

ASP
78 行
字号 
<!--#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
%>

gwslyckxs.asp - 源码说明

本页面展示了「学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁」中的 gwslyckxs.asp 源码文件，采用 ASP 编程语言编写，共 78 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与学生成绩管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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