scbj.asp

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

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

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

  dim rs1
 dim sql1
 
 
 set rs1=server.createobject("adodb.recordset")
 sql1="select * from xf where zybj='" + zybj + "'"
 rs1.open sql1,conn,3,3

  dim rs2
 dim sql2

key="b"+cstr(bjbh)

 
 set rs2=server.createobject("adodb.recordset")
 sql2="drop table "&key&""
  rs2.open sql2,conn,3,3

 
 
 rs.delete
 rs.close
 set rs=nothing
 
 rs1.delete
 rs1.close
 set rs1=nothing
 
 

 dim rs3
 dim sql3
 set rs3=server.createobject("adodb.recordset")
 sql3="select * from cxb where zybj like '%"&zybj&"%'"
 rs3.open sql3,conn,3,3
 totaln=rs3.recordcount

 rs3.close
 set rs3=nothing
 jsj=0
do while jsj<totaln

  set rs3=server.createobject("adodb.recordset")
 sql3="select * from cxb where zybj='" + zybj + "'"
 rs3.open sql3,conn,3,3
 rs3.delete
 rs3.close
 set rs3=nothing
jsj=jsj+1
loop
 
 
 set rs4=server.createobject("adodb.recordset")
 sql4="select * from js where zybj='" + zybj + "'"
 rs4.open sql4,conn,3,3
 rs4.delete
 rs4.close
 set rs4=nothing

 set rs5=server.createobject("adodb.recordset")
 sql5="select * from xg where zybj='" + zybj + "'"
 rs5.open sql5,conn,3,3

  rs5.delete
 rs5.close
 set rs5=nothing

 
 
 
 
 
 
 
 conn.close
 set conn=nothing
 response.redirect("findbj.asp")
%>