admin_user.asp

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

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #include file="include/jk_email.asp" -->
<!-- #include file="include/jk_md5.asp" -->
<%
dim power,pro,tit_name,pro_name,sql_pro,dim_tmp,now_ymd,base_power
power=trim(request.querystring("power"))
pro=trim(request.querystring("pro"))
now_ymd=joekoe_cms.time_type(joekoe_cms.now_time,4)
base_power=format_power2(ubound(dim_user)+1,1)
select case pro
case "hidden"
  pro_name="待审核"
  sql_pro="hidden=0"
case "estate"
  pro_name="计时"
  sql_pro="estate=1"
case "abate"
  pro_name="过期"
  sql_pro="abate=1"
case "lock"
  pro_name="锁定"
  if joekoe_cms.web_vt=1 then
    sql_pro="substring(popedom,41,1)='1'" 
  else 
    sql_pro="int(Mid(popedom,41,1))=1"            'Access 版本
  end if
case "pingbi"
  pro_name="屏蔽"
  if joekoe_cms.web_vt=1 then
    sql_pro="substring(popedom,42,1)='1'" 
  else 
    sql_pro="int(Mid(popedom,42,1))=1"            'Access 版本
  end if
case else
  pro=""
  sql_pro=""
end select
index_url="user"
call admin_master(0,0)
tit_name=ntit
call admin_header(0,0)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?'><%response.write tit%></a></td>
  <td width=5></td>
  <td><a href='?power=<%response.write power%>&pro=estate'<%if pro="estate" then response.write " class=red"%>>计时<%response.write tit_fir%></a></td>
  <td width=5></td>
  <td><a href='?power=<%response.write power%>&pro=abate'<%if pro="abate" then response.write " class=red"%>>过期<%response.write tit_fir%></a></td>
  <td class=gray>[<a href='?action=abates' onclick="javascript:return click_return('更新所有过期<%response.write tit_fir%>',0);">更新</a>]</td>
  <td width=5></td>
  <td><a href='?power=<%response.write power%>&pro=hidden'<%if pro="hidden" then response.write " class=red"%>>待审核<%response.write tit_fir%></a></td>
  <td class=gray>[<a href='?action=hiddens' onclick="javascript:return click_return('审核所有未审核<%response.write tit_fir%>',0);">审核</a>]</td>
  <td width=5></td>
  <td><a href='?power=<%response.write power%>&pro=lock'<%if pro="lock" then response.write " class=red"%>>锁定<%response.write tit_fir%></a></td>
  <td width=5></td>
  <td><a href='?power=<%response.write power%>&pro=pingbi'<%if pro="pingbi" then response.write " class=red"%>>屏蔽<%response.write tit_fir%></a></td>
  <td>
    <table border=0>
    <form action='?' method=get>
    <input type=hidden name=jk_mod value='search'>
    <tr>
    <td><%response.write tit_fir%>搜索：</td>
    <td><input type=text name=keyword value='<%response.write trim(request.querystring("keyword"))%>' size=10 maxlength=20></td>
    <td><select name=sea_type>
<option value='username'<%if trim(request.querystring("sea_type"))="username" then response.write " selected"%>>按用户名</option>
<option value='email'<%if trim(request.querystring("sea_type"))="email" then response.write " selected"%>>按邮件</option>
<option value='nname'<%if trim(request.querystring("sea_type"))="nname" then response.write " selected"%>>按头衔</option>
</select></td>
    <td><input type=submit value='搜索'></td>
    </tr>
    </form>
    </table>
  </td>
  </tr>
  </table>
</td></tr>
<tr><td align=center colspan=2>
  <table border=0>
  <tr>
  <td><%response.write tit_fir%>类型：</td>
<% call joekoe_user_sort() %>
  <td width=10></td>
  <td><a href='?pro=<%response.write pro%>'><b>所有用户</b></a></td>
  </tr>
  </table>
</td></tr>
</table>
<%
call admin_table(1)

if action="handle" then
  if not chk() then action=""
end if

select case action
case "abates"
  call joekoe_chk_abates()
case "hiddens"
  call joekoe_chk_hiddens()
case "handle"
  call joekoe_chk_handle()
case "edit"
  call joekoe_chk_edit()
case else
  call joekoe_chk_main()
end select

if isarray(dim_tmp) then erase dim_tmp
call admin_ender(1)

sub joekoe_chk_abates()
  dim price_head
  price_head="#"
  if joekoe_cms.web_vt=1 then price_head="'"
  sql="update user_data set abate=1 where estate=1 and otim<"&price_head&now_ymd&price_head
  call joekoe_cms.exec(sql,0)
  call admin_event("更新所有过期"&tit_fir,0,0)
  call admin_msg("已成功更新了所有过期"&tit_fir&"！","?",1)
end sub

sub joekoe_chk_hiddens()
  sql="update user_data set hidden=1,tmp='' where hidden=0 and len(tmp)=32"
  call joekoe_cms.exec(sql,0)
  call admin_event("审核所有未审核"&tit_fir,0,0)
  call admin_msg("已成功审核了所有过期"&tit_fir&"！","?",1)
end sub

sub joekoe_chk_handle()
  dim sel_type,seltype,sel_id,hdim,hnum,htype,hintegral
  htype=1
  sel_type=trim(request.form("sel_type"))
  select case sel_type
  case "审核","待审核"
    seltype="hidden"
    if sel_type="待审核" then htype=0
  case "计时","取消计时"
    seltype="estate"
    if sel_type="取消计时" then htype=0
  case "过期","取消过期"
    seltype="abate"
    if sel_type="取消过期" then htype=0
  case "锁定","取消锁定"
    seltype="lock"
    if sel_type="取消锁定" then htype=0
  case "屏蔽","取消屏蔽"
    seltype="pingbi"
    if sel_type="取消屏蔽" then htype=0
  case "删除"
    seltype="delete"
  case else
    sel_type=""
    seltype=""
  end select
  if sel_type="" or seltype="" then
    call admin_msg("您在提交用户操作时出现非法的数据！","?",0)
    exit sub
  end if
  hintegral=mp_integral()
  sel_id=trim(request.form("sel_id"))
  sel_id=replace(sel_id," ","")
  hdim=split(sel_id,",")
  hnum=ubound(hdim)
  for i=0 to hnum
    id=hdim(i)
    if isnumeric(id) then
      select case seltype
      case "delete"
        call user_del(id)
      case "lock"
        sql="update "&data_name&" set popedom=left(popedom,40)+'"&htype&"'+right(popedom,9) where id="&id
        conn.execute(sql)
      case "pingbi"
        sql="update "&data_name&" set popedom=left(popedom,41)+'"&htype&"'+right(popedom,8) where id="&id
        conn.execute(sql)
      case else
        sql="update "&data_name&" set "&seltype&"="&htype&" where id="&id
        conn.execute(sql)
      end select
    end if
  next
  erase hdim
  call admin_event(sel_type&" "&(hnum+1)&"条（"&tit_fir&"）记录",0,0)
  call admin_msg("已成功（"&sel_type&"）操作了"&(hnum+1)&"条"&tit_fir&"记录！","?",1)
end sub

sub user_del(uid)
  dim uuser,ubc,num_topic,num_data
  sql="select top 1 username,bbs_counter from user_data where id="&uid
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    rs.close
    exit sub
  end if
  uuser=rs(0)
  ubc=rs(1)
  rs.close
  if int(ubc)>0 then
    call joekoe_cms.exec("delete from bbs_data where reply_id in (select id from bbs_topic where userid="&uid&")",0)
    call joekoe_cms.exec("delete from bbs_topic where userid="&uid,0)
    call joekoe_cms.exec("update bbs_topic set re_counter=re_counter-1 where id in (select reply_id from bbs_data where userid="&uid&")",0)
    call joekoe_cms.exec("delete from bbs_data where userid="&uid,0)
  end if
  call joekoe_cms.exec("delete from jk_group where username='"&uuser&"'",0)
  call joekoe_cms.exec("delete from user_bookmark where username='"&uuser&"'",0)
  call joekoe_cms.exec("delete from user_friend where username1='"&uuser&"' or username2='"&uuser&"'",0)
  call joekoe_cms.exec("delete from user_mail where send_u='"&uuser&"' or accept_u='"&uuser&"'",0)
  'call joekoe_cms.exec("delete from music_fav where username='"&uuser&"'",0)
  call joekoe_cms.exec("delete from user_data where username='"&uuser&"'",0)
end sub

sub joekoe_chk_edit()
  sql="select top 1 id,username,nname,password,passwd,email,bbs_counter,counter,integral,emoney,remark,face,power,tim,login_num,last_tim,last_ip,hidden,popedom,estate,abate,otim,u_ip from user_data where id="&id
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg("您要编辑的用户ID（"&id&"）不存在！","?",1)
    exit sub
  end if
  dim username,nname,password,passwd,email,bbs_counter,remark,face,counter,integral,emoney,power,tim,login_num,last_tim,hidden,popedom,estate,abate,otim,p41,p42,p_left,p_right,u_ip
  dim f_counter,f_integral,f_emoney,f_power,f_tim,f_login_num,f_last_tim,f_otim,t_counter,t_integral,t_emoney,t_power,t_tim,t_login_num,t_last_tim,t_otim
  t_counter=false
  t_integral=false
  t_emoney=false
  t_login_num=false
  t_power=false
  t_tim=false
  t_last_tim=false
  t_otim=false
  username=rs("username")
  password=rs("password")
  passwd=rs("passwd")
  f_counter=rs("counter")
  f_integral=rs("integral")
  f_emoney=rs("emoney")
  f_login_num=rs("login_num")
  f_power=rs("power")
  f_tim=rs("tim")
  f_last_tim=rs("last_tim")
  f_otim=joekoe_cms.time_type(rs("otim"),4)
  popedom=rs("popedom")
  if format_power(f_power,2)=1 then
    if username=web_dim(3) then
      if login_username<>username then
        call admin_msg("您没有编辑的超级管理员的权限！","?pro="&pro&"&power="&power,1)
        exit sub
      end if
    else
      if login_username=username then
        call admin_msg("您没有编辑的自身信息的权限！","?pro="&pro&"&power="&power,1)
        exit sub
      end if
    end if
  end if
  if len(popedom)<>50 then popedom="00000000000000000000000000000000000000000000000000"
  call admin_td("编辑用户（"&username&"）信息")
  if chk() then
    email=code_admin("email",1,50)
    if email_ok(email,50)=false then
      call admin_error(tit_fir&"的 电子邮件（"&email&"） 为空或不符合规则！")
      rs.close
      exit sub
    end if
    bbs_counter=trim(request.form("bbs_counter"))
	u_ip=trim(request.form("u_ip"))
    if joekoe_cms.int_true(bbs_counter)=false then bbs_counter=0
    counter=trim(request.form("counter"))
    if joekoe_cms.int_true(counter)=false then counter=0
    integral=trim(request.form("integral"))
    if joekoe_cms.int_true(integral)=false then integral=0
    emoney=trim(request.form("emoney"))
    if joekoe_cms.int_true(emoney)=false then emoneyr=0
    power=format_power(code_admin("power",1,10),0)
    login_num=trim(request.form("login_num"))
    if joekoe_cms.int_true(login_num)=false then login_num=0
    remark=joekoe_cms.code_form(trim(request.form("remark")))
    face=joekoe_cms.code_form(trim(request.form("face")))
    if power="" then
      power=base_power
    end if
    hidden=false
    if cstr(code_admin("hidden",1,1))="1" then hidden=true
    estate=0
    if cstr(code_admin("estate",1,1))="1" then estate=1
    abate=false
    if cstr(code_admin("abate",1,1))="1" then abate=true
    tim=trim(request.form("tim"))
    if not(isdate(tim)) then
      call admin_error(tit_fir&"的 注册日期（"&tim&"） 为空或不符合规则！")
      rs.close
      exit sub
    end if
    last_tim=trim(request.form("last_tim"))
    if not(isdate(last_tim)) then
      call admin_error(tit_fir&"的 最后登陆时间（"&last_tim&"） 为空或不符合规则！")
      rs.close
      exit sub
    end if
    otim=trim(request.form("otim"))
    if not(isdate(otim)) or instr(otim,"-")=0 or instr(otim,":")>0 then
      call admin_error(tit_fir&"的 过期时间（"&otim&"） 为空或不符合规则！")
      rs.close
      exit sub
    end if
    otim=joekoe_cms.time_type(otim,4)
    p41=0
    if cstr(code_admin("p41",1,1))="1" then p41=1