权限不足！") end if call view elseiF Request.QueryString("Action")="del" Then if KEYid<>1 then Call Error("

权限不足！") end if call del elseiF Request.QueryString("Action")="edit" Then if KEYid<>1 then Call Error("

权限不足！") end if call edit elseiF Request.QueryString("Action")="add" Then if KEYid<>1 then Call Error("

权限不足！") end if call add elseiF Request.QueryString("Action")="save" Then if KEYid<>1 then Call Error("

权限不足！") end if call save else call index end if Function index%>

<% Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT * FROM adminguli order by id asc" Rs.Open Sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage,parent gopage="adminguli.asp?sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For if rs("key")=2 then keyname="文章管理员" if rs("key")=3 then keyname="图片管理员" if rs("key")=0 then keyname="超级管理员" %><%=i+(page-1)*PageSize%>.<%=keyname%><%=ubb(rs("username"))%><%if rs("id")=1 then%>站长<%end if%>
上次管理:<%=ubb(fordate(rs("lastdate")))%>
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页>>" Else %> (没有管理) <%end if%> <% Rs.close set rs=nothing Response.Write("
[添加管理]
") Response.Write("[修改帐号]
") end Function Function add%>

用户:

密码:

高密:

管理范围:
超级管理员 文章管理员 图片管理员
添加
[设定管理]
<% end Function Function edit id=TRim(Request("id")) if not isnumeric(id) then id="" if id="" then%>

ID无效.
<%else Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT * FROM adminguli where id="&id Rs.Open Sql,conn,1,1 if not (rs.bof and rs.eof) then %>

用户:
" maxlength="255" />
密码:

高级密码:

<%if id<>1 then%> 管理范围:
"> 超级管理员 文章管理员 图片管理员 <%end if%>
修改 <%if id<>1 then%> <%end if%>
提示:修改管理员将会提示重新登录.
[设定管理]
<%else%>

没有该管理!
<%end if Rs.close set rs=nothing end if end Function Function view id=TRim(Request("id")) if not isnumeric(id) then id="" if id="" then%>

ID无效.
<%else%>

<% Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT * FROM adminguli where id="&id Rs.Open Sql,conn,1,1 if not (rs.bof and rs.eof) then %> 用户:<%=ubb(rs("username"))%>
密码:<%=ubb(rs("password"))%>
高密:<%=ubb(rs("twapp_admin"))%>
上次管理:<%=ubb(fordate(rs("lastdate")))%>
上次IP:<%=ubb(rs("lastip"))%>
[编辑] [删除]
[设定管理]
<%else%> 暂无管理!
<%end if Rs.close set rs=nothing end if end Function Function del id=TRim(Request("id")) if not isnumeric(id) then id="" if id="" then%>

ID无效.
<%else if Request("del")="true" then set rs=server.CreateObject("adodb.recordset") Sql = "SELECT * FROM adminguli where id="&id rs.open sql,conn,1,3 if not (rs.bof and rs.eof) then if id=1 then Call Error("

站长不能删除！") end if rs.delete end if Rs.close set rs=nothing%>

已成功删除该管理员!
[设定管理]
<%else%>

是否要删除该管理员?
[确定删除]
返回上页
[设定管理]
<%end if end if end Function Function save username=Trim(Request("username")) password=Trim(Request("password")) password2=Trim(Request("password2")) key=Trim(Request("key")) id=clng(Request("id")) if id<>1 then if key="" or isnumeric(key) =false then Call Error("管理范围无效！") end if end if if username="" then errmsg=errmsg&"管理名称不能为空
":flag=0 if password="" then errmsg=errmsg&"管理密码不能为空
":flag=0 if password2="" then errmsg=errmsg&"管理高级密码不能为空
":flag=0 if Request("edit")="edit" then if id="" then errmsg=errmsg&"ID无效
":flag=0 set rs=Server.CreateObject("ADODB.Recordset") rs.open"select ID from adminguli where username='"&username&"' and id<>"&id,conn,1,1 if not rs.eof then errmsg=errmsg&"管理员用户名已被使用
":flag=0 end if rs.close set rs=nothing if flag<>"0" then set rs=server.CreateObject("adodb.recordset") sql="select * from adminguli where id="&id rs.open sql,conn,1,3 if rs.eof then errmsg=errmsg&"ID无效
":flag=0 end if rs("username")=username rs("password")=md5(md5(password,16),32) rs("twapp_admin")=md5(md5(password2,16),32) if ID<>1 then rs("key")=key end if rs("sid")=siddd rs.update() Rs.close set rs=nothing%>

修改管理成功

[设定管理]
<%else Response.Write("

") Response.Write(""&errmsg&"
[返回修改]
") end if else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select ID from adminguli where username='"&username&"' and id<>"&id,conn,1,1 if not rs.eof then errmsg=errmsg&"管理员用户名已被使用
":flag=0 end if rs.close set rs=nothing if flag<>"0" then set rs=server.CreateObject("adodb.recordset") sql="select * from adminguli" rs.open sql,conn,1,3 rs.addnew() rs("username")=username rs("password")=md5(md5(password,16),32) rs("twapp_admin")=md5(md5(password2,16),32) rs("sid")=siddd rs("key")=key rs.update() Rs.close set rs=nothing%>

添加管理成功

[设定管理]
<%else Response.Write("

") Response.Write(""&errmsg&"
[返回修改]
") end if END IF end Function%> [后台管理]