admin_user.asp

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

      response.write ">"&format_power2(i,2)&"</option>"
    next
%></select>（<%response.write power%>）</td></tr>
  <tr><td>登录 I P：</td><td><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type=text name=uip value='<%response.write rs("uip")%>' size=15 maxlength=15>不限制留空</td></tr>
  <tr><td>注册审核：</td><td><%
    if hidden=true then
      h1=" checked":h2=""
    else
      h1="":h2=" checked"
    end if
%><input type=radio name=hidden value=true<%response.write h1%>>正常<input type=radio name=hidden value=false<%response.write h2%>>未审核</td></tr>
  <tr><td>是否锁定：</td><td><%
    if int(popedom_format(u_popedom,41))=0 then
      h1=" checked":h2=""
    else
      h1="":h2=" checked"
    end if
%><input type=radio name=locked value='0'<%response.write h1%>>正常<input type=radio name=locked value='1'<%response.write h2%>>锁定</td></tr>
  <tr><td>论坛屏蔽：</td><td><%
    if int(popedom_format(u_popedom,42))=0 then
      h1=" checked":h2=""
    else
      h1="":h2=" checked"
    end if
%><input type=radio name=shield value='0'<%response.write h1%>>正常<input type=radio name=shield value='1'<%response.write h2%>>屏蔽</td></tr>
  <tr><td colspan=2 align=center height=30><input type=submit value=' 提 交 修 改 '></td></tr>
  </form>
</table>
<%
  end if
end sub

sub user_main()
  dim u_popedom
  hidden=trim(request.querystring("hidden"))
  if hidden="true" then
    sqladd="where hidden=1 "
    pageurl=pageurl&"hidden=true&"
    user_tit="正常用户"
  elseif hidden="false" then
    sqladd="where hidden=0 "
    pageurl=pageurl&"hidden=false&"
    user_tit="未审核用户"
  end if
  keyword=trim(request.querystring("keyword"))
  if keyword<>"" and not isnull(keyword) then
    if sqladd<>"" then
      sqladd=sqladd&"and username like '%"&keyword&"%' "
    else
      sqladd=sqladd&"where username like '%"&keyword&"%' "
    end if
    pageurl=pageurl&"keyword="&server.urlencode(keyword)&"&"
  end if



'用户查询开始
dim a,a1,y,abcd,big,small
    a=trim(request.querystring("a"))
    a1=trim(request.querystring("a1"))
    abcd=trim(request.querystring("abcd"))
if a1<>"" and not isnull(a1) then
select case request("abcd")
 case "1"
  y="username"
 case "2"
  y="login_num"
 case "3"
  y="DateDiff('d',last_tim,now)"
 case "4"
  y="DateDiff('d',tim,Now)"
 case "5"
  y="bbs_counter"
end select
  if  abcd="1" then
      sqladd=sqladd&"where "&y&" like '%"&a1&"%'"
  else
    if isnumeric(a1) then
    select case request("a")
    case "big"
      sqladd=sqladd&"where "&y&" > "&a1
           case "small"
      sqladd=sqladd&"where "&y&" < "&a1
           end select
    end if
   end if
    pageurl=pageurl&"a1="&server.urlencode(a1)&"&a="&server.urlencode(a)&"&abcd="&server.urlencode(abcd)&"&"
end if

'结束
  
  set rs=server.createobject("adodb.recordset")
  sql="select bbs_counter,login_num,id,username,tim,power,hidden,popedom from user_data "&sqladd&" order by id desc"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
    response.write "<br><br><br><br><br><br><br>还没有"&user_tit
    rs.close:set rs=nothing:exit sub
  end if
  
  rssum=rs.recordcount
  nummer=15
  call format_pagecute()
  del_temp=nummer
'用户搜索开始
%>


<table border=0 width='98%' cellspacing=1 cellpadding=3 align=center>
<form name=del_form action='<%=pageurl%>del_ok=ok' method=post>
  <tr align=center height=30 cellspacing=1 cellpadding=3>
  <td class=adminhead colspan=2>现在有 <font class=red><%=rssum%></font> 位<%=user_tit%></td>
  <td class=adminhead colspan=6><%=jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")%>　</td>
  </tr>
  <tr align=center height=20>
    <td class=forumHeaderBackgroundAlternate width='6%'>序号</td>
    <td class=forumHeaderBackgroundAlternate width='30%'>会员名称</td>
    <td class=forumHeaderBackgroundAlternate width='22%'>注册时间</td>
    <td class=forumHeaderBackgroundAlternate width='12%'>类型</td>
    <td class=forumHeaderBackgroundAlternate width='8%'>审核</td>
    <td class=forumHeaderBackgroundAlternate width='7%'>锁定</td>
    <td class=forumHeaderBackgroundAlternate width='7%'>屏蔽</td>
    <td class=forumHeaderBackgroundAlternate width='8%'>操作</td>
  </tr>
<%
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer

  for i=1 to nummer
    if rs.eof then exit for
    checkbox_val=""
    now_id=rs("id"):now_username=rs("username")
    now_power=rs("power"):now_hidden=rs("hidden"):u_popedom=rs("popedom")
%>
  <tr align=center<%response.write mtr%>>
    <td align=left class="Forumrow"><a href='user_view.asp?username=<%response.write server.urlencode(now_username)%>' target=_blank><font color=#000000><%response.write i+(viewpage-1)*nummer%>.</font></a></td>
    <td align=left class="Forumrow"><a href='?power=<%response.write power%>&action=edit&id=<%response.write now_id%>'><font class=blue_1><%response.write now_username%></font></a>　</td>
    <td align=left class="Forumrow"><%response.write time_type(rs("tim"),8)%>　</td>
    <td class="Forumrow"><%
    for j=1 to unum
      if now_power=format_power2(j,1) then
        select case j
        case 1
          response.write "<font class=red>"&format_power2(j,2)&"</font>"
          checkbox_val="no":del_temp=del_temp-1:exit for
        case 2
          response.write "<font class=red_2>"&format_power2(j,2)&"</font>"
          checkbox_val="no":del_temp=del_temp-1:exit for
        case 3
          response.write "<font class=red_3>"&format_power2(j,2)&"</font>":exit for
        case 4
          response.write "<font class=blue>"&format_power2(j,2)&"</font>":exit for
        case else
          response.write format_power2(j,2):exit for
        end select
      end if
    next
%>　</td>
    <td class="Forumrow"><a href='?power=<%response.write power%>&hidden=<%response.write hidden%>&action=hidden&id=<%response.write now_id%>'><%
    if now_hidden=true then
      response.write "正常"
    else
      response.write "<font class=red_2>未审核</font>"
    end if
%></a>　</td>
    <td class="Forumrow"><a href='?power=<%response.write power%>&hidden=<%response.write hidden%>&action=locked&id=<%response.write now_id%>'><%
    if int(popedom_format(u_popedom,41))=0 then
      response.write "正常"
    else
      response.write "<font class=red_2>锁定</font>"
    end if
%></a>　</td>
    <td class="Forumrow"><a href='?power=<%response.write power%>&hidden=<%response.write hidden%>&action=shield&id=<%response.write now_id%>'><%
    if int(popedom_format(u_popedom,42))=0 then
      response.write "正常"
    else
      response.write "<font class=red_2>屏蔽</font>"
    end if
%></a>　</td>
    <td class="Forumrow"><%
    if checkbox_val<>"no" then
      response.write "<input type=checkbox name=del_id value='"&now_username&"'>"
    else
      response.write "&nbsp;"
    end if
%>　</td>
  </tr>
<%
    rs.movenext
  next
%>
  <tr align=center height=30>
  <td colspan=2><input type=submit value='删除所选' onclick="return suredel('<%response.write del_temp%>');"> &nbsp;<input type=checkbox name=del_all value=1 onClick=selectall('<%response.write del_temp%>')>&nbsp;选择所有</td>
</form>
  <td colspan=6>
    <table border=0>
    <form name=sea_frm action='<%response.write pageurl%>'>
    <tr>

<td></td>
    <td>
<select name=abcd size=1>
<option value="1" <% if abcd="1" then response.write " selected" %>>用户名称</option>
<option value="2" <% if abcd="2" then response.write " selected" %>>登陆次数</option>
<option value="3" <% if abcd="3" then response.write " selected" %>>消失天数</option>
<option value="4" <% if abcd="4" then response.write " selected" %>>注册天数</option>
<option value="5" <% if abcd="5" then response.write " selected" %>>发表贴数</option>
</select>
<INPUT TYPE="RADIO" NAME="a" value="big" <% if a="big" then response.write " CHECKED" %> checked> 大于 
<INPUT TYPE="RADIO" NAME="a" value="small" <% if a="small" then response.write " CHECKED" %>> 少于 
<INPUT TYPE="TEXT" NAME="a1" SIZE="10" value='<%response.write a1%>'>
</td>

    <td>&nbsp;<input type=submit value=' 搜 索 '>&nbsp;</td>
    </tr>
    </form>
    </table>
  </td>
  </tr>
</table>

<%
  rs.close:set rs=nothing
%>
</td></tr></table>
<%
end sub
%>