jrsjgl.asp

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

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

<%






mm = request("mm")
 bh=request("bh")
  dim rs,rs1
 dim sql,sql1
  set rs=server.createobject("adodb.recordset")
 sql="select * from xxld where bh='" + bh + "'"
  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
if mm<>rs("mm") then	
		response.write"<script language='javascript'>" 
		 response.write"alert('密码不对!');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
rs.close
set rs=nothing

conn.close
set conn=nothing

 session("gws")=true 
     response.redirect("xjglyck.asp?dm="&bh&"")
%>

⌨️ 快捷键说明

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