<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>
<%


userid=trim(request("userid"))
pwd=trim(request("pwd"))

tname=trim(request("tname"))
email=trim(request("email"))
nianji=trim(request("nianji"))
banji=trim(request("banji"))

   Set rs=Server.CreateObject("Adodb.RecordSet")
 sql="select * from tbuser where userid="&userid
   rs.open sql,conn,1,3
 
   rs("pwd")=pwd
   rs("tname")=tname
      rs("email")=email
      username=rs("username")
  if  nianji<> rs("nianji") then   
   flag=1
  end if
  
  if  banji<> rs("banji") then   
   flag=1
  end if
  
      rs("nianji")=nianji
      rs("banji")=banji
   rs.update
 
 if flag=1 then
   set rs2=server.createobject("adodb.recordset")
  sql2="select * from tbistest  where username='"&username&"'"
  rs2.open sql2,conn,3,2

  do while not rs2.eof  
  rs2.delete
  rs2.update
  rs2.movenext
  loop
  
  set rs3=server.createobject("adodb.recordset")
  sql3="select * from tbscore  where username='"&username&"'"
      rs3.open sql3,conn,3,2

  do while not rs3.eof  
  rs3.delete
  rs3.update
  rs3.movenext
  loop
  
      set rs8=server.createobject("adodb.recordset")
  sql8="select * from userdataread  where username='"&username&"'"
    rs8.open sql8,conn,3,2

  do while not rs8.eof  
  rs8.delete
  rs8.update
  rs8.movenext
  loop
  
    set rs7=server.createobject("adodb.recordset")
  sql7="select * from userdata  where username='"&username&"'"
    rs7.open sql7,conn,3,2

  do while not rs7.eof  
  rs7.delete
  rs7.update
  rs7.movenext
  loop
end if

if flag=1 then
   Response.Redirect "adminuseredit.asp?userid="&userid&"&error=修改成功！"
else
   Response.Redirect "adminuseredit.asp?userid="&userid
end if

%>