admin_user.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

      if emoney<>int(request.form("emoney2")) and emoney>0 and emoney<=2147483647 then rs("emoney")=emoney
    end if
    rs("power")=power
    rs("hidden")=hidden
    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=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"
      response.write ">"&format_power2(i,2)&"</option>"
    next
%></select>（<%response.write power%>）</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
  
  set rs=server.createobject("adodb.recordset")
  sql="select 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=1 width='98%' cellspacing=0 cellpadding=2 align=center bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<form name=del_form action='<%=pageurl%>del_ok=ok' method=post>
  <tr align=center height=30>
  <td colspan=2>现在有 <font class=red><%=rssum%></font> 位<%=user_tit%></td>
  <td colspan=6><%=jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")%></td>
  </tr>
  <tr align=center bgcolor=#ededed height=20>
    <td width='6%'>序号</td>
    <td width='30%'>会员名称</td>
    <td width='22%'>注册时间</td>
    <td width='12%'>类型</td>
    <td width='8%'>审核</td>
    <td width='7%'>锁定</td>
    <td width='7%'>屏蔽</td>
    <td 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><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><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><%response.write time_type(rs("tim"),8)%></td>
    <td><%
    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><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><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><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><%
    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><input type=text name=keyword value='<%response.write keyword%>' size=20 maxlength=20>&nbsp;</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
%>