scf.asp

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

<!--#include file="conn.asp"-->
<%
 dim rs
 dim sql
 xh=request("xh")
   zybj=request("zybj")

 
 dim rs1
 dim sql1
 
 set rs1=server.createobject("adodb.recordset")
 sql1="select * from zybjmc where zybj='" + zybj + "'"
 rs1.open sql1,conn,3,3
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,3,3
rs2.delete
 rs2.close
 set rs2=nothing

 
 
 
 
 set rs=server.createobject("adodb.recordset")
 sql="select * from cxb where xh='" + xh + "'"
 rs.open sql,conn,3,3
 rs.delete
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 response.redirect("indexfb1.asp")
%>