<%
  strdate=Request("strdate")
	strtype=Request("strtype")
	StrGrade=Request("StrGrade")
  strId=request("id")
  
'检查权限
       tname=request.cookies("tname") 
       Set MyOAASPObj= Server.CreateObject("YFSchoolOApro.YFSchoolDll")
           if MyOAASPObj.QuanXian(tname,"修改班务日志")=0 then 
		    response.redirect  "../NoPower.asp"
           end if 
		   set MyOAASPObj=nothing

'检查权限结束
 
 
   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro.YFSchoolDll")
       call    MyOAASPObj.DelTableRecord("banwurizhi","id",strID)
       set MyOAASPObj=nothing	
      
   
   response.redirect   "OneBWPBmingxi.asp?strGrade="&strGrade&"&strtype="&strtype&"&strdate="&strdate
 %>