admin_mail.asp

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

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #include file="include/jk_em.asp" -->
<%

index_url="mail"
call admin_master(0,0)
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=10></td>
  <td><a href='?jk_mod=put'<%if jk_mod="put" then response.write " class=red"%>>批量发送<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?jk_mod=data'<%if jk_mod="data" then response.write " class=red"%>>清理<%response.write tit_fir%>数据</a></td>
  </tr>
  </table>
</td></tr>
</table>
<%
call admin_table(1)

select case jk_mod
case "put"
  call joekoe_chk_put()
case "data"
  call joekoe_chk_data()
case "view"
  call joekoe_chk_view()
case else
  call joekoe_chk_main()
end select

call admin_ender(1)

sub joekoe_chk_data()
  dim data_type,s_d,s_tim,clear_msg,data_isread
  s_d="'d'"
  s_tim="now()"
  if joekoe_cms.web_vt=1 then
    s_d="d"
    s_tim="getdate()"
  end if
  call admin_td("清理"&tit_fir&"数据")
  if chk() then
    data_type=trim(request.form("data_type"))
    data_isread=trim(request.form("data_isread"))
    select case data_type
    case "all"
	if data_isread="yes" then
      sql="delete from "&data_name&" where isread=1"
     clear_msg="所有已阅读的"
    else
      sql="delete from "&data_name
     clear_msg="所有"
    end if
    case "week"
	if data_isread="yes" then
      sql="delete from "&data_name&" where DateDiff("&s_d&",tim,"&s_tim&")>7 and isread=1"
     clear_msg="一周前已阅读的"
    else
      sql="delete from "&data_name&" where DateDiff("&s_d&",tim,"&s_tim&")>7"
     clear_msg="一周前"
    end if
    case else	'"month"
	if data_isread="yes" then
      sql="delete from "&data_name&" where DateDiff("&s_d&",tim,"&s_tim&")>30 and isread=1"
     clear_msg="一个月前已阅读的"
	else
      sql="delete from "&data_name&" where DateDiff("&s_d&",tim,"&s_tim&")>30"
     clear_msg="一个月前"
    end if
    end select
    call joekoe_cms.exec(sql,0)
    call admin_msg("已成功清理了"&clear_msg&"的"&tit_fir&"数据！",pageurl,1)
    exit sub
  end if
  call form_first()
%>
<tr>
<form name=data_frm action='<%response.write pageurl%>' method=post>
<input type=hidden name=chk value='yes'>
<td class=htd>注意：<br>清除后将不能再恢复</td>
<td>
<table border=0>
 <tr>
 <td width=180>
  <table border=0>
  <tr><td><input type=radio name=data_type value='month' checked>&nbsp;清除一个月前的数据</td></tr>
  <tr><td><input type=radio name=data_type value='week'>&nbsp;清除一周前的数据</td></tr>
  <tr><td><input type=radio name=data_type value='all'>&nbsp;清除所有的<%response.write tit_fir%>数据</td></tr>
  </table>
 </td>
 <td width=*>
  <table border=0>
  <tr><td><input type=radio name=data_isread value='yes' checked>&nbsp;<font class=blue>已阅读的</font></td></tr>
  <tr><td><input type=radio name=data_isread value='all'>&nbsp;<font class=red>所有短信</font></td></tr>
  </table>
 </td>
 </tr>
</table>
</td>
</tr>
<tr>
<td></td>
<td><input type=submit value='执行清除操作' onclick="javascript:return click_return('执行清除操作',0);"></td>
</form>
</tr>
<%
end sub

sub joekoe_chk_put()
  dim dim_user,dim_tmp,tmpp,npower,npower_name,topic,word,emoney,eint,doing,suser,suser_dim,j
  dim_user=split(web_dim(19),"|")
  call admin_td("批量发送短信")
  if chk() then
    tmpp=code_admin("npower",1,20)
    topic=code_admin("topic",1,50)
    word=code_admin("word",1,250)
    suser=code_admin("suser",1,250)
    emoney=trim(request.form("emoney"))
    eint=trim(request.form("ints"))
    if not isnumeric(emoney) or emoney="" or isnull(emoney) then
      emoney=0
    else
      emoney=int(emoney)
    end if
    if not isnumeric(eint) or eint="" or isnull(eint) then
      eint=0
    else
      eint=int(eint)
    end if
    doing=trim(request.form("doing"))
    if doing<>0 then doing=1
    if doing=0 then
      emoney=-emoney
      eint=-eint
    end if
    if topic="" or word="" then
      erase dim_user
      call admin_error("短信主题 和 短信内容 不能为空！")
      exit sub
    end if	
    if suser="" or isnull(suser) then
      npower=""
      npower_name=""
      if tmpp="_all" then
        npower=tmpp
        npower_name="所有用户"
      else
        for i=0 to ubound(dim_user)
         dim_tmp=split(dim_user(i),":")
         if dim_tmp(0)=tmpp then
           npower=tmpp
           npower_name=dim_tmp(1)
           erase dim_tmp
           exit for
         end if
         erase dim_tmp
        next
      end if
      if npower="" then
        erase dim_user
        call admin_error("接收用户 不能为空！")
        exit sub
      end if
      i=0
      sql="select username,id from user_data where hidden=1"
      if npower<>"" and npower<>"_all" then sql=sql&" and power='"&npower&"'"
      sql=sql&" order by id"
      set rs=joekoe_cms.exec(sql,1)
      application(joekoe_cms.web_cookies&"_"&rs(1))=rs(1)
      do while not rs.eof
       if emoney>0 or eint>0 then call joekoe_cms.exec("update user_data set emoney=emoney+"&emoney&",integral=integral+"&eint&"  where username='"&rs(0)&"'",0)
       call joekoe_cms.exec("insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) values ('"&login_username&"','"&rs(0)&"','"&topic&"','"&word&"','"&joekoe_cms.now_time&"',1,0)",0)
       rs.movenext
       i=i+1
      loop
      rs.close	  
	else
      suser_dim=split(suser,"|")
      i=0
      for j=0 to ubound(suser_dim)
        sql="select top 1 username,id from user_data where hidden=1 and username='"&suser_dim(i)&"' order by id"
        set rs=joekoe_cms.exec(sql,1)
        application(joekoe_cms.web_cookies&"_"&rs(1))=rs(1)
        if not rs.bof then
		  if emoney<>0 or eint<>0 then call joekoe_cms.exec("update user_data set emoney=emoney+"&emoney&",integral=integral+"&eint&"  where username='"&rs(0)&"'",0)
		  call joekoe_cms.exec("insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) values ('"&login_username&"','"&rs(0)&"','"&topic&"','"&word&"','"&joekoe_cms.now_time&"',1,0)",0)
		  i=i+1
        end if
        rs.close
      next
      erase suser_dim
    end if
    erase dim_user
    call admin_msg("已成功给 "&npower_name&"（共"&i&"位） 发送了短信！","?jk_mod="&jk_mod,1)
    exit sub
  end if
  call form_first()
%>
<script language=javascript>
<!--
function isCharsInBag(inputchar)
{ 
  var ii,cc;
  var bagchar="0123456789";
  for (ii = 0; ii < inputchar.length; ii++)
  { 
  cc = inputchar.charAt(ii);
    if (bagchar.indexOf(cc) > -1)
    {
      return "no";
    }
    else
    {
      return "yes";
    }
  }
}
function show_word()
{
  var ne=document.data_frm.emoney.value;
  var ni=document.data_frm.ints.value;
  var dos=document.data_frm.doing.options[document.data_frm.doing.selectedIndex].value;
  var tmp1="";
  var tmp2="";
  var tmp3="";
  if (isCharsInBag(ne)=="yes")
  {
    alert("<%=web_dim(9)%>只能是数字并为正数！");
    document.data_frm.emoney.focus();
    return false;
  }
  if (isCharsInBag(ni)=="yes")
  {
    alert("积分只能是数字并为正数！");
    document.data_frm.ints.focus();
    return false;
  }
  if (dos==0)
  {
  tmp2="处罚";
  tmp3="由于您在本站的表现令人失望，";
  }
  if (dos==1)
  {
  tmp2="奖励";
  tmp3="为感谢您对本站的贡献，";
  }
  if (ne!=="" && ne!=null) { tmp1+=tmp3+'特此'+tmp2+'您 '+ne+' 个<%response.write web_dim(9)%>！\n'; }
  if (ni!=="" && ni!=null) { tmp1+=tmp3+'特此'+tmp2+'您 '+ni+' 个积分！'; }
  if (ne!=="" && ne!=null || ni!=="" && ni!=null)
  {
  document.data_frm.word.value=tmp1;
  document.data_frm.topic.value=tmp2+'通知';
  }
  else
  {
  document.data_frm.word.value="";
  document.data_frm.topic.value="";
  }
}
-->
</script>
<form name=data_frm action='<%response.write pageurl%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>接收用户组：</td>
<td><select name=npower size=1>
<option value='_all' class=tr1>所有用户</option>
<%
  for i=0 to ubound(dim_user)
    dim_tmp=split(dim_user(i),":")
    response.write vbcrlf&"<option value='"&dim_tmp(0)&"'>"&dim_tmp(1)&"</option>"
    erase dim_tmp
  next
  erase dim_user
%>
</select><%response.write redx%>请在选择发送前确认该操作。<font class=red>如果以下输入了单独用户，则此选项失效</font></td>
</tr>
<tr>
<td>单独用户：</td>
<td><input type=text name=suser value='' size=60 maxlength=250>&nbsp;&nbsp;多个用户请用“|”分隔开！</td>
</tr>
<tr>
<td>奖罚操作：</td>
<td><select name=doing size=1>
<option value=1>奖励</option>
<option value=0>处罚</option>
</select>&nbsp;&nbsp;<%response.write web_dim(9)%>&nbsp;<input type=text name=emoney value='' size=5 maxlength=3>
&nbsp;&nbsp;积分&nbsp;<input type=text name=ints value='' size=5 maxlength=3>&nbsp;&nbsp;&nbsp;&nbsp;<input type=button onclick="javascript:show_word();" value='生成主题及内容'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%call admin_read("操作","短信奖惩功能说明","请先输入奖惩数值，然后点击“生成主题及内容”按钮，生成此次奖惩相关内容；如不进行奖罚操作时，可不填写奖惩数值，并且此时按钮将无效！ ")%></td>
</tr>
<tr>
<td>短信主题：</td>
<td><input type=text name=topic value='' size=60 maxlength=20></td>
</tr>
<tr>
<td class=htd>短信内容：<br>EM贴图支持<br>UBB不支持<br>HTML不支持<br>长度<=250字节</td>
<td>
<table border=0><tr>
<td><textarea name=word rows=6 cols=65></textarea></td>
<td width=5></td>
<td valign=bottom><%call textarea_resize("word")%></td>
</tr></table>
</td>
</tr>
<tr class=tr1>
<td></td>
<td height=40><input type=submit value='执行批量发送短信' onclick="javascript:return click_return('执行批量发送短信',0);"></td>
</tr>
</form>
<%
end sub

sub joekoe_chk_view()
  dim accept_u,send_u,isread,word
  call admin_td(tit_fir&"浏览")
  sql="select top 1 * from user_mail where id="&id
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    rs.close
    call admin_msg(tit_fir&"ID（"&id&"）不存在！","?",1)
    exit sub
  end if
  accept_u=rs("accept_u")
  send_u=rs("send_u")
  word=rs("word")
  isread=rs("isread")
  word=joekoe_cms.code_html(word,2,0)
  word=code_jk_em(word)
%>
<tr class=tr2><td colspan=2 height=30>短信主题：<font class=red2><%response.write joekoe_cms.code_html(rs("topic"),1,0)%></font></td></tr>
<tr><td colspan=2 align=center height=100>
  <table border=0 width='96%' class=tf>
  <tr><td class=bw><%response.write word%></td></tr>
  </table>
</td></tr>
<tr class=tr1><td colspan=2 height=30 align=center>
  <table border=0 width='100%'>
  <tr class=tr1>
  <td>发送者：<%response.write format_user_view(rs("send_u"),1,0)%>　按收者：<%response.write format_user_view(rs("accept_u"),1,0)%>　时间：<u><%response.write joekoe_cms.time_type(rs("tim"),2)%></u></td>
  <td align=right><%response.write go_back%></td>
  </tr>
  </table>
</td></tr>
<%
  rs.close
end sub

sub joekoe_chk_main()
  dim nid,topic,types,tim,isread,td_temp,read_pic,read_alt,sel_id,hdim,hnum,hid,hi,htype
  if action="handle" then
    sel_id=trim(request.form("sel_id"))
    sel_id=replace(sel_id," ","")
    hdim=split(sel_id,",")
    hnum=ubound(hdim)
    for hi=0 to hnum
      hid=hdim(hi)
      if isnumeric(hid) then call joekoe_cms.exec("delete from "&data_name&" where id="&hid,0)
    next
    call admin_msg("已成功删除了"&(hnum+1)&"条"&tit_fir,pageurl,1)
  end if
%>
<form name=sel_form action='<%response.write pageurl%>action=handle' method=post>
<tr align=center>
<td class=td width='6%'>序号</td>
<td class=td width='5%'>图</td>
<td class=td width='15%'>发送者</td>
<td class=td width='40%'><%response.write tit_fir%>主题</td>
<td class=td width='15%'>接收者</td>
<td class=td width='14%'>发送时间</td>
<td class=td width='5%'><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
</tr>
<%
  sql="select count(id) from "&data_name
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from "&data_name&" 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
    nid=rs("id")
    topic=rs("topic")
    types=rs("types")
    isread=rs("isread")
    tim=rs("tim")
    read_pic="state_old"
    read_alt="已读"
    if isread=false then
      read_alt="未读"
      read_pic="state_new"
    end if
    if types=2 then
      read_alt="草稿"
      read_pic="state_send"
    end if
%>
<tr align=center>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td><img src='skin/<%response.write joekoe_cms.web_skin%>/mail/<%response.write read_pic%>.gif' border=0 alt='<%response.write read_alt%>'></td>
<td><%response.write format_user_view(rs("send_u"),1,0)%></td>
<td align=left><a href='?jk_mod=view&id=<%response.write nid%>'><%response.write joekoe_cms.code_html(topic,1,0)%></a></td>
<td><%response.write format_user_view(rs("accept_u"),1,0)%></td>
<td><font alt='<%response.write joekoe_cms.time_type(tim,2)%>' class=tims><%response.write joekoe_cms.time_type(tim,3)%></font></td>
<td><input type=checkbox name=sel_id value='<%response.write nid%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=tr1>
<td colspan=5>
现有<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=2 align=center>
<select name=sel_type size=1>
<option value='删除'>删除</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
</td>
</tr>
</form>
<%
end sub
%>