%@ LANGUAGE = VBScript.Encode %> <% Response.CacheControl = "no-cache" %> <% if request("pageno")<>"" then pageno=request("pageno") else pageno=1 end if if request("usergroup")<>"" then usergroup=num(request("usergroup")) else usergroup=-1 end if if num(usergroup)<>-1 then if num(session("usergroup"))=2 then ' sql2=" and usergroup="&usergroup&" and oid1="&num(session("oid1"))&" and id<>"&num(session("userid")) ' elseif num(session("usergroup"))=3 then ' sql2=" and usergroup="&usergroup&" and oid2="&num(session("oid2"))&" and id<>"&num(session("userid")) sql2=" and usergroup="&usergroup&" and oid1="&num(session("oid1")) else sql2=" and usergroup="&usergroup&" and oid1="&num(session("oid1")) end if else if num(session("usergroup"))=2 then ' sql2=" and usergroup>="&session("usergroup")&" and oid1="&num(session("oid1"))&" and id<>"&num(session("userid")) ' elseif num(session("usergroup"))=3 then ' sql2=" and usergroup>="&session("usergroup")&" and oid2="&num(session("oid2"))&" and id<>"&num(session("userid")) sql2=" and oid1="&num(session("oid1")) else sql2=" and oid1="&num(session("oid1")) end if ' sql2=" and usergroup >="&session("usergroup") end if if request("sch")<>"" then sql3=" and name like '%"&request("sch")&"%'" end if if session("usergroup")<>"" then parent=request("parent") '======================save user page============================================ if request("Save")<>"" then PageSize=50 set RS= Server.CreateObject("ADODB.Recordset") set RSUpdate= Server.CreateObject("ADODB.Recordset") sql1 = "Select * From [user] where status=0 "&sql2&sql3&" order by usergroup asc" RS.Open sql1, MM_data_STRING ,1 ,1 D=1: While not rs.eof and D <= PageSize if request.Form("UId_"&d)<>"" then sql1 = "Select * From QA_saveuser where userid="&request.Form("UId_"&d)&" and gid="&request.Form("gid") RSUpdate.Open sql1, MM_data_STRING ,1 ,3 if RSUpdate.eof then RSUpdate.addnew end if RSUpdate("gid")=request("gid") RSUpdate("userid")=request.Form("UId_"&d) RSUpdate("groupcode")=request.Form("UserGroup_"&d) RSUpdate.update RSUpdate.close() else if request.Form("UId2_"&d)<>"" then sql1 = "delete From QA_saveuser where userid="&request.Form("UId2_"&d)&" and gid="&request.Form("gid") RSUpdate.Open sql1, MM_data_STRING ,1 ,3 end if end if d=d+1 rs.movenext wend RS.close() set RS=nothing set RSUpdate=nothing response.Write("") end if '======================================================================================== if request("pageno")<>"" then pageno=request("pageno") else pageno=1 end if set RS= Server.CreateObject("ADODB.Recordset") '========delete error ==================== sql1="delete from QA_saveuser where userid not in(select id from [user]) " RS.Open sql1, MM_data_STRING ,2 ,3 '============================= sql1 = "Select * ,(select top 1 groupname from usergroup where groupcode=[user].usergroup) as groupname "&_ ",(select top 1 gid from QA_saveuser where userid=[user].id and gid="&request("gid")&") as gid ,(select count(gid) from QA_saveuser where gid="&request("gid")&") as membertotal " &_ "From [user] where status=0 "&sql2&sql3&" order by usergroup asc" RS.Open sql1, MM_data_STRING ,1 ,1 PageSize=35 '˹ʴŵ 1 ˹ if Request.QueryString("PageNo")="" then PageNo=1 else PageNo=cint(Request.QueryString("PageNo")) end if If Not RS.EOF Then '' TotalRows = RS.recordcount : RS.PageSize =50 '' TotalPage = RS.PageCount : PageSize = 50 '' RS.AbsolutePage =PageNo '' else '' TotalRows=0 :TotalPage=1 '' end if rs.PageSize=PageSize '˹Ҵҹŵ 1 ˹ PageCount=cint(rs.PageCount) 'Ѻӹǹ˹ҷǷ rs.AbsolutePage=PageNo '˹ Rs ԴŨҡ˹ҷ ' ================== ǧ 2 ================== end if %>
|
|||||||||||||||||||||||||
h<ݸ9:#|V5)\]wDGj#$,ul#uP9 6囜ni.T6:|p7`pIhv`N~\a}3CգNOaC-) df
F3N#]Hw*;Ly1@