<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if session("USER_NAME")="" then response.write "" response.end end if %> <% dim db,trs Set db=new Connections set trs=server.CreateObject("adodb.recordset") sql="select * from admin_user order by USER_RATING" set trs=db.Query (sql,1) if trs.eof then response.Write("") response.End() end if %> <% do while not trs.eof and trs("USER_RATING")<>"manager" %> <% trs.movenext loop %>

管 理 员 修 改
用户名	密码	管理权限	操作	操作
">	">	"><% if trs("USER_RATING")="en" then response.Write "英文管理" elseif trs("USER_RATING")="ch" then response.Write "中文管理" end if %> ">--选择权限-- 英文管理 中文管理	<%if trs("user_name")<>"admin" then%><%end if%> ">	<%if trs("user_name")<>"admin" then%>" value="删除" onClick="cdel(this.alt,this.name);"><%end if%>