admin_user.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

    p42=0
    if cstr(code_admin("p42",1,1))="1" then p42=1
    p_left=left(popedom,40)
    p_right=right(popedom,8)
    popedom=cstr(p_left)&cstr(p41)&cstr(p42)&cstr(p_right)
    
    rs("nname")=code_admin("nname",1,20)
    if symbol_ok(code_admin("password",1,20))=true and code_admin("password",1,20)<>password then
      rs("password")=jk_md5(code_admin("password",1,20),"short")
    end if
    if symbol_ok(code_admin("passwd",1,20))=true and code_admin("passwd",1,20)<>passwd then
      rs("passwd")=jk_md5(code_admin("passwd",1,20),"short")
    end if
    rs("email")=email
    rs("bbs_counter")=bbs_counter
    if cstr(f_counter)<>cstr(counter) then
      rs("counter")=counter
      t_counter=true
    end if
    if cstr(f_integral)<>cstr(integral) then
      rs("integral")=integral
      t_integral=true
    end if
    if cstr(f_emoney)<>cstr(emoney) then
      rs("emoney")=emoney
      t_emoney=true
    end if
    if cstr(f_power)<>cstr(power) then
      rs("power")=power
      t_power=true
    end if
    if cstr(f_login_num)<>cstr(login_num) then
      rs("login_num")=login_num
      t_login_num=true
    end if
    rs("remark")=remark
    rs("face")=face
    rs("hidden")=hidden
    rs("popedom")=popedom
    rs("estate")=estate
    rs("abate")=abate
	rs("u_ip")=u_ip
    if cstr(f_tim)<>cstr(tim) then
      rs("tim")=tim
      t_tim=true
    end if
    if cstr(f_last_tim)<>cstr(last_tim) then
      rs("last_tim")=last_tim
      t_last_tim=true
    end if
    if cstr(f_otim)<>cstr(otim) then
      rs("otim")=otim
      t_otim=true
    end if
    rs.update
    rs.close
    call admin_event("编辑"&tit_fir&"（"&username&"）的信息",0,0)
    if t_counter then call admin_event("编辑"&tit_fir&"（"&username&"）系数为："&counter&"，原："&f_counter,0,0)
    if t_integral then call admin_event("编辑"&tit_fir&"（"&username&"）积分为："&integral&"，原："&f_integral,0,0)
    if t_emoney then call admin_event("编辑"&tit_fir&"（"&username&"）货币为："&emoney&"，原："&f_emoney,0,0)
    if t_power then call admin_event("编辑"&tit_fir&"（"&username&"）类型为："&power&"，原："&f_power,0,0)
    if t_otim then call admin_event("编辑"&tit_fir&"（"&username&"）过期时间为："&otim&"，原："&f_otim,0,0)
    call admin_msg("您已成功编辑了"&tit_fir&"（"&username&"）的信息！","?pro="&pro&"&power="&power,0)
    exit sub
  end if
  call form_first()
  power=rs("power")
  hidden=rs("hidden")
  estate=rs("estate")
  abate=rs("abate")
  u_ip=rs("u_ip")
  otim=joekoe_cms.time_type(rs("otim"),4)
  p41=joekoe_cms.popedom_p(popedom,41)
  p42=joekoe_cms.popedom_p(popedom,42)
%>
<form name=user_frm action='?action=edit&pro=<%response.write pro%>&power=<%response.write power%>&id=<%response.write id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'>用户名称：</td>
<td width='20%'><input type=text value='<%response.write username%>' size=20 disabled>&nbsp;<font class=red>不可更改</font></td>
</tr>
<input type=hidden name=password2 value='<%response.write password%>'>
<input type=hidden name=passwd2 value='<%response.write passwd%>'>
<tr><td>用户密码：</td><td><input type=text name=password value='<%response.write password%>' size=25 maxlength=20></td></tr>
<tr><td>密码钥匙：</td><td><input type=text name=passwd value='<%response.write passwd%>' size=25 maxlength=20></td></tr>
<tr><td>用户头衔：</td><td><input type=text name=nname value='<%response.write rs("nname")%>' size=25 maxlength=20></td></tr>
<tr><td>注册日期：</td><td><input type=text name=tim value='<%response.write rs("tim")%>' size=25 maxlength=20></td></tr>
<tr><td>用户登录IP：</td><td><input type=text name=u_ip value='<%response.write rs("u_ip")%>' size=25 maxlength=20>&nbsp;<font class=red>填写则限制该用户以此IP登陆本系统，不限制则留空。</font></td></tr>
<tr><td>最后登陆IP：</td><td><input type=text value='<%response.write rs("last_ip")%>' size=25 disabled>&nbsp;<font class=red>不可更改</font></td></tr>
<tr><td>最后登陆时间：</td><td><input type=text name=last_tim value='<%response.write rs("last_tim")%>' size=25 maxlength=20></td></tr>
<tr><td>电子邮件：</td><td><input type=text name=email value='<%response.write rs("email")%>' size=25 maxlength=50></td></tr>
<tr><td>用户系数：</td><td><input type=text name=counter value='<%response.write rs("counter")%>' size=15 maxlength=10>&nbsp;0-10</td></tr>
<tr><td>论坛发贴：</td><td><input type=text name=bbs_counter value='<%response.write rs("bbs_counter")%>' size=15 maxlength=10>&nbsp;贴</td></tr>
<tr><td>用户积分：</td><td><input type=text name=integral value='<%response.write rs("integral")%>' size=15 maxlength=10>&nbsp;分</td></tr>
<tr><td>用户货币：</td><td><input type=text name=emoney value='<%response.write rs("emoney")%>' size=15 maxlength=10>&nbsp;<%response.write web_dim(9)%></td></tr>
<tr><td>登陆次数：</td><td><input type=text name=login_num value='<%response.write rs("login_num")%>' size=15 maxlength=20>&nbsp;次</td></tr>
<tr><td>用户头像：</td><td><input type=text name=face value='<%response.write rs("face")%>' size=25 maxlength=30></td></tr>
<tr><td>用户签名：</td><td>
<table border=0><tr>
<td><textarea name=remark rows=6 cols=65><%response.write joekoe_cms.code_word(rs("remark"))%></textarea></td>
<td width=5></td>
<td valign=bottom><%call textarea_resize("remark")%></td>
</tr></table>
</td></tr>
<tr><td>用户类型：</td><td><select name=power size=1><%
  for i=0 to ubound(dim_user)
    dim_tmp=split(dim_user(i),":")
    response.write vbcrlf&"<option value='"&dim_tmp(0)&"'"
    if power=dim_tmp(0) then response.write " selected"
    response.write ">"&dim_tmp(1)&"（"&dim_tmp(0)&"，系数："&dim_tmp(2)&"）</option>"
  next
%></select>（<%response.write power%>）</td></tr>
<tr><td>注册审核：</td><td><input type=radio name=hidden value='1'<%if hidden=true then response.write " checked"%>>&nbsp;正常&nbsp;&nbsp;<input type=radio name=hidden value='0'<%if hidden=false then response.write " checked"%>>&nbsp;未审核</td></tr>
<tr><td>是否计时：</td><td><input type=radio name=estate value='0'<%if int(estate)<>1 then response.write " checked"%>>&nbsp;普通&nbsp;&nbsp;<input type=radio name=estate value='1'<%if int(estate)=1 then response.write " checked"%>>&nbsp;计时</td></tr>
<tr><td>是否过期：</td><td><input type=radio name=abate value='0'<%if abate=false then response.write " checked"%>>&nbsp;普通&nbsp;<input type=radio name=abate value='1'<%if abate=true then response.write " checked"%>>&nbsp;过期</td></tr>
<tr><td>过期时间：</td><td><input type=text name=otim value='<%response.write otim%>' size=20 maxlength=10>&nbsp;<input type=button name=st_btn value="选择" onclick="javascript:select_time(otim);return false;">&nbsp;<input type=button name=st_btn value="插入当前时间"  onclick="javascript:document.user_frm.otim.value='<%response.write now_ymd%>';return false;"></td></tr>
<tr><td>是否锁定：</td><td><input type=radio name=p41 value='0'<%if int(p41)=0 then response.write " checked"%>>&nbsp;正常&nbsp;&nbsp;<input type=radio name=p41 value='1'<%if int(p41)<>0 then response.write " checked"%>>&nbsp;锁定</td></tr>
<tr><td>论坛屏蔽：</td><td><input type=radio name=p42 value='0'<%if int(p42)=0 then response.write " checked"%>>&nbsp;正常&nbsp;&nbsp;<input type=radio name=p42 value='1'<%if int(p42)<>0 then response.write " checked"%>>&nbsp;屏蔽</td></tr>
<%
  call submit_edit()
  rs.close
end sub

sub joekoe_chk_main()
  call form_first()
%>
<form name=sel_form action='?pro=&power=&action=handle' method=post>
<input type=hidden name=chk value='yes'>
<tr align=center>
<td class=td width='7%'>序号</td>
<td class=td width='15%'><%response.write tit_fir%>名称</td>
<td class=td width='13%'>注册时间</td>
<td class=td width='6%'>类型</td>
<td class=td width='6%'>审核</td>
<td class=td width='8%'><%response.write web_dim(9)%></td>
<td class=td width='6%'>状态</td>
<td class=td width='10%'>过期时间</td>
<td class=td width='6%'>过期</td>
<td class=td width='6%'>锁定</td>
<td class=td width='6%'>屏蔽</td>
<td class=td width='6%'>属性</td>
<td class=td width='5%'><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
</tr>
<%
  dim id,username,n_power,n_powern,popedom,tim,estate,abate,otim,p_lock,keyword,n_nummer,pingbi
  n_nummer=trim(request.querystring("nummer"))
  if not int_true(n_nummer) then n_nummer=0
  if int(n_nummer)<1 then n_nummer=0
  if int(n_nummer)>0 then
    nummer=n_nummer
    nums=nummer
    pageurl=pageurl&"nummer="&nummer&"&"
  end if
  if power<>"" then
    sql_add=" where power='"&power&"'"
    pageurl=pageurl&"power="&power&"&"
  end if
  if pro<>"" then
    if sql_add="" then
      sql_add=" where "&sql_pro
    else
      sql_add=sql_add&" and "&sql_pro
    end if
    pageurl=pageurl&"pro="&pro&"&"
  end if
  if jk_mod="search" then
    call format_search("username","username,email,nname",2,1)
  end if
  sql="select count(id) from "&data_name&sql_add
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" id,username,nname,email,emoney,power,tim,hidden,popedom,estate,abate,otim,last_ip,u_ip from "&data_name&sql_add&" order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
    id=rs("id")
    username=rs("username")
    n_power=rs("power")
    popedom=rs("popedom")
    tim=rs("tim")
    estate=rs("estate")
    abate=rs("abate")
    otim=rs("otim")
    n_powern=format_power(n_power,2)
    p_lock=joekoe_cms.popedom_p(popedom,41)
    pingbi=joekoe_cms.popedom_p(popedom,42)
%>
<tr align=center>
<td class=tims><a href='user_view.asp?username=<%response.write server.urlencode(username)%>' alt='浏览 <%response.write username%> 的个人信息' target=_blank><%response.write (viewpage-1)*nummer+i%></a></td>
<td align=left><a href='?action=edit&pro=<%response.write pro%>&power=<%response.write n_power%>&id=<%response.write id%>' alt='邮件：<%response.write rs("email")%><br>头衔：<%response.write rs("nname")%><br>点击编辑 <%response.write username%> 的个人信息'><%response.write username%></td>
<td><font class=tims alt='<%response.write joekoe_cms.time_type(tim,2)%>'><%response.write joekoe_cms.time_type(tim,4)%></td>
<td><img border=0 src='skin/<%response.write web_dim(7)%>/small/icon_<%response.write format_power(n_power,0)%>.gif' alt='<%response.write username%> 是 <%response.write format_power(n_power,1)%>'></td>
<td><%
    if rs("hidden") then
      response.write "正常"
    else
      response.write "<font class=red2>审核</font>"
    end if
%></td>
<td align=right class=red2><%response.write rs("emoney")%></td>
<td><%
    if int(estate)=1 then
      response.write "<font class=blue>计时</font>"
    else
      response.write "普通"
    end if
%></td>
<td class=tims><%
  if int(estate)=1 then
    if datediff("d",otim,now_ymd)>0 then
      response.write "<font class=red>"
    end if
  end if
  response.write joekoe_cms.time_type(otim,4)
%></td>
<td><%
    if abate then
      response.write "<font class=red>过期</font>"
    else
      response.write "正常"
    end if
%></td>
<td><%
    if int(p_lock)=1 then
      response.write "<font class=red2>锁定</font>"
    else
      response.write "正常"
    end if
%></td>
<td><%
    if int(pingbi)=1 then
      response.write "<font class=red2>屏蔽</font>"
    else
      response.write "正常"
    end if
%></td>
<td><%response.write img_admin("ip","<font class=red>"&username&"</font>最后登陆IP："&rs("last_ip"))%></td>
<td>
<%
   if int(n_powern)>2 then
     response.write "<input type=checkbox name=sel_id value='"&id&"'>"
   else
     response.write "<input type=checkbox name=sel_no disabled>"
   end if
%></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=tr1>
<td colspan=8>
现有<font class=red><%response.write rssum%></font>位<%response.write tit_fir%>，
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
</td>
<td colspan=5 align=center>
执行
<select name=sel_type size=1>
<option value='审核'>审核</option>
<option value='待审核'>待审核</option>
<option value='计时'>计时</option>
<option value='取消计时'>取消计时</option>
<option value='过期'>过期</option>
<option value='取消过期'>取消过期</option>
<option value='锁定'>锁定</option>
<option value='取消锁定'>取消锁定</option>
<option value='屏蔽'>屏蔽</option>
<option value='取消屏蔽'>取消屏蔽</option>
<option value='删除'>删除</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
</td>
</tr>
</form>
<tr><td colspan=13>建议：当您删除某一用户时请最好进行论坛数据修复以及网站数据更新这两项更新操作，以确保系统能正确的运行。</td></tr>
<%
end sub

sub joekoe_user_sort()
  dim dp
  dp=false
  for i=0 to ubound(dim_user)
    dim_tmp=split(dim_user(i),":")
    response.write vbcrlf&"  <td width=5></td>" & _
		   vbcrlf&"  <td><a href='?pro="&pro&"&power="&dim_tmp(0)&"'"
    if power=dim_tmp(0)then
      dp=true
      tit_name=dim_tmp(1)
      response.write " class=red"
    end if
    response.write ">"&dim_tmp(1)&"</a></td>"
  next
  if dp=false then
    power=""
  end if
end sub
%>