% '检查用户权限 call checkuser("管理员管理") %>
<% strID=GetVariable("id") if strID="" then else '取指定ID的新闻出来编辑 strSQL="select * from web_admin where ID=" & strID set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL,conn,1,1 strUserName=trim(rs("LoginName")) strRealName=trim(rs("RealName")) 'strPassWord=trim(rs("PassWord")) strLimit=trim(rs("Limit")) rs.close end if %>