kedeletez.asp

来自「关于学生成绩的管理系统」· ASP 代码 · 共 17 行

<title>删除课表</title>
<!--#include file="conn.asp"-->   
        <%
        zhuanye=request("zhuanye")    
         set rs=server.CreateObject("adodb.recordset")  
         sqlstr="select * from 课程  where zhuanye='"+zhuanye+"'"
         rs.open sqlstr,conn,3,2             
         if not rs.eof then
		   rs.delete
           rs.update             
          end if        
         rs.close
		  set rs=nothing
         set conn=nothing
		 response.Redirect"keupdatecha.asp"
		    %>