<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="../SQLconn.asp"-->
<%

 '检查权限
       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

'检查权限结束


   dim sql 
   dim strID
   dim RsDel 
   strpowdergroup=request("powdergroup")
   strId=request("id")
   set RsDel=server.createobject("adodb.recordset")
   sqlDel="update teachers set TPassWord='888'  where tid='"&strId& "'"
   RsDel.open sqlDel,conn,1,1
   RsDel.close
   
    
   
   set RsDel=nothing  
   conn.close
   set conn=nothing
   response.redirect   "userlist.asp?powdergroup="&strpowdergroup
 %>