lrglsx.asp

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

<!--#include file="conn.asp"-->
<%
zybj = request("zybj")
s = request("s")



 set rs1=server.createobject("adodb.recordset")
 sql1="select * from zybjmc where zybj='" + zybj + "'"
 rs1.open sql1,conn,1,1
bjbh=rs1("bjbh")


 rs1.close
 set rs1=nothing


bjbh="b"+cstr(bjbh)
sqlmax="SELECT max(xh) from "&bjbh&"" 
set rsmax=server.createobject("adodb.recordset")
rsmax.Open Sqlmax,conn,1,1

jsmax=rsmax(0)
 rsmax.close
 set rsmax=nothing
  response.redirect("lrgl.asp?zybj="&zybj&"&s="&s&"&jsmax="&jsmax&"")

%>