📄 mmxgxs1.asp

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

💻 ASP

字号:

<!--#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"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -