mmxgxs1.asp

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

ASP
57 行
字号 
<!--#include file="conn.asp"-->
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">

<%

xsmm = request("xsmm")
xh=request("xh")
  dim rs
 dim sql
  set rs=server.createobject("adodb.recordset")
 sql="select * from cxb where xh='" + xh + "'"
 rs.open sql,conn,1,1
 
if rs.eof then	
		response.write"<script language='javascript'>" 
		 response.write"alert('没有此学号！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if

zybj=rs("zybj")
 rs.close
 set rs=nothing

  dim rs1
 dim sql1
  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)
 rs1.close
 set rs1=nothing
 dim rs2
 dim sql2
  set rs2=server.createobject("adodb.recordset")
 sql2="select * from "&bjbh&" where xh='" + xh + "'"
 rs2.open sql2,conn,1,1

if xsmm<>rs2("xsmm") then	
		response.write"<script language='javascript'>" 
		 response.write"alert('密码不对！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if

 if xsmm=rs2("xsmm") then
   session("gwsly")=true
  else 
   session("gwsly")=false
  end if


  
%><!--#include file="lyfind0.asp"-->

mmxgxs1.asp - 源码说明

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

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

⌨️ 快捷键说明

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