admin.asp

用ASP写的一个论坛的程序 数据库是ACCESS 很简单

<!-- #include file="conn.asp" -->
<!-- #include file="kzsub.asp" -->
<link href="css/index.css" rel="stylesheet" type="text/css">

贴吧会员管理
<hr>
      <%
	  	if session("username")="" then
		response.Redirect("http://"&request.ServerVariables("SERVER_NAME"))
		end if
	 
		set rs=server.createobject("adodb.recordset")
		sql="select  * from  users where username = '"& session("username") &"'"
		rs.open sql,conn,1,1
		if rs.eof=false then
	        email=rs("email")
			addr=rs("addr")
			password=rs("password")
			regtime=rs("regtime")
			ip=rs("ip")
			session("username")=rs("username")
			session("ql")=rs("tiebaname")
			rs.close
			set rs=nothing
		end if
	  %>
<table width="100%"  border="0">
  <tr>
    <td width="150"><table width="150" height="176"  border="1" cellpadding="0" cellspacing="0" bordercolor="#99CCFF">
      <tr>
        <td height="23" bgcolor="#99CCFF">&nbsp;</td>
      </tr>
      <tr>
        <td height="130" valign="top"><table width="100%"  border="0" align="center">
          <tr>
            <td><%=session("username")%>会员</td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td><a href="admin.asp?ac=show" target="_self">基本资料</a></td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td><a href="admin.asp?ac=change">修改密码</a></td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
		
            <td><a href="admin.asp?ac=showuser&dtable=users&fs=ip" target="_self"  >查看用户</a></td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF"><a href="admin.asp?ac=showadmin&dtable=users&fs=ip">查管理员</a></td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF">查看贴吧</td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF">删除贴吧</td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF">删除管理员</td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF">删除贴子</td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td><a href="admin.asp?ac=sq" target="_self">受权用户</a></td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td><a href="admin.asp?ac=showdel" target="_self">删除用户</a></td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td><a href="action.asp?ac=tc" target="_self">退出管理</a></td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td>帮助中心</td>
          </tr>
          <tr>
            <td bgcolor="#F7F3F7">&nbsp;</td>
          </tr>
          <tr>
            <td>版权信息</td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td bgcolor="#99CCFF">&nbsp;</td>
      </tr>
    </table></td>
    <td width="100%" valign="top" bgcolor="#F7F3F7">
	<%
	if strcomp(request.QueryString("ac"),"show")=0 then
	call show()
	end if
	
    if strcomp(request.QueryString("ac"),"change")=0 then
	call cshow()
	end if
	if strcomp(request.QueryString("ac"),"cdo")=0 then
	call cdo()
	end if
	if strcomp(request.QueryString("ac"),"sq")=0 then
	    if strcomp(session("ql"),"all")=0  then
			call sq()
		end if
		if strcomp(session("ql"),"all")<>0  then
			response.Write("你没有权利受权!")
		end if
	end if
	if strcomp(request.QueryString("ac"),"showdel")=0 then
	    if strcomp(session("ql"),"all")=0  then
			call showdel()
		end if
		if strcomp(session("ql"),"all")<>0  then
			response.Write("你没有权利受权!")
		end if
	end if
	if strcomp(request.QueryString("ac"),"sqdo")=0 then
	call sqdo()
	end if

	if strcomp(request.QueryString("ac"),"admindel")=0 then
	call admindel()
	end if
	if strcomp(request.QueryString("ac"),"showuser")=0 then
		dtable=request.QueryString("dtable")
		fs=request.QueryString("fs")
		msgtxt="<a href=admin.asp?ac=showuser&dtable=users&fs=ip>按IP地址查看</a>"
		msgtxt=msgtxt &  "&nbsp;&nbsp;|&nbsp;&nbsp;<a href=admin.asp?ac=showuser&dtable=users&fs=regtime>按时间查看</a>"
		call chakan(dtable,fs,"admin.asp?ac=showuser&dtable="&dtable&"&fs="&fs&"&",msgtxt,0)
	end if
	if strcomp(request.QueryString("ac"),"showadmin")=0 then
		dtable=request.QueryString("dtable")
		fs=request.QueryString("fs")
		msgtxt="<a href=admin.asp?ac=showadmin&dtable=users&fs=ip>按IP地址查看</a>"
		msgtxt=msgtxt &  "&nbsp;&nbsp;|&nbsp;&nbsp;<a href=admin.asp?ac=showadmin&dtable=users&fs=regtime>按时间查看</a>"
		call chakan(dtable,fs,"admin.asp?ac=showadmin&dtable="&dtable&"&fs="&fs&"&",msgtxt,1)
	end if
	%>
<br>

    	
	</td>
  </tr>
</table>
<%
sub show()
%>
<table width="100%"  border="0">
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>用户名:<%=session("username")%></td>
      </tr>
      <tr>
        <td>密码:<%=password%></td>
      </tr>
      <tr>
        <td>email:<%=email%></td>
      </tr>
      <tr>
        <td>地址:<%=addr%></td>
      </tr>
      <tr>
        <td>注册时间:<%=regtime%></td>
      </tr>
      <tr>
        <td>注册IP:<%=ip%></td>
      </tr>
      <tr>
        <td>管理的贴吧:<%=session("ql")%></td>
      </tr>
</table>
<%
end sub
%>
<% sub cshow %>
<form name="form1" method="post" action="admin.asp?ac=cdo">
      <table width="100%"  border="0">
        <tr>
          <td width="14%">新密码:</td>
          <td width="86%"><input type="password" name="p1"></td>
        </tr>
        <tr>
          <td>新密码:</td>
          <td><input type="password" name="p2"></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td><input type="submit" name="Submit" value="提交">
            <input type="reset" name="Submit" value="重置"></td>
        </tr>
      </table>
</form>
<%end sub%>
<%
sub cdo()
	set rs=server.createobject("adodb.recordset")
	sql="select  password from  users where username = '"& session("username") &"'"
	rs.open sql,conn,1,3
	if rs.eof=false then		   
		rs("password")=request.Form("p1")
		rs.update
		rs.close
		set rs=nothing
		response.Write("o k")
    end if
end sub
%>
<%sub sq()%>
<form name="form2" method="post" action="admin.asp?ac=sqdo">
  <table width="100%"  border="0">
    <tr>
      <td width="23%">受权用户名</td>
      <td width="77%"><input type="text" name="username"></td>
    </tr>
    <tr>
      <td>被管理贴吧名</td>
      <td><input type="text" name="tiebaname"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="提交">
        <input type="reset" name="Submit" value="重置"></td>
    </tr>
  </table>
</form>
<%end sub%>

<%
sub sqdo()
	set rs=server.createobject("adodb.recordset")
	sql="select tiebaname,username from  users where username = '"& request.Form("username") &"'"
	rs.open sql,conn,1,3
	if rs.eof=false then		   
		rs("tiebaname")=request.Form("tiebaname")
		rs.update
		rs.close
		set rs=nothing
		session("ql")=request.Form("tiebaname")
		response.Write("o k")
	else
	    response.Write("没有这个用户！")
    end if
end sub
%>
<%sub showdel()%>
<form name="form3" method="post" action="admin.asp?ac=admindel">
  <table width="100%"  border="0">
    <tr>
      <td width="25%">需要删除的用户名:</td>
      <td width="75%"><input type="text" name="username"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="提交"></td>
    </tr>
  </table>
</form>
<%end sub%>
<%
sub admindel()
        username=request.Form("username")
		set rs=server.createobject("adodb.recordset")
		sql="delete * from users where username='"&username&"'"
		rs.open sql,conn,1,3
		
		set rs=server.createobject("adodb.recordset")
		sql="delete * from msg where author='"&username&"'"
		rs.open sql,conn,1,3
		
		set rs=server.createobject("adodb.recordset")
		sql="delete * from reply where author='"&username&"'"
		rs.open sql,conn,1,3
		session("username")=""
		session("ql")=""	
		response.Write("完成删除")
end sub
%>