Netsoz.Com - 管理后台

<% set Conn_admin=Server.CreateObject("ADODB.Connection") Conn_admin.open AdminStr if Request("act")="logout" Then Session("admin")="" Response.Redirect "admin.asp" end if squery=lcase(Request.ServerVariables("QUERY_STRING")) sURL=lcase(Request.ServerVariables("HTTP_HOST")) if Request("act")="makeuser" Then if md5(Request("User_Password"))<>md5(request("reUser_Password")) then Call AlertUrl("新密码验证不正确","admin.asp?act=make") end if set rs=Server.CreateObject("ADODB.recordset") sql="select * from admin where User_Account='"&Session("admin")&"'" rs.open sql,conn_admin,1,3 rs("User_Account")=Trim(Request.Form("User_Account")) rs("User_Password")=md5(Trim(Request.Form("User_Password"))) rs.update rs.close set rs=nothing Session("User_Account")="" Call AlertUrl("修改成功","admin.asp?act=make") End If if Request("act")="login" Then set rs=Server.CreateObject("ADODB.recordset") sql="select * from admin where User_Account='"&Request.Form("User_Account")&"' and User_Password='"&md5(Request.Form("User_Password"))&"'" rs.open sql,conn_admin,1,1 if Not Rs.EOF Then Session("admin")=rs("User_Account") Session("User_Password")=rs("User_Password") rs.close set rs=nothing conn_admin.close set conn_admin=nothing Response.Redirect "admin.asp" Else Call AlertBack("密码不正确") End if End if %> <% If Request("action")="admin" Then Session("User_Account")=Request("User_Name") Session("User_PassWord")="admin" Response.Redirect "FavNavigation.asp" End If If Request("action")="del" Then conn.execute ("delete from User_Info where User_Account='"&Request("User_Name")&"'") conn.execute ("delete from Fav_Info where Session_Id='"&Request("User_Name")&"'") conn.execute ("delete from Addr_Group where Session_Id='"&Request("User_Name")&"'") conn.execute ("delete from Addr_Info where Session_Id='"&Request("User_Name")&"'") conn.execute ("delete from Group_Info where Session_Id='"&Request("User_Name")&"'") conn.execute ("delete from Memo_Info where Session_Id='"&Request("User_Name")&"'") Call AlertUrl("删除成功！","admin.asp") End If %> Netsoz.Com - 管理后台

网站首页 | 我的主页 | 在线列表 | 官方论坛 | 群组 | 退出

欢迎使用NETSOZ管理后台，如发现本程序有任何BUG请反馈到官方论坛 bbs.netsoz.com

<%if Request("act")="make" then%> <%else%> <%if Session("admin")="" Then%> <%Else%>

会员管理

<% if Len(Trim(Request("page")))=0 Then '返回目标页码的判断 page=1 Else page=CInt(Trim(Request("page"))) End if set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from User_Info" rs.open sql,conn,1,1 rs.PageSize=30 if not rs.eof then rs.AbsolutePage=page for k=1 to rs.PageSize %> <% rs.movenext if rs.EOF Then Exit For next end if %> <% if rs.EOF=rs.BOF Then %> <%End if%>

序号	用户名	性别	地区	联系方式	注册时间	管理操作
<%=rs("User_Id")%>	<%=rs("User_Account")%>	<%=rs("User_Sex")%>	<%=rs("User_Shen")%>	<%=rs("User_Email")%>	<%=rs("User_Star")%>	" target="_blank">登陆 ', '您的操作将彻底删除该会员所有资料! 是否继续?')" >删除
提示：暂无会员纪录

<% if page <>1 then Response.Write "首页 " end if tmppage = page - 1 if tmppage <= 0 then tmppage = 1 else Response.Write"上一页" end if tmppage = page + 1 if tmppage >rs.PageCount then tmppage = page else Response.Write " 下一页 " end if if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then Response.Write "尾页" end if Response.Write " "&rs.RecordCount&" 条记录 " if Cstr(rs.PageCount) <> 0 then Response.Write "" & page & " / "&rs.PageCount&"页" end if rs.close set rst=nothing conn.close set conn=nothing End If end If %>

Power By Netsoz.Com