musermanage.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<%
FunCode="F306"
session("title")="用户管理"
session("headline")="首页 -> 注册系统 -> 用户管理"
%>
<!--#include file="../inc/head2.asp"-->
<%
username=request("username")
slt = request("slt")
sql = "select * from [user] where (username in (select username from [user] where manageuser='"&session("username")&"'))  and username='"&username&"'"
	set rs=conn.execute(sql)
	if rs.eof then
		session("mesg")="会员不存在"
		Response.Redirect "../result.asp"
	end if
	rs.close
 Select Case slt
           Case "del"
		   		call Del 
		   		'URL = "muserdelete.asp?ID="&ID
           Case "pass_pre" 
		   		call Pass_Pre()
		   case	"pass"
		   		call Pass()
		   		'URL = "mpasschange.asp?ID="&ID
           Case "fun"
		   		URL = "../userself/funddetail.asp?username="&username
'		   Case "level_pre" 
'				call level_pre()
'		   case "level"
'		   		call level()
			Case "6"
				URL = "musermove.asp?username="&username
           Case Else 
		   	session("mesg")="请选择动作"
			Response.Redirect "../result.asp"
End Select
Response.Redirect URL


sub Del()
if username=session("username") then
	session("mesg")="该会员不能删除自已"
	response.Redirect "../result.asp"
end if

set rsa=server.createobject("adodb.recordset")
sql="select * from domain where username='"&username&"'"
rsa.open sql,conn,1,1

if not rsa.eof then
	session("mesg")="该会员还有域名业务,不能删除,请选删除他的域名业务"
	response.Redirect "../result.asp"
end if
rsa.close

sql="select * from dummy where username='"&username&"'"
rsa.open sql,conn,1,1

if not rsa.eof then
	session("mesg")="该会员还有主机业务,不能删除,请选删除他的主机业务"
	response.Redirect "../result.asp"
end if
rsa.close

sql="select * from adver where username='"&username&"'"
rsa.open sql,conn,1,1

if not rsa.eof then
	session("mesg")="该会员还有广告业务,不能删除,请选删除他的广告业务"
	response.Redirect "../result.asp"
end if
rsa.close
set rsa=nothing

conn.Execute("delete  from [user] where username='"&username&"'")
mesg="会员删除成功."
session("mesg")=mesg
Response.Redirect "../result.asp"
end sub

sub Level_Pre()

set rsu = conn.execute("select * from [user] where username='" & username & "'" )
LevelCode=rsu("level")
GroupCode=rsu("Menu")
rsu.close
%>
 <form method="POST" action="musermanage.asp?slt=level&username=<%=username%>">
              <br><br><br>
              <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=50% class="size09" align="center">
                <tr> 
                  <td colspan="2" bgcolor="#efefef" height="28"> 
                    <div align="center" class="color01">会员属性设置</div>
                  </td>
                </tr>
				
				
				<tr> 
                  <td width="100" height="25"> 
                    <div align="center">用户组</div>
                  </td>
                  <td 
            style="LINE-HEIGHT: 14pt" height="25"> 
				 <select name="group">
				 <%
				 	set rsg = conn.execute("select * from usergroup")
					do while not rsg.eof 
					if rsg("groupname") = GroupCode then
						response.write "<option value='" & rsg("groupcode")&"' selected>"&rsg("groupname")&"</option>"
					else
						response.write "<option value='" & rsg("groupcode")&"'>"&rsg("groupname")&"</option>"
					end if
					
					rsg.movenext
					loop
				 %>
				 </select>
                    </td>
                </tr>
				<tr> 
                  <td width="100" height="25"> 
                    <div align="center">用户级别</div>
                  </td>
                  <td 
            style="LINE-HEIGHT: 14pt" height="25"> 
				 <select name="level">
				 <%
				 	set rsl = conn.execute("select * from userlevel")
					do while not rsl.eof 
					if rsl("levelcode") = LevelCode then
						response.write "<option value='" & rsl("levelcode")&"' selected>"&rsl("levelname")&"</option>"
					else
						response.write "<option value='" & rsl("levelcode")&"'>"&rsl("levelname")&"</option>"
					end if
					rsl.movenext
					loop
				 %>
				 </select>
                    </td>
                </tr>
				<tr> 
                  <td colspan="2" bgcolor="#efefef"> 
                    <div align="center"> 
                      <input type="submit" value="确    定" name="B1" style="text-align: center">
                    </div>
                  </td>
                </tr>
                </tbody> 
              </table>
              </form>
<%
response.end
end sub



sub Level()
group = request("group")
lvl = request("level")
conn.execute (" update [user] set menu='" & group & "',level='"&lvl&"' where username='" & username & "'")
	mesg=changetype&"用户属性设置成功"
	session("mesg")=mesg
	Response.Redirect "../result.asp"
end sub





sub Pass()
userpass1=request("userpass1")
userpass2=request("userpass2")

if userpass1<>userpass2 then
	session("mesg")="交易失败:两次密码不一致"
	response.Redirect "../result.asp"
end if

'需要增加字段校验信息

set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof then
	session("mesg")="该用户不存在"
	response.Redirect "../result.asp"
end if


rs("userpass")=userpass1
rs.update
rs.close
set rs=nothing

	mesg=changetype&"用户密码修改成功"
	session("mesg")=mesg
	Response.Redirect "../result.asp"
end sub

sub Pass_Pre()
%>
 <script language='JavaScript'>
<!--
function check_input()
{
	if (document.mpasschange.username.value=="" ||
		document.mpasschange.userpass1.value=="" ||
		document.mpasschange.userpass2.value=="" )
	{
		alert("输入域不能为空！");
		document.mpasschange.username.focus();
		return false;
	}
	return true;
}
//-->
</script>
            <br>
            <form method="POST" name="mpasschange" action="musermanage.asp" onSubmit="return check_input()">
			<input type="Hidden" name="username" value="<%=request("username")%>">
			<input type="Hidden" name="slt" value="pass">
              <p align="center"></p>
              <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=40% class="size09" align="center">
               	<tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">用户名</div>
                  </td>
                  <td> 
                    <div align="center"> 
                      <%=request("username")%>
                    </div>
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">新 密 码</div>
                  </td>
                  <td> 
                    <div align="center"> 
                      <input type="password" name="userpass1" size="20" class="form">
                    </div>
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">确认密码</div>
                  </td>
                  <td> 
                    <div align="center"> 
                      <input type="password" name="userpass2" size="20" class="form">
                    </div>
                  </td>
                </tr>
                <tr> 
                  <td colspan="2" bgcolor="#efefef" height="32"> 
                    <div align="center"> 
                      <input type="submit" value="确  定" name="B1" style="text-align: center">
                    </div>
                  </td>
                </tr>
              </table>
              <br>
              <br>
               
              <p align="center">&nbsp; </p>
            </form>
<%
response.end
end sub
%>