user_mail.asp

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

<!-- #include file="include/con_user.asp" -->
<!-- #include file="include/jk_convert.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_val_code.asp" -->
<!-- #include file="include/jk_mail.asp" -->
<!-- #include file="include/jk_em.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/jk_frm.asp" -->
<%
dim max_num,nummer,nums,rssum,page,viewpage,thepages,actions,sql_add,action_temp,id,h2,user_on
max_num=dim_num(19)
nummer=dim_num(0)
nums=nummer
page=1
tit="站内短信"
actions=trim(request.querystring("actions"))
id=trim(request.querystring("id"))
if not isnumeric(id) then id=0
h2=0
if action="msg_write" or action="msg_reply" or action="del" or action="delete" or action="clear" or action="msg_fw" or action="msg_edit" then
  h2=1
end if

call user_mail_load()
call web_head(2,h2,0,0,0)
call convert_load(login_mode)
max_num=format_convert(max_num,"+")
'----------------------------左边 开始----------------------------
call user_left("")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
response.write joekoe_cms.js_put("style/joekoe_select.js",0)
call user_mail_menu()

select case actions
case "clear"
  call user_mail_clear()
case "delete"
  call user_mail_delete(0)
case "del"
  call user_mail_delete(1)
case else
  select case action
  case "msg_write","msg_view","msg_reply","msg_fw","msg_edit"
    response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
		   vbcrlf&"<tr><td colspan=2 align=center class=td0>"&action_temp&"</td></tr>"
    call user_mail_msg()
    response.write vbcrlf&"</table>"
  case "box_draft","box_out","box_recycle"
    call user_mail_box()
  case else
    action="box_in"
    call user_mail_box()
  end select
end select

response.write ukong
'----------------------------中间 结束----------------------------
call web_end(0,0)

sub user_mail_load()
  sql_add=""
  select case action
  case "msg_write"
    action_temp="撰写短信"
  case "msg_view"
    action_temp="浏览短信"
  case "msg_reply"
    action_temp="回复短信"
  case "msg_fw"
    action_temp="转发短信"
  case "msg_edit"
    action_temp="编辑短信"
  case "box_draft"
    sql_add="where send_u='"&login_username&"' and types=2"
    action_temp="草稿箱"
  case "box_out"
    sql_add="where send_u='"&login_username&"' and types=1"
    action_temp="发件箱"
  case "box_recycle"
    sql_add="where (accept_u='"&login_username&"' or send_u='"&login_username&"') and types=4"
    action_temp="废信箱"
  case else
    action="box_in"
    sql_add="where accept_u='"&login_username&"' and types=1"
    action_temp="收信箱"
  end select
end sub

sub user_mail_clear()
  select case action
  case "box_recycle"
    sql="delete from user_mail "&sql_add
  case else
    sql="update user_mail set types=4 "&sql_add
  end select
  call joekoe_cms.exec(sql,0)
  call web_js_msg(1,"已成清空了"&action_temp&"中的短信！","?action="&action)
end sub

sub user_mail_delete(dtype)
  dim sel_id,sdim,snum
  if dtype=0 then
    sel_id=trim(request.form("sel_id"))
    sel_id=replace(sel_id," ","")
    if sel_id="" then
      call web_js_msg(1,action_temp&"中没有可删除的短信！","?action="&action)
    end if
  else
    sel_id=trim(request.querystring("id"))
    if not isnumeric(sel_id) then
      call web_js_msg(1,"没有可删除的短信！","?action="&action)
    end if
  end if
  
  sdim=split(sel_id,",")
  snum=ubound(sdim)
  for i=0 to snum
    if isnumeric(sdim(i)) then
      select case action
      case "box_recycle"
        sql="delete from user_mail "&sql_add&" and id="&sdim(i)
      case else
        sql="update user_mail set types=4 "&sql_add&" and id="&sdim(i)
      end select
      call joekoe_cms.exec(sql,0)
    end if
  next
  erase sdim
  call web_js_msg(1,"已从"&action_temp&"中成功删除"&(snum+1)&"条短信！","?action="&action)
end sub

sub user_mail_menu()
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0>
<tr><td align=center height=50>
<a href='user_mail.asp?action=box_in'><img src='<%response.write joekoe_cms.web_dir_skin%>mail/box_in.gif' border=0></a>&nbsp;
<a href='user_mail.asp?action=box_draft'><img src='<%response.write joekoe_cms.web_dir_skin%>mail/box_draft.gif' border=0></a>&nbsp;
<a href='user_mail.asp?action=box_out'><img src='<%response.write joekoe_cms.web_dir_skin%>mail/box_out.gif' border=0></a>&nbsp;
<a href='user_mail.asp?action=box_recycle'><img src='<%response.write joekoe_cms.web_dir_skin%>mail/box_recycle.gif' border=0></a>&nbsp;
<a href='user_friend.asp'><img src='<%response.write joekoe_cms.web_dir_skin%>mail/address.gif' border=0></a>&nbsp;
<a href='user_mail.asp?action=msg_write'><img src='<%response.write joekoe_cms.web_dir_skin%>mail/write.gif' border=0></a><%
  if action="msg_view" or action="msg_reply" or action="msg_fw" or action="msg_edit" then
    response.write vbcrlf&"<a href='?action=msg_reply&id="&id&"'><img src='"&joekoe_cms.web_dir_skin&"mail/reply.gif' border=0></a>" & _
		   vbcrlf&"<a href='?action=msg_fw&id="&id&"'><img src='"&joekoe_cms.web_dir_skin&"mail/fw.gif' border=0></a>" & _
		   vbcrlf&"<a href='?actions=del&id="&id&"'><img src='"&joekoe_cms.web_dir_skin&"mail/delete.gif' border=0></a>"
  end if
%></td></tr>
</table>
<%
end sub

sub user_mail_view()
  dim accept_u,send_u,isread,word
  sql="select top 1 * from user_mail where (accept_u='"&login_username&"' or send_u='"&login_username&"') and id="&id
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    rs.close
    response.write vbcrlf&"<tr><td class=bg_td colspan=2 height=100 align=center><font class=red>您要"&action_temp&"ID（"&id&"）不存在！</font></td></tr>"
    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)
  word=code_jk(word)
%>
<tr class=bg_td><td colspan=2>短信主题：<font class=red2><%response.write joekoe_cms.code_html(rs("topic"),1,0)%></font></td></tr>
<tr class=bg_td><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=bg_tds><td colspan=2 align=center>
<% if accept_u=login_username then %>
以上是 <font class=gray>[ <%response.write format_user_name(send_u,0,"")%> ]</font> 于 <font class=blue><%response.write joekoe_cms.time_type(rs("tim"),2)%></font> 给您发送的短信
<% else %>
以上是您于 <font class=blue><%response.write joekoe_cms.time_type(rs("tim"),2)%></font> 给 <font class=gray>[ <%response.write format_user_name(accept_u,0,"")%> ]</font> 发送的短信
<% end if %>
</td></tr>
<%
  rs.close
  if accept_u=login_username and isread=false then
    call joekoe_cms.exec("update user_mail set isread=1 where id="&id,0)
  end if
end sub

sub user_mail_msg()
  if action<>"msg_write" then
    if int(id)<1 then
      call web_js_msg(1,"您要"&action_temp&"的ID为空或不是数字！","?")
      exit sub
    end if
  end if
  if action="msg_view" then
    call user_mail_view()
    exit sub
  end if
  dim accept_u,send_u,topic,word,found_err,types,isread,sendname
  if action="msg_write" then
    accept_u=trim(request.querystring("accept"))
    if symbol_name(accept_u)=false then accept_u=""
  else
    sql="select top 1 send_u,accept_u,topic,word,tim from user_mail where (accept_u='"&login_username&"' or send_u='"&login_username&"') and id="&id
    set rs=joekoe_cms.exec(sql,1)
    if rs.eof then
      rs.close
      response.write vbcrlf&"<tr><td class=bg_td colspan=2 height=100 align=center><font class=red>您要"&action_temp&"ID（"&id&"）不存在！</font></td></tr>"
      exit sub
    end if
    accept_u=rs("send_u")
    send_u=rs("accept_u")
    topic=rs("topic")
    word=rs("word")
    rs.close
    select case action
    case "msg_reply"
      if lcase(left(topic,3))<>"re:" then topic="RE:"&topic
      word=""
    case "msg_fw"
      if lcase(left(topic,3))<>"fw:" then topic="FW:"&topic
    case "msg_edit"
      accept_u=send_u
    end select
  end if
  if frm_chk() then
    accept_u=trim(request.form("accept_u"))
    topic=joekoe_cms.code_form(request.form("topic"))
    word=joekoe_cms.code_form(request.form("word"))
    'word=replace(word,vbcrlf,"")
    found_err=""
    if val_chk("user_mail")=false then