admin_user.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/onlogin.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_md5.asp" -->
<!-- #include file="include/conn.asp" -->
<%dim uip
dim udim,unum,id,rssum,thepages,viewpage,page,nummer,pageurl,j,sqladd,admin_user,user_tit,now_username,now_id,now_power,now_hidden,del_temp,checkbox_val,power,hidden,keyword,usercp,userpower
tit="<a href='?'>用户管理</a>　┋"
udim=split(user_power,"|"):unum=ubound(udim)+1
for i=0 to unum-1
  tit=tit&"<a href='?power="&left(udim(i),instr(udim(i),":")-1)&"'>"&right(udim(i),len(udim(i))-instr(udim(i),":"))&"</a>┋"
next
erase udim
tit=tit&"　<a href='?hidden=true'>正常用户</a>┋" & _
    "<a href='?hidden=false'>未审核用户</a>"
response.write header(1,tit)
%>
<script language=javascript src='style/admin_del.js'></script>
<table border=0 width='98%' cellspacing=0 cellpadding=2 align=center>
<tr><td align=center valign=top height=350>
<%
pageurl="?":sqladd="":user_tit=format_power2(unum,2)
admin_user=web_var(web_config,3)
id=trim(request.querystring("id"))
power=format_power(trim(request.querystring("power")),0)
if power<>"" and not isnull(power) then
  sqladd="where power='"&power&"' "
  pageurl=pageurl&"power="&power&"&"
  user_tit=format_power(power,1)
end if

if isnumeric(id) then
  select case action
  case "hidden"
    call user_hidden()
  case "locked"
    call useres_popedom(41)
  case "shield"
    call useres_popedom(42)
  end select
end if

sub user_hidden()
  dim rs,sql,hid:hid=""
  sql="select username,hidden from user_data where id="&id
  set rs=conn.execute(sql)
  if not (rs.eof and rs.bof) then
    if rs(0)=web_var(web_config,3) then exit sub
    if rs("hidden")=true then
      hid=" hidden=0"
    else
      hid=" hidden=1"
    end if
  end if
  rs.close:set rs=nothing
  if hid<>"" then conn.execute("update user_data set"&hid&" where username<>'"&admin_user&"' and id="&id)
end sub

sub useres_popedom(pn)
  dim sql,rs,temp1,temp2,temp3,user_popedom
  sql="select popedom from user_data where id="&id
  set rs=conn.execute(sql)
  if rs.eof and rs.bof then rs.close:set rs=nothing:exit sub
  user_popedom=rs("popedom")
  rs.close:set rs=nothing
  if len(user_popedom)<>50 then
    user_popedom="00000000000000000000000000000000000000000000000000"
  else
    if pn>len(user_popedom) then exit sub
    temp1=left(user_popedom,pn-1)
    temp2=popedom_format(user_popedom,pn)
    temp3=right(user_popedom,len(user_popedom)-pn)
    if int(temp2)=0 then
      temp2=1
    else
      temp2=0
    end if
  end if
  sql="update user_data set popedom='"&temp1&temp2&temp3&"' where id="&id
  conn.execute(sql)
end sub

if trim(request("del_ok"))="ok" then response.write del_select()
function del_select()
  dim delid,del_i,del_num,del_dim,del_sql
  delid=request("del_id")
  if delid<>"" and not isnull(delid) then
    delid=replace(delid," ","")
    del_dim=split(delid,",")
    del_num=UBound(del_dim)
    for del_i=0 to del_num
      call delete_userdata(del_dim(del_i))
      del_sql="delete from user_data where username='"&del_dim(del_i)&"'"
      conn.execute(del_sql)
    next
    Erase del_dim
    del_select=vbcrlf&"<script language=javascript>alert(""共删除了 "&del_num+1&" 条记录！"");</script>"
  else
    del_select=vbcrlf&"<script language=javascript>alert(""没有删除记录！"");</script>"
  end if
end function

sub delete_userdata(username)
  if len(username)<1 then response.write 1:exit sub
  dim sql,rs,nn,tnum,dnum:tnum=0:dnum=0
  sql="select id,forum_id,re_counter from bbs_topic where username='"&username&"' order by id"
  set rs=conn.execute(sql)
  do while not rs.eof
    nn=rs("re_counter")+1
    tnum=tnum+1:dnum=dnum+nn
    sql="delete from bbs_data where reply_id="&rs("id")
    conn.execute(sql)
    sql="update bbs_forum set forum_topic_num=forum_topic_num-1,forum_data_num=forum_data_num-"&nn&" where forum_id="&rs("forum_id")
    conn.execute(sql)
    rs.movenext
  loop
  rs.close
  sql="delete from bbs_topic where username='"&username&"'"
  conn.execute(sql)
  
  sql="select forum_id,reply_id from bbs_data where username='"&username&"' order by id"
  set rs=conn.execute(sql)
  do while not rs.eof
    dnum=dnum+1
    sql="update bbs_topic set re_counter=re_counter-1 where id="&rs("reply_id")
    conn.execute(sql)
    sql="update bbs_forum set forum_data_num=forum_data_num-1 where forum_id="&rs("forum_id")
    conn.execute(sql)
    rs.movenext
  loop
  rs.close:set rs=nothing
  sql="delete from bbs_data where username='"&username&"'"
  conn.execute(sql)
  sql="update configs set num_topic=num_topic-"&tnum&",num_data=num_data-"&dnum&" where id=1"
  conn.execute(sql)
end sub

select case action
case "edit"
  if isnumeric(id) then
    call user_edit()
  else
    call user_main()
  end if
case else
  call user_main()
end select

call close_conn()
response.write ender()

sub user_edit()
  dim hidden,h1,h2,password,password2,passwd,passwd2,bbs_counter,counter,integral,emoney,u_popedom
  set rs=server.createobject("adodb.recordset")
  sql="select * from user_data where id="&id
  rs.open sql,conn,1,3
  if rs.eof and rs.bof then rs.close:set rs=nothing:call user_main():exit sub
  if rs("username")=web_var(web_config,3) then rs.close:set rs=nothing:call user_main():exit sub
  u_popedom=rs("popedom")
  if trim(request.querystring("edit"))="ok" then
    dim temp1,temp2,temp3
    if len(u_popedom)<>50 then
      u_popedom="00000000000000000000000000000000000000000000000000"
    else
      temp1=left(u_popedom,40)
      temp2=trim(request.form("locked"))&trim(request.form("shield"))
      temp3=right(u_popedom,8)
      u_popedom=temp1&temp2&temp3
    end if
    password=trim(request.form("password"))
    password2=trim(request.form("password2"))
    passwd=trim(request.form("passwd"))
    passwd2=trim(request.form("passwd2"))
    power=trim(request.form("power"))
    hidden=trim(request.form("hidden"))
    if password<>password2 then rs("password")=jk_md5(password,"short")
    if passwd<>passwd2 then rs("passwd")=jk_md5(passwd,"short")
    bbs_counter=trim(request.form("bbs_counter"))
    counter=trim(request.form("counter"))
    integral=trim(request.form("integral"))
    userpower=trim(request.form("userpower"))
    usercp=trim(request.form("usercp"))
    emoney=trim(request.form("emoney"))
      uip=trim(request.form("uip"))
    
    if isnumeric(bbs_counter) then
      bbs_counter=int(bbs_counter)
      if bbs_counter<>int(request.form("bbs_counter2")) and bbs_counter>0 and bbs_counter<=2147483647 then rs("bbs_counter")=bbs_counter
    end if
    if isnumeric(counter) then
      counter=int(counter)
      if counter<>int(request.form("counter2")) and counter>0 and counter<=2147483647 then rs("counter")=counter
    end if
    if isnumeric(integral) then
      integral=int(integral)
      if integral<>int(request.form("integral2")) and integral>0 and integral<=2147483647 then rs("integral")=integral
    end if
    if isnumeric(emoney) then
      emoney=int(emoney)
      if emoney<>int(request.form("emoney2")) and emoney>0 and emoney<=2147483647 then rs("emoney")=emoney
    end if
    rs("userpower")=userpower
    rs("usercp")=usercp
    rs("power")=power
    rs("hidden")=hidden
     rs("uip")=uip
    rs("popedom")=u_popedom
    rs.update
    response.write "<br><br><br><br><br><br><font class=red>用户信息修改成功！</font><br><br><a href='?power="&power&"'>点击返回</a>"
  else
    power=rs("power"):hidden=rs("hidden")
%>
<table border=0 width=300>
  <form action='?action=edit&edit=ok&power=<%response.write power%>&id=<%response.write id%>' method=post>
  <tr><td colspan=2 align=center height=50><font class=red>用户管理修改</font></td></tr>
  <tr><td width='30%'>用户名称：</td><td width='70%'><input type=text value='<%response.write rs("username")%>' readonly size=25></td></tr>
  <tr><td>用户密码：</td><td><input type=text name=password value='<%response.write rs("password")%>' size=25 maxlength=20><input type=hidden name=password2 value='<%response.write rs("password")%>'></td></tr>
  <tr><td>密码钥匙：</td><td><input type=text name=passwd value='<%response.write rs("passwd")%>' size=25 maxlength=20><input type=hidden name=passwd2 value='<%response.write rs("passwd")%>'></td></tr>
  <tr><td>论坛发贴：</td><td><input type=text name=bbs_counter value='<%response.write rs("bbs_counter")%>' size=15 maxlength=10></td></tr><input type=hidden name=bbs_counter2 value='<%response.write rs("bbs_counter")%>'>
  <tr><td>文栏发贴：</td><td><input type=text name=counter value='<%response.write rs("counter")%>' size=15 maxlength=10></td></tr><input type=hidden name=counter2 value='<%response.write rs("counter")%>'>
  <tr><td>用户威望：</td><td><input type=text name=userpower value='<%response.write rs("userpower")%>' size=15 maxlength=10></td></tr><input type=hidden name=userpower2 value='<%response.write rs("userpower")%>'>
  <tr><td>用户魅力：</td><td><input type=text name=usercp value='<%response.write rs("usercp")%>' size=15 maxlength=10></td></tr><input type=hidden name=usercp2 value='<%response.write rs("usercp")%>'>
  <tr><td>用户积分：</td><td><input type=text name=integral value='<%response.write rs("integral")%>' size=15 maxlength=10></td></tr><input type=hidden name=integral2 value='<%response.write rs("integral")%>'>
  <tr><td>用户金钱：</td><td><input type=text name=emoney value='<%response.write rs("emoney")%>' size=15 maxlength=10></td></tr><input type=hidden name=emoney2 value='<%response.write rs("emoney")%>'>
  <tr><td>用户类型：</td><td><select name=power size=1><%
    for i=1 to unum
      response.write vbcrlf & "<option value='"&format_power2(i,1)&"'"
      if power=format_power2(i,1) then response.write " selected"