bzrmmxgxs.asp

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

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

<%
glymm = request("xsmm")
xxsmm1 = request("xxsmm1")
xxsmm2 = request("xxsmm2")
 zybj=request("zybj")

 
 dim rs
 dim sql
  set rs=server.createobject("adodb.recordset")
 sql="select * from zybjmc where zybj='" + zybj + "'"
 rs.open sql,conn,3,3
 xsmm1 = request("xsmm")

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 glymm<>rs("glymm") then	
		response.write"<script language='javascript'>" 
		 response.write"alert('密码不对!');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if xxsmm1<>xxsmm2 then	
		response.write"<script language='javascript'>" 
		 response.write"alert('两次输入的密码不一样!');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if

 conn.execute("update [zybjmc] set glymm='"&xxsmm1&"' WHERE zybj='"&zybj&"'")
   conn.close
 set conn=nothing

%>
 
<center> <p> </p>
<p>密码修改成功!</center>

⌨️ 快捷键说明

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