<% if request("action")="del" then delsql="delete * from [user] where id="&request("id") conn.execute(delsql) end if %> <% if request("id")<>"" then updatesql="select * from [user] where id="&request("id") set rs=server.CreateObject("adodb.recordset") rs.open updatesql,conn,1,3 if rs.bof and rs.eof then response.Write("") else rs("password")=request("pass") rs.update end if rs.close set rs=nothing end if %>
     
   
 
 
<%set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where Purview=0 order by id asc",conn,1,1 if rs.bof and rs.eof then response.Write("") else do while not rs.eof %> <% rs.movenext loop end if rs.close set rs=nothing %>
会员名称 会员密码
<%=rs("username")%>
" /> " /> ">Del