<% if not theUser.admin then connclose() response.redirect ("index.asp") end if dim name,pass, exec, rs, x dim RecordCount,pageCount,page, maxid name=encodestr(request.form("name")) pass=encodestr(request.form("pass")) main() sub main() rcperPage=40 page=request.querystring("page") if page="" or not isNumeric(page) then page=1 else page=int(page) end if exec="select top 1 userNum from GBconst" set rs=conn.execute(exec) if not rs.eof then RecordCount=rs("userNum")-1 end if pageCount=getPageCount(pageCount,recordCount,rcPerPage) page=getPage(page,pageCount) if page<=1 then exec="select top "& rcPerPage &" username,userid,gbuserclass from [user] where username<>'"& theUser.name &"' order by userid desc" else exec="select top 1 userid from [user] where userid in( select top "& rcPerPage*(Page-1) &" userid from [user] where username<>'"& theuser.name &"' order by userid desc) order by userid asc" set rs=conn.execute(exec) maxid=rs(0) exec="select top "& rcPerPage &" username,userid,gbuserclass from [user] where username<>'"& theUser.name &"' and userid<"& maxid &" order by userid desc" end if set rs=conn.execute(exec) %> <% i=0 do while not rs.eof response.write "" else response.write "" end if rs.movenext loop %>

· 本 留 言 本 所 有 保 留 用 户 · (不包括您)

"& rs("username") &" [修改" if rs("gbuserclass")=1 or rs("gbuserclass")=2 then response.write "" end if response.write " 删除]" i=i+1 if i mod 4=0 then response.write "

<% rsclose() connclose() response.write pageList() end sub %>